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

• #1780 martonx veterán shiz #1775

  Új Válasz 2012-07-06 16:40:33 #1780

  Ú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

  

  martonx

  veterán

  válasz shiz #1775 üzenetére

  Sub Count()
  Dim var As Variant
  For i = 9 To 1500 Step 13
  var = Application.Match(1, Rows(i).Cells, 0)
  If Not IsError(var) Then
  'ilyenkor az i mutatja, hogy melyik sorban találtunk, var mutatja, hogy melyik oszlopban
  'azaz e két info ismeretében bármit meg tudsz csinálni
  MsgBox ("találtam")
  End If
  Next
  End Sub

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