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

• #8731 Delila_1 veterán mcll #8730

  Új Válasz 2010-11-28 18:17:24 #8731

  Ú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 mcll #8730 üzenetére

  Az első oszlopot sorszámnak néztem.

  Sub Lel()
  Dim talal As Variant, usor As Integer, sor As Integer, sor_r As Integer
  Dim nev, adat1, adat2
  
  Windows("ex2.xls").Activate
  Sheets(1).Select
  usor = ActiveSheet.UsedRange.Rows.Count
  sor_r = 1
  
  For sor = 1 To usor
  nev = Cells(sor, 2): adat1 = Cells(sor, 1): adat2 = Cells(sor, 3)
  Windows("ex1.xls").Activate
  Sheets(1).Select
  
  With Columns("B:B")
  Set talal = .Find(nev, LookIn:=xlValues)
  If talal Is Nothing Then
  Workbooks("result.xls").Sheets(1).Cells(sor_r, 1) = adat1
  Workbooks("result.xls").Sheets(1).Cells(sor_r, 2) = nev
  Workbooks("result.xls").Sheets(1).Cells(sor_r, 3) = adat2
  sor_r = sor_r + 1
  End If
  End With
  
  Windows("ex2.xls").Activate
  Next
  End Sub

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