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

MS Excel

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

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

Jméno
Kontrola
Text
	Ukázka

---

JoKe(27.5.2021 15:39)#050744

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

ActiveSheet.Range(PrvniPrazdnyRadek,1).Value = acitovat

Anonym(27.5.2021 16:13)#050745

Tak bohužel. VBA hlásí chybucitovat

Stalker(27.5.2021 17:20)#050746

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 Subcitovat

elninoslov(27.5.2021 18:03)#050747

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

Pja(28.5.2021 8:47)#050751

Mockrát díky. Funguje obojí.citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse