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

• #14466 bozsozso őstag Delila_1 #14453

  Új Válasz 2012-07-26 09:35:51 #14466

  Ú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

  

  bozsozso

  őstag

  válasz Delila_1 #14453 üzenetére

  Köszönöm szépen ezt is ki fogom próbálni.

  Az alábbi kis makróval oldottam a feladatot. Nem egy gyors, de így működik.

  Set cel = ActiveSheet
  fnev = Application.GetOpenFilename("Forgalmi adatok (*.xls),*.xls)")
  If fnev = False Then
  Exit Sub
  End If
  Workbooks.Open Filename:=fnev, ReadOnly:=True
  
  For i = 2 To 3398
  For a = 2 To 4964
  
  If ThisWorkbook.Worksheets(1).Cells(i, 2) = Cells(a, 3) And Cells(a, 6) = ThisWorkbook.Worksheets(1).Cells(i, 6) Then
  
  ThisWorkbook.Worksheets(1).Cells(i, 9) = Cells(a, 20)
  
  End If
  
  
  Next
  Next
  ActiveWindow.Close

  Esetleg ha valaki tuds segítené még abban, hogy kicsit gyorsabb legyen az jó lenne.

  Előre is köszönöm.

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