• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Fórum

Příspěvky uživatele

elninoslov

Ty žiješ? Super, děkuji moc.

Kluci poraďte mi prosím co dělám špatně při kopírování aniž bych musel zdroj otevřít.

Chtěl jsem něco jednoduchého, ale asi jsem to domatlal.

Sub Import()

' Import dat z jiného souboru

Dim Cesta As String
Dim Soubor As String
Dim List As String
Dim Zdroj As String
Dim Nazev As String

Cesta = "C:\Users\Downloads"
Nazev = "Zdroj.xlsx"
List = "List1"

Soubor = Cesta & "\" & Nazev

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

Zdroj = "='" & Cesta & "\" & "[" & Nazev & "]" & List & "'!"

Sheets("List1").Range("A1:B2").Value = Zdroj.Range("A1:B2").Value
Sheets("List1").Range("D3:E4").Value = Zdroj.Range("D3:E4").Value

End Sub

Příloha?

Já poslal špatnou přílohu, tak nic no. To jsem ale kus debila.

Jak říká Jiří497

Mě přijde, že si to hrozně komplikujete.

Předpokládám, že data z ERP přenášíte makrem, které není součástí přílohy. Nebo data vkládáte ručně?

Nevím jestli nová data přemazávají stará data nebo se mají řadit pod sebe.

Ještě vkládám přílohu s makrem, které vymaže stará data, Vy do něj vložíte kód na import dat z ERP, pokud nějaký máte.

Ale proč mažete KT? Vždyť stačí smazat data v Tabulce1.

Nechci Vám předělávat celou tabulku kvůli tomu.

Tak zkuste nejprve tohle:

Dim Radek As Long

Radek = Sheets("Data").Cells(Rows.Count, 1).End(xlUp).Row

SourceData:= "Data!A1:AR" & Radek

Do toho Vašeho makra jsem nezasahoval a ani nevím na co ho máte, ale pokud je to na aktualizaci KT tak by Vám možná stačilo pouze toto:

Sub Aktualizace()
ActiveWorkbook.RefreshAll
End Sub

Pouze jsem Vám naformátoval tabulku.

Když se podíváte do zdroje KT je tam Tabulka1 a né Range("Bla:Bla").

Tohle funguje, ale musíš vždy po posunutí kliknout do libovolné buňky.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
With Cells(Windows(1).ScrollRow, Windows(1).ScrollColumn)
CommandButton1.Top = .Top
CommandButton1.Left = .Left + 300
End With
End Sub

No nic já si to mezi tím vymyslel.

Ale v tvém případě to bude takto:

CommandButton1.Top = 12
CommandButton1.Left = 12

Vlož přílohu, ať víme jaké tlačítko, jak velké má být a kde má být.

Je tam list Menu, bohužel matici jsem musel stáhnout z netu. Já matice neumím.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Formulář Faktura

Helios iNuvio

On-line nástroje