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

• #6189 Delila_1 veterán Pulsar #6188

  Új Válasz 2010-02-10 08:32:18 #6189

  Ú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 Pulsar #6188 üzenetére

  Azt nem írtad, hogy ezt a képletet melyik oszlopba akarod tenni. Én a Munka1 lapon a B oszlopba vittem fel.

  Sub képlet()
  Dim usor As Integer
  
  usor = Sheets("PN").Range("A65536").End(xlUp).Row
  Sheets("Munka1").Range("B1").Select
  Selection.Formula = "=VLOOKUP(E1,PN!A:B,2,0)"
  Selection.AutoFill Destination:=Range("B1:B" & usor), Type:=xlFillDefault
  End Sub

  Az usor=Sheets("PN" ... lekérdezi a PN lap A oszlop utolsó kitöltött sorának sorszámát. A következő sor a Munka1 lap B1 cellájára lép, az ezt követő beírja a képletet. A képlet másolását az utolsó sor végzi el kitöltéssel.

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