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

• #32796 Delila_1 Topikgazda dav22 #32795

  Új Válasz 2016-09-28 08:51:51 #32796

  Ú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

  Topikgazda

  válasz dav22 #32795 üzenetére

  Azt nem írtad, hogy a két tábla azonos-, vagy külön lapon van-e, és hol helyezkednek el a lap(ok)-on.

  Azt az esetet vettem, mikor a Munka1 és Munka2 lapokon vannak, mindkét esetben Az A1:Px tartományban, címsorral.

  A makrót modulba kell másolnod. A Munka1 és Munka2 neveket írd át a saját lapjaid nevére.

  Sub Osszevonas()
Dim sor As Long, usor As Long, honnan

Sheets("Munka1").Select
usor = Range("A" & Rows.Count).End(xlUp).Row
For sor = usor To 2 Step -1
Rows(sor).EntireRow.Insert
honnan = Application.Match(Cells(sor + 1, 1), Sheets("Munka2").Columns(1), 0)
Sheets("Munka2").Rows(honnan).Copy Sheets("Munka1").Range("A" & sor)
Next
End Sub

  Szerk.: nem írtam bele hibakeresést, feltételezve, hogy a nevek azonosak a két lapon.

  [ Szerkesztve ]

  Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

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