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

• #40034 Delila_1 veterán Dinter #40033

  Új Válasz 2019-01-23 15:41:55 #40034

  Ú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 Dinter #40033 üzenetére

  Makró?

  Sub dupla()
Dim sor As Long

Columns("E:F").Copy
Range("E1").PasteSpecial xlPasteValues
sor = 2
Do While Cells(sor, 2) > ""
If Cells(sor, "E") = "True" Then Cells(sor, "B") = "True"
If Cells(sor, "F") = "False" Then Cells(sor, "B") = "False"
Range("C" & sor & ":F" & sor) = ""
sor = sor + 1
Loop
End Sub

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