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

• #38737 Delila_1 veterán BalanceR #38735

  Új Válasz 2018-08-02 07:27:40 #38737

  Ú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 BalanceR #38735 üzenetére

  Legyen mindkét füzet megnyitva. Nálam a Füzet1.xlsm-ben van a makró, modulban, a másik neve Füzet2.xlsx.
  Mindkét füzetben Munka1 a lap neve, és címsort feltételezek.

  Sub Egyeztet()
Dim sor As Long, usor As Long
Dim WS1 As Worksheet, WS2 As Worksheet, talal

Set WS1 = Workbooks("Füzet1.xlsm").Sheets("Munka1")
Set WS2 = Workbooks("Füzet2.xlsx").Sheets("Munka1")

WS1.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, 1), WS2.Columns(1), 0)
If IsError(talal) Then
Rows(sor).Delete Shift:=xlUp
On Error GoTo 0
Else
Cells(sor, 9) = WS2.Cells(talal, 9)
End If
Next
End Sub

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