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

• #20054 _NCT addikt _NCT #20053

  Új Válasz 2014-01-12 12:05:56 #20054

  Ú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

  

  _NCT

  addikt

  válasz _NCT #20053 üzenetére

  Nos netről kikukáztam a megoldást, szerintem egész jó így:

  Sub InsertRowsAtValueChangeColumnC()
  Dim X As Long, LastRow As Long
  Const DataCol As String = "C"
  Const StartRow = 2
  LastRow = Cells(Rows.Count, DataCol).End(xlUp).Row
  Application.ScreenUpdating = False
  For X = LastRow To StartRow + 3 Step -1
  If Cells(X, DataCol).Value <> Cells(X - 1, DataCol) Then Rows(X).Insert
  Next
  Application.ScreenUpdating = True
  End Sub

  Már csak azt kellene megoldani a makróban, hogy hasonlóképp pl az F és G oszlop értékeit vonja ki egymásból és írja az M és N oszlopba az eredményeket.

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