Ú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

• #1644 martonx veterán erich85T #1643

  Új Válasz 2012-02-21 15:22:52 #1644

  Ú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

  Szia!

  Ez egyszerűbb, mint a múltkori problémád. Este rászánom azt a pár percet, és megírom azt a pár sor kódot, ha addig nem segít más.

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