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

• #36100 Delila_1 veterán szente #36099

  Új Válasz 2017-09-08 13:09:47 #36100

  Ú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 szente #36099 üzenetére

  Másold modulba (lásd Téma összefoglaló) a lenti makrót.

  Sub Mi_Nincs()
Dim sor As Long, usor As Long, sor1 As Long
Dim WSKis As Worksheet, WSNagy As Worksheet

Set WSKis = Sheets("Kisker")
Set WSNagy = Sheets("Nagyker")

usor = WSNagy.Range("A" & Rows.Count).End(xlUp).Row
sor1 = WSKis.Range("A" & Rows.Count).End(xlUp).Row + 1

For sor = 2 To usor
If Application.WorksheetFunction.CountIf(WSKis.Columns(1), _
WSNagy.Cells(sor, 1)) = 0 Then
WSKis.Cells(sor1, "A") = WSNagy.Cells(sor, 1)
WSKis.Cells(sor1, "B") = WSNagy.Cells(sor, 2)
sor1 = sor1 + 1
End If
Next
End Sub

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