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

• #9446 Delila_1 veterán eeeasy #9444

  Új Válasz 2011-02-13 20:03:06 #9446

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

  Úgy látszik, közben m.zmrzlinának más dolga akadt. Az ő példájából a templomi nagyharangot – ahol az első táblázatban csupán nagyharang szerepel – nem találja meg a lenti makró. Ahol az első táblában elől szerepel a második tábla termékneve (pl. első: lorem ipsum-dolor, második: lorem ipsum), ott rátalál.

  Sub mm()
  Dim talál As Integer, sor As Integer, usor As Integer
  
  usor = Range("H1000").End(xlUp).Row
  For sor = 3 To usor
  talál = 1
  On Error Resume Next
  talál = Range("A:A").Find(Cells(sor, 8)).Row
  Cells(sor, 11) = Cells(talál, 2)
  Next
  End Sub

  Az adatokat úgy helyeztem el 1 lapon, ahogy m.zmrzlina.

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