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

• #22849 Delila_1 veterán gyu84 #22842

  Új Válasz 2014-08-12 15:36:43 #22849

  Ú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

  

  Delila_1

  veterán

  válasz gyu84 #22842 üzenetére

  Próbáld meg ezt:

  Sub Kitoltes()
  Dim usor As Long, usor1, oszlop
  
  usor = Columns(1).SpecialCells(xlLastCell).Row
  
  For oszlop = 2 To 11
  If Cells(usor, oszlop) = "" Then
  usor1 = Cells(Rows.Count, oszlop).End(xlUp).Row
  Cells(Rows.Count, oszlop).End(xlUp).Select
  Selection.AutoFill Destination:=Range(Cells(usor1, oszlop), _
  Cells(usor, oszlop)), Type:=xlFillDefault
  End If
  Next
  End Sub

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