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

• #36935 Pakliman tag RAiN91 #36934

  Új Válasz 2018-01-09 19:20:33 #36935

  Ú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

  

  Pakliman

  tag

  válasz RAiN91 #36934 üzenetére

  Sub ffffasd()
Dim c As Long
Dim k As Long

c = 1
For k = 1 To 51
If IsEmpty(Cells(k, 1)) Then
c = c + 1
Else
Cells(k, 2) = c
End If
Next k

End Sub

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