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

• #39610 föccer nagyúr Iethau #39608

  Új Válasz 2018-11-15 08:59:48 #39610

  Ú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

  

  föccer

  nagyúr

  válasz Iethau #39608 üzenetére

  Én csinálnék egy segédoszlopot a partnerek listája mellett, amiben egy szerszerű hol.van() függvénnyel keresnék a számlák adatai között. Ahol #hiányzik hibát kapsz, ott nincs találat. Ezután bekapcsolnám az autoszűrőt, kiszűrném az összes #hiányzik hibát és az eredmény táblát kijelölve simán kimásolnám a leszűrt adatokat és egy üres munkalapra érték beillesztéssel bepakolnám.

  A-Z 30 másodperces művelet.

  üdv, föccer

• #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