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

• #31522 Delila_1 veterán Delila_1 #31521

  Új Válasz 2016-05-12 10:28:51 #31522

  Ú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 Delila_1 #31521 üzenetére

  A Select-et kiküszöbölve:

  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)).SpecialCells(xlCellTypeBlanks) = 1
  End Sub

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