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

• #2831 Delila_1 veterán Retekegér #2830

  Új Válasz 2007-11-16 12:30:59 #2831

  Ú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 Retekegér #2830 üzenetére

  Az alábbi makró feltételezi, hogy a két lapod neve 2007, ill. 2008, valamint, hogy a termék neve mindkét lapon A2-ben, az ár B2-ben kezdődik.

  Sub keres()
  Sheets("2008").Select: Cells(1, 1).Select
  Selection.End(xlDown).Select
  sor_8a = Selection.Row
  Sheets("2007").Select: Cells(1, 1).Select
  Selection.End(xlDown).Select
  sor_7a = Selection.Row
  For sor_7 = 2 To sor_7a
  termék = Cells(sor_7, 1)
  For sor_8 = 2 To sor_8a
  If Sheets("2008").Cells(sor_8, 1) = termék Then
  Cells(sor_7, 3) = Sheets("2008").Cells(sor_8, 2)
  End If
  Next
  Next
  End Sub

  Másold be, és futtasd.

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