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

• #13896 #90999040 törölt tag Sziszmisz #13895

  Új Válasz 2012-05-28 19:54:16 #13896

  Ú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

  

  #90999040

  törölt tag

  válasz Sziszmisz #13895 üzenetére

  

  Akkor nézd meg ezt. Ebben már benne van a sorszámozás oszlopa is, valamint itt már nem a színezés számít, hanem, hogy üres-e a Terméktípus oszlpa.

  Sub Modosit()
  Application.ScreenUpdating = False
  For Each r In ActiveCell.CurrentRegion.Offset(0, 2).Resize(columnsize:=1)
  If r.Value = "" Then
  s = Cells(r.Row, r.Column - 1).Value
  Else
  r.Value = r.Value & " " & s
  End If
  Next
  Application.ScreenUpdating = True
  End Sub

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