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

• #1645 martonx veterán erich85T #1643

  Új Válasz 2012-02-21 21:09:07 #1645

  Ú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

  

  martonx

  veterán

  válasz erich85T #1643 üzenetére

  Public Sub sorolo()
  sor = 1
  While Cells(sor, 2) <> ""
  If Cells(sor, 2) <> Cells(sor + 1, 2) Then
  Rows(sor + 1 & ":" & sor + 1).Select
  Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
  sor = sor + 1
  End If
  sor = sor + 1
  Wend
  End Sub

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