< návrat zpět

MS Excel


Téma: VBA název cílového listu z buňky rss

Zaslal/a 28.3.2020 22:36

Dobrý den,

v příloze mám tabulku, rozsah je dynamický, kterou chci klasicky kopírovat do listu téhož sešitu, který je ovšem definovaný v buňce AB2. Název listu se mění dle číselné hodnoty v A1. Z A1 mám vzorec na název listu, kam chci data poslat (kolo1, kolo10 atd.)
Mám klasický vzorec VBA s pevně daným názvem. Prosím, poraďte, nedokážu to. Pro odborníky hračka, já už na tom takhle strávil dost a na tohle jsem teď krátký.
Tady vzorec s listem "napevno" daným. Takže Sheets ("kolo10") chci nahradit dynamickým názvem v buňce v AB2.

Sub Copy2Sheet()
Application.ScreenUpdating = False
Dim LastRow As Long
LastRow = Sheets("TABKOL").Cells(Rows.Count, "B").End(xlUp).Row
Sheets("TABKOL").Range("B1:Z" & LastRow).Copy
Sheets("kolo10").Range("A1:Y" & Rows.Count).End(xlUp).Offset(0, 0).PasteSpecial xlPasteValues
Application.Goto Sheets("kolo10").Range("A1")
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

Díky moc, poklona předem.
Edit: nejde vložit, sdílím odkaz
https://1drv.ms/x/s!AkEGAWH1Hfp0jooMEqcIOMGSCB05JA?e=gRyIeP

Zaslat odpověď >

#046310
elninoslov
Prílohu XLSM môžete pridať iba zabalenú do ZIP. Tu máte návrh riešenia, bez kontroly či obsahuje list nejaké dáta, či existuje list a pod.:
Sub Copy2Sheet()
Dim LastRow As Long, List As String
With Sheets("TABKOL")
LastRow = .Cells(Rows.Count, "B").End(xlUp).Row
List = .Range("AB2").Value
Sheets(List).Range("A1:Y" & LastRow).Value = .Range("B1:Z" & LastRow).Value
Application.Goto Sheets(List).Range("A1")
End With
End Sub
Příloha: zip46310_copysheetfromcell.zip (15kB, staženo 3x)
citovat
#046312
avatar
Mockrát děkuji!citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura III

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

Aktivní diskuse

Přenos buňky do řádku jiného listu

elninoslov • 1.6. 6:29

Přenos buňky do řádku jiného listu

Jiří497 • 31.5. 23:13

Přenos buňky do řádku jiného listu

marbl • 31.5. 21:27

Přenos buňky do řádku jiného listu

marjankaj • 31.5. 21:19

skopiruj bunky a vlozit

Jiří497 • 31.5. 16:19

Přenos buňky do řádku jiného listu

Jiří497 • 31.5. 16:11

Přenos buňky do řádku jiného listu

marbl • 30.5. 21:44