Új hozzászólás Aktív témák

• #23395 m.zmrzlina senior tag slashing #23393

  Új Válasz 2014-09-23 10:37:09 #23395

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  m.zmrzlina

  senior tag

  válasz slashing #23393 üzenetére

  Én ezt egyszer úgy oldottam meg, hogy az inputboxban megadtam a formáját a neveknek amit elfogad a makró.

  technikus = UCase(InputBox("Add meg a technikus nevét!" & Chr(10) "TUDOR VIDOR SZENDE SZUNDI MORGÓ HAPCI KUKA MIND"))
  If technikus <> "MIND" Then
  If Application.WorksheetFunction.CountIf(Worksheets("PrnWinExcel").range("B:B"), technikus) = 0 Then
  MsgBox "Nincs ilyen technikus."
  Exit Sub
  ElseIf technikus = "" Then
  Exit Sub
  End If
  End If

  Persze ez csak akkor működik ha minden elfogadható input ismert a programozás idején, nem bővül vagy egészül ki esetleges elemekkel a Worksheets("PrnWinExcel").range("B:B") tartomány vagy van lehetőség a folyamatos frissítésére.

Új hozzászólás Aktív témák