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

• #34181 Delila_1 veterán samfishR #34177

  Új Válasz 2017-02-14 14:24:20 #34181

  Ú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 samfishR #34177 üzenetére

  Modulba tedd a lenti makrót.

  Sub Beszuras()
Dim usor As Long, sor As Long

usor = Range("C" & Rows.Count).End(xlUp).Row

For sor = usor To 2 Step -1
If Cells(sor, 3) <> Cells(sor - 1, 3) Then
Rows(sor).EntireRow.Insert
Cells(sor, 1) = Cells(sor - 1, 1)
Cells(sor, 2) = Cells(sor - 1, 2) + TimeValue("0:0:1")
Cells(sor, 3) = Cells(sor - 1, 3)
End If
Next
End Sub

  Dr V és Roxy27: szívesen.

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