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

• #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.

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