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

• #46620 Delila_1 veterán the radish #46619

  Új Válasz 2021-05-08 16:25:55 #46620

  Ú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 the radish #46619 üzenetére

  Ímé:

  Sub SorMasolas()
    Dim ide As Long, sor As Long
    
    ide = Range("A" & Rows.Count).End(xlUp).Row + 1
    sor = 2
    Do While Cells(sor, "M") <> ""
        If Application.WorksheetFunction.CountIf(Columns(2), Cells(sor, "N")) = 0 Then
            Range("M" & sor & ":P" & sor).Copy Range("A" & ide)
            ide = ide + 1
        End If
        sor = sor + 1
    Loop
End Sub

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