Příspěvky uživatele


< návrat zpět

Najít poslední volný řádek a vložit hodnotu (28.5.2021 8:47)

Mockrát díky. Funguje obojí.

Najít poslední volný řádek a vložit hodnotu (27.5.2021 15:18)

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)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

Čas od do

lubo • 19.4. 16:30

Makro smyčka

MilanKop • 19.4. 10:46

Makro smyčka

elninoslov • 19.4. 9:02

Čas od do

elninoslov • 19.4. 8:46

Čas od do

jarek1111 • 18.4. 13:46

Čas od do

lubo • 18.4. 11:13

Čas od do

jarek1111 • 18.4. 8:32