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

• #38304 Delila_1 veterán ztoldy #38302

  Új Válasz 2018-06-11 10:14:19 #38304

  Ú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 ztoldy #38302 üzenetére

  Modulba

  Sub Osszevonas()
Dim sor As Long

Application.DisplayAlerts = False
Application.ScreenUpdating = False
sor = 2
Do While Cells(sor, "D") <> ""
Range("D" & sor & ":E" & sor).MergeCells = True
sor = sor + 1
Loop
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

  Ha nincs címsorod, a sor=2 helyett írj sor=1-et.

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