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

• #16713 UBO csendes tag bozsozso #16711

  Új Válasz 2013-02-14 12:55:17 #16713

  Ú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

  

  UBO

  csendes tag

  válasz bozsozso #16711 üzenetére

  Delila_1 megoldása tökéletes de ha már írtam egy makrót rá akkor megosztom én is
  Így használd:
  Jobb gomb a fülön - kód megjelenítése és oda bemásolod ezt:

  Sub tolt()
  Dim o
  Dim i
  o = ActiveCell.Column
  For i = 2 To ActiveSheet.UsedRange.Rows.Count
  If Cells(i, o).Value = "" Then
  Cells(i, o).Select
  Cells(i, o).Value = ActiveCell.Offset(-1, 0).Range("A1").Value
  End If
  Next i
  End Sub

  Alkalmazása rajzolsz egy téglalapot bárhova, jobb gomb rá - makró hozzárendelése és kiválasztod a tolt -t utána már csak oda kattintasz az egyik oszlopra ahol akarod h megcsinálja és kattinttasz a téglalapra

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