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

• #10525 Delila_1 veterán bnorci71 #10520

  Új Válasz 2011-06-15 17:55:42 #10525

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

  Írtam hozzá egy makrót, amit az excel1.xls füzetedhez másolj be.
  Alt+F11-re bejön a VB szerkesztő. Bal oldalon kiválasztod az excel1-et, Insert menü, Module.
  Jobb oldalon kapsz egy üres lapot, oda másold.

  Ha nem excel1 és excel2 a füzeteid neve, írd át a saját neveidre. Ugyanúgy a Munka1 lap nevét is, ha nálad más a lapok neve. Mindegyik füzet neve egyszer szerepel a makróban, a hozzá tartozó Munka1 lappal egy sorban.
  A makró futtatásakor legyen mindkét füzeted nyitva.

  Sub kieg()
  Dim sor%, usor%, lel, sor_lel%, WS As Object
  
  Workbooks("excel1.xls").Sheets("Munka1").Activate
  usor% = Range("C60000").End(xlUp).Row
  Set WS = Workbooks("excel2.xls").Sheets("Munka1")
  
  For sor% = 2 To usor%
  With WS.Columns("I:I")
  Set lel = .Find(Cells(sor%, "E"), LookIn:=xlValues)
  sor_lel% = lel.Row
  If Not lel Is Nothing And WS.Cells(sor_lel%, "D") > "" Then
  Cells(sor%, "C") = Cells(sor%, "C") & ". " & WS.Cells(sor_lel%, "D")
  End If
  End With
  Next
  End Sub

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