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

• #11496 Delila_1 veterán DopeBob #11490

  Új Válasz 2011-09-30 08:42:47 #11496

  Ú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 DopeBob #11490 üzenetére

  Próbáld meg ezzel:

  Sub MelyikHiányzik()
  Dim sz%, sor As Long
  For sz% = 1 To Cells(Rows.Count, "A").End(xlUp).Row
  On Error GoTo Hiba
  sor = Application.Match(sz%, Range("A:A"), 0)
  Next
  Hiba:
  MsgBox sz%
  End Sub

  Az Msgbox helyett beírathatod egy cellába.

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