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

• #21162 Delila_1 veterán fogtunder #21161

  Új Válasz 2014-03-31 16:45:18 #21162

  Ú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 fogtunder #21161 üzenetére

  A makróba írtam magyarázó kommenteket.

  Sub Valami()
  Dim usor As Long, oszlop As Integer
  
  'alsó sor az A oszlopban
  usor = Range("A" & Rows.Count).End(xlUp).Row
  
  'első üres oszlop a 3. sorban
  oszlop = Range("A3").End(xlToRight).Column + 1
  
  'képlet az első üres oszlopba 3-tól usorig
  Range(Cells(3, oszlop), Cells(usor, oszlop)) = _
  "=IFERROR(VLOOKUP(A3,Stock_Movements_Coverage!A:AC,17,0),0)"
  
  
  Columns(oszlop).Copy 'képletek másolása
  
  'értékek irányított beillesztése
  Cells(1, oszlop).PasteSpecial xlPasteValues
  End Sub

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