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

• #2988 Delila_1 veterán Amazonas #2982

  Új Válasz 2008-01-16 09:26:01 #2988

  Ú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 Amazonas #2982 üzenetére

  Itt egy kis makró, ami a 0-val kezdődő sorokat kitörli. Ha megadod a két lapod nevét, és azt, hogy a januári lapon melyik oszlopban van az állapotot jelző adat, megírom az automatikus másolást.

  Sub torles()
  sor = 1
  Do While Cells(sor, 1) <> ""
  Cells(sor, 1).Select
  If Cells(sor, 1) = 0 Then
  Selection.EntireRow.Delete
  Else
  sor = sor + 1
  End If
  Loop
  End Sub

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