MS Excel

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ěď >

Lugr(31.1.2022 19:19)#052022

Někdo to musí dotáhnout.

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 Subcitovat

Anonym(1.2.2022 9:01)#052024

Lugr - díky moc.Vypadá to mnohem lépe než moje vlastní
nápady. Jdu to vyzkoušet.citovat

exceleda(1.2.2022 10:18)#052026

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

Lugr(2.2.2022 19:23)#052045

Ještě zkus tohle.

Příloha: zip

52045_test.zip (17kB, staženo 21x)

citovat

exceleda(3.2.2022 16:33)#052057

Díky - zabudováno.
Teď to má i trochu víc PROFI vzhled.
exceleda

citovat

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

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje