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

• #6193 Delila_1 veterán Pulsar #6192

  Új Válasz 2010-02-11 07:15:48 #6193

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

  Sub Keres()
  Dim usor As Integer
  
  usor = Sheets("IDE_MÁSOLD").Range("E65536").End(xlUp).Row
  Sheets("IDE_MÁSOLD").Range("U1").Select
  Selection.Formula = "=VLOOKUP(E1,PN!A:B,2,0)"
  Selection.AutoFill Destination:=Range("U1:U" & usor), Type:=xlFillDefault
  Columns(2).Copy
  Selection.PasteSpecial Paste:=xlPasteValues
  Application.CutCopyMode = False
  Range("A1").Select
  End Sub

  Átírtam az utolsó sor (usor) értékét, most az IDE_MÁSOLD lap E oszlopában lévő adatok alsó sorának számát veszi fel a változó.
  A Range("A1").Select sorban írd az A1 helyére azt a cellát, ahonnan kényelmesen folytathatod a munkát.

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