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

• #40047 Delila_1 veterán lappy #40043

  Új Válasz 2019-01-24 13:52:25 #40047

  Ú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 lappy #40043 üzenetére

  Esetleg

  Sub HolVan_1()
Dim CV As Range, sor As Long

For Each CV In Range("A2:F20")
If CV.Value = 1 Then
Cells(sor + 1, "J") = CV.Address
sor = sor + 1
End If
Next
End Sub

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