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

• #23404 bteebi veterán slashing #23396

  Új Válasz 2014-09-23 13:02:35 #23404

  Ú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

  

  bteebi

  veterán

  válasz slashing #23396 üzenetére

  RegEx

  #23403: Na ez már valami .

• #23399 Delila_1 veterán slashing #23396

  Új Válasz 2014-09-23 11:12:38 #23399

  Ú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

  

  Delila_1

  veterán

  válasz slashing #23396 üzenetére

  Beviszed a neveket egy oszlopba. Táblázattá alakítod, és a Nevek névvel látod el a tartományt.

  Sub mm()
  Dim nev$, tomb(), v As Integer, megvan As Boolean
  
  nev$ = Application.InputBox("Add meg a neved!", "Név bekérése", , , , , , 2)
  tomb = Application.Transpose(Range("Nevek"))
  For v = 1 To UBound(tomb)
  If nev$ = tomb(v) Then
  megvan = True
  Exit For
  End If
  Next
  
  If megvan = False Then
  MsgBox "Nem szerepelsz a nevek között!"
  Exit Sub
  Else
  MsgBox nev$ & " a(z) " & v & ". helyen szerepel."
  'makró többi része
  End If
  End Sub

  Bővítheted agyba-főbe a tartományt.

• #23397 Mittu88 senior tag slashing #23396

  Új Válasz 2014-09-23 10:54:56 #23397

  Ú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

  

  Mittu88

  senior tag

  válasz slashing #23396 üzenetére

  És akkor mi van, ha pl. Tóth Béla József a neve? (2 szóköz van)
  Vagy még extrémebb esetben Tóthné Kovács Mónika Beáta. Amúgy én nem tudom mi az a regexp kód csak hangosan gondolkozom

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