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

Příspěvky uživatele

Mockrát díky. Funguje obojí.

Dobrý den,
byl by prosím někdo tak hodný a poradil proč mi to nefunguje. Mělo by to po stisku tlačítka dělat : najdi poslední volný řádek na listu 2 ve sloupci A a vlož hodnotu z listu1 z buňkyA1. Děkuji.

Private Sub CommandButton1_Click()
a = Range("A1").Value
b = Range("B4").Text

Sheets("List2").Activate
PosledniPlnyRadek = Range("A1").End(xlDown).Row
PrvniPrazdnyRadek = PosledniPlnyRadek + 1
ActiveSheet.Range("PrvniPrazdnyRadek").Value = a

ActiveSheet.Range("D2").Value = b
End Sub

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje