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

• #39609 Delila_1 veterán Iethau #39608

  Új Válasz 2018-11-15 07:17:17 #39609

  Ú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 Iethau #39608 üzenetére

  A két lap neve nálam Régi és Friss. Az ügyfelek neve mindkét lapon az A oszlopban van. Írd át a makróban a saját lapjaid nevére.
  A makrót modulba másold, ennek módját lásd a Téma összefoglalóban.

  Sub Frissites()
Dim sor As Long, talal, usor As Long

Sheets("Régi").Activate
usor = Range("A" & Rows.Count).End(xlUp).Row

For sor = usor To 2 Step -1
On Error Resume Next
talal = Application.Match(Cells(sor, "A"), Sheets("Friss").Columns("A"), 0)
If IsError(talal) Then Rows(sor).Delete Shift:=xlUp
On Error GoTo 0
Next
End Sub

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