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

• #13897 Sziszmisz csendes tag #90999040 #13896

  Új Válasz 2012-05-28 20:07:10 #13897

  Ú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

  

  Sziszmisz

  csendes tag

  válasz #90999040 #13896 üzenetére

  ez a verzió nekem így futott le helyesen:

  Sub Modosit()
  Application.ScreenUpdating = False
  For Each r In ActiveCell.CurrentRegion.Offset(0, 1).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

  ugyanis nekem a zölddel kijelölt rész a 3. sorban kezdődik, de most teljesen összezavartál, akkor mit kell módosítanom hogy megadjam hol kezdődik "zöld rész" és hogy "hányadik oszlophoz fűzze hozzá", ugyanis ez táblánként változik....

  azt hogy az elejére fűzze és ne a végére azt be tudom valahogy állítani?

  köszmösz

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