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

• #31521 Delila_1 veterán spe88 #31519

  Új Válasz 2016-05-12 10:17:32 #31521

  Ú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 spe88 #31519 üzenetére

  Másképp:

  Sub Egyes()
  Dim oszlop, usor As Long
  
  oszlop = Application.Match("Cím1", Rows(1), 0)
  usor = Range("E" & Rows.Count).End(xlUp).Row
  Range(Cells(2, oszlop), Cells(usor, oszlop)).Select
  Selection.SpecialCells(xlCellTypeBlanks) = 1
  End Sub

  A Cím1 szöveget keressük az első sorban.

• #31520 Delila_1 veterán spe88 #31519

  Új Válasz 2016-05-12 09:42:38 #31520

  Ú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 spe88 #31519 üzenetére

  Range("D2:D" & Range("E" & Rows.Count).End(xlUp).Row).Select
  Selection.SpecialCells(xlCellTypeBlanks) = 1

  Itt a D oszlop üres celláit tölti ki az E oszlop alsó kitöltött sora szerint.

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