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

• #28275 Snoop-y veterán lappy #28267

  Új Válasz 2015-08-28 10:14:56 #28275

  Ú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

  

  Snoop-y

  veterán

  válasz lappy #28267 üzenetére

  Sziasztok,

  Na mar majdnem jo csak egy problemam van akkor is letrehoz egy lookup sort ha a tablazatban nincs uj sor.
  Igy lesz egy ures sorom a vegen egy lookup-al. Hogyan lehetne rabirni arra hogy csak akkor mukodjon ha uj sor van a tablaban?

  A tabla az A-L -ig van es a P sorban van a lookup

  Sub copyformula()
  Dim usor1 As Long, usor2 As Long
  
  usor1 = Range("A" & Rows.Count).End(xlUp).Row
  usor2 = Range("P" & Rows.Count).End(xlUp).Row
  Range("P" & usor2).Copy
  Range("P" & usor2 + 1 & ":P" & usor1).PasteSpecial xlPasteFormulas
  
  Application.CutCopyMode = False
  
  End Sub

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