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

• #8725 Delila_1 veterán mcll #8724

  Új Válasz 2010-11-28 17:57:19 #8725

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

  Sub hianyzok()
  Dim talal As Variant, usor As Integer, sor As Integer, sor_r As Integer
  Dim nev As Variant, adat As Variant
  
  Windows("ex2.xls").Activate
  Sheets(1).Select
  usor = ActiveSheet.UsedRange.Rows.Count
  sor_r = 1
  
  For sor = 1 To usor
  nev = Cells(sor, 2): adat = Cells(sor, 1)
  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) = adat
  Workbooks("result.xls").Sheets(1).Cells(sor_r, 2) = nev
  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