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

• #23148 Fferi50 Topikgazda botond187 #23145

  Új Válasz 2014-09-08 20:07:11 #23148

  Ú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

  

  Fferi50

  Topikgazda

  válasz botond187 #23145 üzenetére

  Szia!

  A makró elejére írd be egy uj sorba:
  Dim szamol as integer

  Ide szúrd be a félkövér sort:
  sorS = Application.Match(ehhez, Range("D:D"), 1)
  szamol = 0
  For sorK = 1 To usor

  Ide szintén:
  If Cells(sorK, "A") >= tol$ And Cells(sorK, "A") <= ig$ Then
  If szamol = 6 Then Exit For
  If Cells(sor, "B") = "" Then
  És még ide:
  End If
  szamol = szamol + 1
  End If

  Üdv.

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