< návrat zpět

MS Excel


Téma: Najít poslední volný řádek a vložit hodnotu rss

Zaslal/a 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

Zaslat odpověď >

#050744
avatar
Od boku, nemám možnost vyzkoušet
ActiveSheet.Range("PrvniPrazdnyRadek").Value = a

ActiveSheet.Range(PrvniPrazdnyRadek,1).Value = acitovat
#050745
avatar
Tak bohužel. VBA hlásí chybucitovat
#050746
Stalker
Private Sub CommandButton1_Click()
Dim Radek As Long

With Worksheets("List2")
Radek = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(Radek, 1).Value = Worksheets("List1").Cells(1, 1).Value
End With
End Sub
citovat
#050747
elninoslov
Ak sa nespracováva tá premenná aj niekde inde, tak ju netreba:
Worksheets("List2").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Value = Worksheets("List1").Cells(1, 1).Valuecitovat
#050751
avatar
Mockrát díky. Funguje obojí.citovat

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

Spustit makro v určitý čas

Baja • 28.11. 20:11

Spustit makro v určitý čas

elninoslov • 28.11. 17:09

Spustit makro v určitý čas

Baja • 28.11. 12:51

Spustit makro v určitý čas

elninoslov • 28.11. 0:31

Spustit makro v určitý čas

Baja • 27.11. 22:22

Spustit makro v určitý čas

Anonym • 27.11. 22:20

Spustit makro v určitý čas

elninoslov • 27.11. 21:11