• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Jak v makru nastavit tažení vzorce?

Zaslal/a Majki 2.7.2019 10:20

Když spustím makro a vznikají mi nové soubory s různým počtem řádků, potřebuji pak v novém listu nastavit vzorec tak, aby se mi automaticky stáhnul dolů(dvojklik na pravý dolní roh buňky se vzorcem), ale při vypisování makra se mi automaticky doplní tažení vzorce k poslední buňce konkrétně. Jak nastavím aby tato hodnota byla vždy po poslední buňku v sešitu?

Zaslat odpověď >

---

Rejpal(2.7.2019 10:59)#043642

https://office.lasakovi.com/excel/vba-listy-bunky/radky-sloupce-excel-vba-kody/citovat

Majki(2.7.2019 12:46)#043645

Nevím si s tím rady prosím o pomoc. Mám sloupec E a do něj potřebuju makrem natáhnout vzorec =KDYŽ(B2<>B1;"";KDYŽ(D2=D1;"";"Změna"))citovat

Rejpal(2.7.2019 13:45)#043646

Např.
Sub Vzorec()
List1.Range("E1") = "=IF(RC[-3]<>R[1]C[-3],"""",IF(R[1]C[-1]=RC[-1],"""",""Změna""))"
End Subcitovat

Majki(2.7.2019 13:51)#043647

To je vložení vzorce do buňky, to vím, ale jí teď potřebuji stáhnout vzorec dolů ale nevím, kolik je celkem řádků v listu.Děkujicitovat

Rejpal(2.7.2019 14:02)#043648

Sub Vzorec()
List1.Range("E1") = "=IF(RC[-3]<>R[1]C[-3],"""",IF(R[1]C[-1]=RC[-1],"""",""Změna""))"
Range("E1").AutoFill Destination:=Range("E1:E16"), Type:=xlFillDefault
End Sub

Sub Vzorec()
List1.Range("E1") = "=IF(RC[-3]<>R[1]C[-3],"""",IF(R[1]C[-1]=RC[-1],"""",""Změna""))"
Range("E1").AutoFill Destination:=Range("E1:E" & Posledni), Type:=xlFillDefault
End Sub

Proměnnou Posledni viz. první příspěvekcitovat

Majki(2.7.2019 14:20)#043649

Velké díky!!!!!!Funguje:)citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse