< návrat zpět

MS Excel


Téma: Ze sešitu otevřít jiný a vybrat v něm nějaký lis rss

Zaslal/a 31.1.2022 18:09

Help-Help-Help
Potřebuji v sešitě spustit makro, které mi umožní v určeném sešitě vybrat nějaký (není dopředu určeno)list, ze kterého se bude určitá část kopírovat.
Nevím, jak ošetřit čekání na výběr listu v rámci běhu makra. Jde to, nebo mám debilní představy.
Předem díky za nápovědný kopanec.

Zaslat odpověď >

#052022
Lugr
Někdo to musí dotáhnout. 8

Sub Import()

Dim CESTA As String
Dim SOUBOR As String
Dim ZDROJ As String
Dim CIL As String
Dim LIST As String

CESTA = "C:\Users\Desktop\"
ZDROJ = "Zdroj.xlsm"
CIL = "CIL.xlsm"

SOUBOR = CESTA & ZDROJ

If Dir(SOUBOR) = "" Then MsgBox "Soubor " & SOUBOR & " neexistuje!", vbCritical: Exit Sub

Workbooks.Open Filename:=SOUBOR, UpdateLinks:=0

LIST = Application.InputBox("Zadejte název listu:", Type:=2)
If LIST = "False" Then Exit Sub

Workbooks(CIL).Sheets("List1").Range("B2").Resize(14, 2).Value = Workbooks(ZDROJ).Sheets(LIST).Range("B2").Resize(14, 2).Value

Workbooks(ZDROJ).Close SaveChanges:=False

End Sub
citovat
#052024
avatar
Lugr - díky moc.Vypadá to mnohem lépe než moje vlastní
nápady. Jdu to vyzkoušet.citovat
#052026
avatar
Funguje to k mé spokojenosti.
Stačí jen trochu očistit vybraný název,
což je něco jiného, než ho vypisovat-jsou dost komplikovaný.
Ještě jednou velkej dík.citovat
#052045
Lugr
Ještě zkus tohle.
Příloha: zip52045_test.zip (17kB, staženo 20x)
citovat
#052057
avatar
Díky - zabudováno.
Teď to má i trochu víc PROFI vzhled.
exceleda 1 1 1citovat

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

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09