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

• #11084 Delila_1 veterán TNT #11079

  Új Válasz 2011-08-15 17:30:40 #11084

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

  Itt van az új makró a pontosítások után:

  Sub mmm()
  Dim talal As Variant, usor As Integer, sor As Integer
  Dim adat_1, adat_2

  Windows("segédtábla.xls").Activate
  Sheets(1).Select
  usor = ActiveSheet.UsedRange.Rows.Count

  For sor = 2 To usor
  adat_1 = Cells(sor, 1): adat_2 = Cells(sor, 2)
  Windows("főtábla.xls").Activate
  Sheets(1).Select
  On Error Resume Next
  talal = Columns("A:A").Find(adat_1, LookIn:=xlValues).Row
  Workbooks("főtábla.xls").Sheets(1).Cells(talal, 1) = adat_2
  Windows("segédtábla.xls").Activate
  Next
  End Sub

  Alt+F11-gyel behívod a VBA szerkesztőt. Bal oldalon a kiválasztod a füzetedet – mindegy, hogy a kettő közül melyiket. A néven jobb klikk, Insert, Module. Jobb oldalon kapsz egy üres felületet, oda másold be a makrót.
  Mindkét füzeted legyen nyitva. Az egyikben állva Eszközök, Makró, Makrók – vagy ezek helyett Alt+F8 –, kapsz egy párbeszéd ablakot, ott indítod a hangzatos mmm című makrót.

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