Pokud chceš od někoho radu, měl by si poskytnout informace. Nejlépe ve formě sešitu, kde bude vidět struktura dat.
Protože informace z této věty:
Range("A2:E11").Select - E11 bych potřeboval nahradit poslední buňkou, kde jsou na listu vyplněná nějaká data.
Můžou být dost zavádějící ...
Budu předpokládat, že na prvním řádku je záhlaví tabulky.
V tom případě může kód vypadat takto:
Sub test()
Dim SHL As Worksheet, SHT As Worksheet
Dim radek As Long, sloupec As Integer
Dim oblast As Range
Set SHL = Sheets("limito")
Set SHT = Sheets("přehled tankování")
With SHL.UsedRange
radek = .Rows.Count
sloupec = .Columns.Count
Set oblast = .Range(.Cells(2, 1), .Cells(radek, sloupec))
End With
oblast.Copy SHT.Cells(Cells(Rows.Count, 1).End(xlUp).Row + 1, 1)
End Sub
Důrazně doporučuji testovat kód na kopii souboru !!!citovat
Protože informace z této věty:
Range("A2:E11").Select - E11 bych potřeboval nahradit poslední buňkou, kde jsou na listu vyplněná nějaká data.
Můžou být dost zavádějící ...
Budu předpokládat, že na prvním řádku je záhlaví tabulky.
V tom případě může kód vypadat takto:
Sub test()
Dim SHL As Worksheet, SHT As Worksheet
Dim radek As Long, sloupec As Integer
Dim oblast As Range
Set SHL = Sheets("limito")
Set SHT = Sheets("přehled tankování")
With SHL.UsedRange
radek = .Rows.Count
sloupec = .Columns.Count
Set oblast = .Range(.Cells(2, 1), .Cells(radek, sloupec))
End With
oblast.Copy SHT.Cells(Cells(Rows.Count, 1).End(xlUp).Row + 1, 1)
End Sub
Důrazně doporučuji testovat kód na kopii souboru !!!citovat
\n
RSS nejnovější články