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

• #34211 samfishR senior tag Delila_1 #34190

  Új Válasz 2017-02-16 11:00:53 #34211

  Ú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

  

  samfishR

  senior tag

  válasz Delila_1 #34190 üzenetére

  Sziasztok,

  Ennél a makrónál már így is sokat segítettetek, már csak a dátumot kellene áthozni az újonnan beszúrt sorba a következő sorból az idő-1mp mellett (ami már megvan). Tehát a 21-es sorban a következőnek kellene lennie:

  A21: 2016.07.06 (a jelenlegi makróval ez sajnos nem változik, marad 2016.07.03)
  B21: 00:29:59
  C21: MUSZAK2

  

  Ami most be van másolva excelbe (mindent megcsinált kivéve a dátumot az A oszlopban):

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

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

For sor = usor To 3 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

  köszönöm előre is!

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