< 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

Sumar nakupov

Pavlus • 22.1. 13:05

VBA - načtení dat ze souboru s proměnným názvem

Fantasyk • 22.1. 9:12

Sumar nakupov

Robo11 • 21.1. 21:23

VBA - načtení dat ze souboru s proměnným názvem

€Ł мσşqμΐτσ • 21.1. 12:21

Tělo emailu ve VBA - formát

Fantasyk • 20.1. 20:47

odstranenie opakujucich sa udajov v riadkoch

frantilopa • 20.1. 18:12

odstranenie opakujucich sa udajov v riadkoch

marjankaj • 20.1. 18:01