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

Příspěvky uživatele

Super díky moc

Tak nějak jsem si to představoval. Díky. Ale šlo by načítat do ComboB. jméno místo ID?

Nevím jak je to možné, ale chybu mě to teď hodilo taky. Upravil jsem to a snad to bude OK. Díky

Prosím o pomoc s úpravou položek v seznamu pomocí Userform. UF jsem připravil, ale už bohužel nezvládnu UF naplnit. Díky za případnou pomoc. M.

Super, díky moc

Zdravím, prosím o radu.
Potřebuji vytvořit podmínku při otevírání sešitu. Nyní se mě automaticky otevírá sešit na listě 3 (v dalším makru mohu tento list skrýt), a pokud je tento list skrytý tak bych potřeboval, aby se při otevření sešitu otevřel list 2. Půjde to nějak zařídit? Díky M.

Nemám žádný problém, jen jsem chtěl pomoct. I tak dík. Snad pomůže někdo jiný.

Momentálně to tak funguje, protože se zkopírují listy do nového sešitu. Ale já potřebuji, aby se vytvořila kopie sešitu, jelikož do tohoto dokumentu bude dávat ještě Userform, tak potřebuji, aby se kopie vytvořila i s Userform. Jinak bych to neřešil

Tady je soubor, snad se ti to povede.

Tak jsem z toho jelen, samotný kód funguje, ale pokud se pokusím přidat tvůj kód do mého, tak mě to vyhazuje error. Můžu tě poprosit aby jsi ten tvůj kód vložil do toho mého. Asi to dělám nějak blbě.

Děkuji ti, ale potřebuji radu kam do kódu vložit:
Awb_name=ActiveWorkbook.path & "\" & activeworkbook.name
a
Workbooks.Open Filename:= Awb_name

Něco dělám blbě a asi jsem to špatně vložil do kódu.

Zdravím, potřebuji poradit. Mám otevřený sešit a potřebuji makrem zkopírovat, vytvořit kopii, celého sešitu i s makry, ale tak aby se mě zdrojový sešit (ze kterého provedu kopii) nezavřel. Už nevím jak postupovat, zkoušel to i se záznamem makra, ale když se mě povede udělat kopii sešitu, tak se původní sešit zavře a otevře se kopie sešitu. Přikládám kód. Děkuji za případnou pomoc.
Private Sub CommandButton1_Click()

Dim cesta As String
Dim nove_jmeno As String
Dim cele_jmeno As String
Dim zdroj As String
Dim c_Faktury As String
zdroj = ActiveWorkbook.Name
Dim doDB As Boolean

' EXPORT NABÍDKY
Application.ScreenUpdating = True
doDB = True

' nastavení cesty pro uložení dat - tam kde byl původní sešit otevřen
cesta = ActiveWorkbook.Path
Application.DisplayAlerts = False

c_Faktury = Worksheets("Nabídka").Cells(3, 1).Value ' Číslo faktury

'existuje už v databazi?
For i = 6 To Worksheets("Databáze faktur").Cells(65000, 2).End(xlUp).Row + 1
If c_Faktury = Worksheets("Databáze faktur").Cells(i, 2) Then
f_zprava = MsgBox("V databázi už tato nabídka existuje, chcete přesto provést export?", vbYesNo, "Nabídka už existuje")
Select Case f_zprava
Case vbNo
Exit Sub
Case vbYes
doDB = False
End Select
End If
Next i

' po stisku tlačítka Ulož Nabídku
' zkopíruje celý sešit
ActiveWorkbook.SaveAs


' aktivním sešitem je nově zkopírovaný
' následuje přejmenování

nove_jmeno = c_Faktury & " nabídka" ' buňka I1 - číslo faktury
' nastavení cesty pro uložení
Dim filename As Variant
filename = Application.GetSaveAsFilename(nove_jmeno, "Excel (*.xls),*.*,Excel 07 (*.xls),*.*,", 1, "Uložit jako")
If filename = False Then Exit Sub
cele_jmeno = filename

'=existuje uz soubor?
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(cele_jmeno) Then
sZprava = MsgBox("Ve vámi zvoleném adresáři již tento soubor existuje, chcete tento soubor přepsat?" & vbCrLf & "...zápis v databazi bude nezměněn...", vbYesNo, "Přepsat soubor?")
Select Case sZprava
Case vbNo
Workbooks(Workbooks.Count).Close (False)
Application.CutCopyMode = False
Exit Sub
Case vbYes
End Select

End If

' uložení sešitu do standadní cesty ukládání
ActiveWorkbook.SaveAs (cele_jmeno)

' zavření nově vytvořeného sešitu
ActiveWorkbook.Close

'ulozeni faktury-odkazu, jmena a splatnosti do databaze
Workbooks(zdroj).Activate

Radek = Worksheets("Databáze faktur").Cells(65000, 2).End(xlUp).Row + 1
If doDB = True Then
Worksheets("Databáze faktur").Cells(Radek, 3) = Worksheets("Nabídka").Range("I10") 'Jméno
Worksheets("Databáze faktur").Cells(Radek, 4) = Worksheets("Nabídka").Range("K16") 'Datum vystavení
Worksheets("Databáze faktur").Cells(Radek, 2).Formula = "=hyperlink(""" & cele_jmeno & """,""" & c_Faktury & """)"
End If

Application.DisplayAlerts = True
Application.CutCopyMode = False
Application.ScreenUpdating = False

End Sub

Můj problém je to, že kód napsat neumím, ale představu mám tak jak jsem popsal. Nicméně, pokud máš už nějakou knihu jízd hotovou, třeba bych něco použil pro tu svojí. Pokud by to nebyl problém, tak sem dej ukázku tvé knihy a uvidíme.
Díky,
M.

Ahoj,
potřeboval bych pomoci s naplněním kódu pro UserForm.
Mám list výkaz jízd a do něj potřebuji data vkládat přes UF. Na druhém listu je seznam cest odkud by měl UF čerpat a vkládat do výkazu. UF jsem zvládl vytvořit (viz ukázka), ale s kódem neumím. Pomůže prosím někdo? Díky

Děkuji, už je to v pořádku.

Co přesně tento(Application.EnableEvents = False) příkaz "dělá", tedy k čemu v kódu slouží?
Díky

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse