Příspěvky uživatele


< návrat zpět

Strana:  1 ... « předchozí  4 5 6 7 8 9 10 11 12   další » ... 20
Kopie více listů (8.5.2012 20:18)

Díky za typy, ale bohužel ani jedna z možností nefunguje. Vždy se mě zkopíruje pouze jeden list. Nevím kde bych mohl dělat chybu 7

Kopie více listů (7.5.2012 22:39)

Zdravím, potřebuji makrem zkopírovat více listů do nového sešitu. Kopírované listy obsahují vzorce a já bych potřeboval, aby se do nového sešitu zkopírovala jen data bez vzorců, popřípadě odkazů. Níže uvedený kód fungoval přesně tak jak potřebuji, ale pouze pokud kopíroval jediný list, když jsem přidal ještě jeden, tak to hází chybu. Kde jsem udělal chybu?

Worksheets(Array("Faktura", "List4")).Select
Sheets(Array("Faktura", "List4")).Copy
ActiveSheet.Cells.UnMerge
ActiveSheet.Cells(1, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Zde je neupravený kód pro kopii 1 listu:
Worksheets("Faktura").Copy
ActiveSheet.Cells.UnMerge
Workbooks(zdroj).Sheets("Faktura").Cells.Copy
ActiveSheet.Cells(1, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
ActiveSheet.Shapes("TL1").Delete

TextBox (9.4.2012 17:37)

Díky moc, funguje skvěle a myslím, že asi nemá cenu to nějak ošetřovat. Texbox zamknu aby nebylo možné do něj zapisovat, jelikož má pouze info charakter. Jediné co nemám vyzkoušeno je formát čísla, jde nějak nastavit, aby se zobrazovala částka s deset. místy př.4,00?

TextBox (8.4.2012 23:54)

Zdravím, potřebuji poradit:
V přiloženém souboru je UF s kterým vkládám položky do formuláře. UF vybírá položky z databáze položek a v UF se zobrazuje pouze název položky, nyní jsem přidal do UF TextBox ve kterém bych potřeboval zobrazit cenu vybrané položky. V sešitě je vše připravené, ale napsat kód k texboxu nezvládnu. Děkuji za pomoc.

Podmínka (2.4.2012 23:21)

Děkuji, funguje skvěle....

Podmínka (1.4.2012 22:35)

Ahoj, potřebuji poradit. Mám kód na deaktivaci razítka (obrázku razítka)ve formuláři, ale potřeboval bych přidat podmínku, která by přeskočila proces deaktivace razítka pokud v sešitě není vložen obrázek razítka. Snad jsem to napsal srozumitelně:-)
Prosím o radu.
Zde je kód:
Private Sub CheckBox1_Click()
Application.ScreenUpdating = False

If CheckBox1.Value = True Then
Sheets("NastaveníFaktury").Shapes("razitko").Visible = True
End If

If CheckBox1.Value = False Then
Sheets("NastaveníFaktury").Shapes("razitko").Visible = False
End If
Application.ScreenUpdating = True

End Sub

Zobrazení obrázku v Userform (13.3.2012 16:22)

Hm, tak to není dobré. A co situace, kdy bych z userform ukládal do listu např. logo v jpg. na list1. Proběhne proces uložení a šlo by zobrazit v UF náhled uloženeho loga? Obrázek by se nemusel stále zobrazovat v UF, ale jen při vkládání do listu. Je nějaká možnost?

Zobrazení obrázku v Userform (11.3.2012 21:39)

Díky za radu, ale špatně jsem to popsal, mám sice graf, ale pomocí funkce fotoaparát jej mám rozmnožený po více listech. Tak bych tedy potřeboval do UF dostat pouze obrázek který je umístěn v pojmenované oblasti. Stejným způsobem bych pak vyřešil i vložení loga do UF. Šlo by to nějak?

Zobrazení obrázku v Userform (11.3.2012 18:06)

Zdravím, chci se zeptat zda už někdo řešil zobrazení obrázku v userformu, který je umístěn v listu.
Nevím jak na to. Obrázek je vložen v pojmenované oblasti buněk, ale jak jej dostat do UF? Ten obrázek se bude měnit, jde o graf. Poradí někdo?

Nefunkční ScreenUpdating (11.3.2012 18:00)

Vyřešeno. Problém byl v listu který byl exportován nikoliv kódu.

Nefunkční ScreenUpdating (11.3.2012 10:56)

Ne zcela jsem tvoji odpověď pochopil. ScreenUpd nefunguje vůbec v tomto kódu. Ale nechápu proč funguje v jiném kódu který je úplně stejně napsaný (rozdíl je jen v názvu listů které se vyskytují v kódu)

Nefunkční ScreenUpdating (9.3.2012 20:38)

Zdravím, můžete se někdo mrknout na tento kód a poradit proč nefunguje Application.ScreenUpdating = False v tomto kódu?
Mám úplně stejně řešený kód pro export dalšího listu a v tom to funguje normálně. Jsem z toho jelen a netuším, proč to nejde, nebo že by nějaká chyba v Excelu? Díky

Sub Export_do_databaze2()
Application.ScreenUpdating = False
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 Faktury

doDB = True
ActiveWorkbook.Save

' nastavení cesty pro uložení dat - tam kde byl původní sešit otevřen
cesta = ActiveWorkbook.Path
Application.DisplayAlerts = False
Application.ScreenUpdating = False
c_Faktury = Worksheets("Faktura").Cells(14, 20).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 faktura existuje, chcete přesto provést export?", vbYesNo, "Faktura 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ž fakturu
' zkopíruje celý list "Faktura" do nového sešitu
awb_name = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name




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

nove_jmeno = c_Faktury & "" ' 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 faktury?
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
' Skrytí nepotřebných listů
Sheets("Menu").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("Databáze nabídek").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("Databáze faktur").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("Nabídka").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("Faktura nabídka").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("Příjmový doklad").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("Faktura bez položek").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("Příjmový doklad BP").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("PV Nabídka").Select
ActiveWindow.SelectedSheets.Visible = False

Worksheets("Faktura").Activate
Sheets("Faktura").Unprotect Password:="RD8110" 'Odemkne list
ActiveSheet.Shapes("TLExport2").Delete
Sheets("Faktura").Protect Password:="RD8110" 'Zamkne list
' uložení sešitu do standadní cesty ukládání
ActiveWorkbook.SaveAs (cele_jmeno)

' zavření nově vytvořeného sešitu
awb2_name = ActiveWorkbook.Name
Workbooks.Open filename:=awb_name

'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("Faktura").Range("K10") 'Jméno
Worksheets("Databáze faktur").Cells(radek, 4) = Worksheets("Faktura").Range("M20") 'Datum vystavení
Worksheets("Databáze faktur").Cells(radek, 5) = Worksheets("Faktura").Range("M19") 'Datum Splatnosti
Worksheets("Databáze faktur").Cells(radek, 6) = Worksheets("Faktura").Range("M183") 'Částka
Worksheets("Databáze faktur").Cells(radek, 2).Formula = "=hyperlink(""" & cele_jmeno & """,""" & c_Faktury & """)"
End If
Windows(awb2_name).Close
Unload Priprava_na_export
Application.DisplayAlerts = True
Application.CutCopyMode = False
Application.ScreenUpdating = True

End Sub

Přidání buňky do kódu (7.3.2012 11:09)

Super díky moc, tak to "&" mě nenapadlo:-)

Přidání buňky do kódu (7.3.2012 10:54)

Zdravím, potřebuji poradit, mám v kódu tuto část:
c_Faktury = Worksheets("Nabídka").Cells(3, 1).Value

je to odkaz na buňku podle které se pojmenuje exportovaný sešit. Potřeboval bych k tomu přidat ještě jednu buňku, třeba A1, ale nevím jak to do kódu přidat. Jde mě o to, aby se exportovaný sešit pojmenoval podle dvou buněk. Ještě mě teď napadlo a co by možná bylo jednodušší spojit dvě buňky do jedné a z té by pak čerpal kód pro samotné přejmenování sešitu. Prosím o radu jak nejlépe vyřešit tento problém. Popřípadě sem mohu dát kód kompletní. Díky

Editace položek z Userform (1.3.2012 8:55)

Ještě jeden dotaz, potřebuji userform otevřít a editovat v jiném listě, jak na to? Zkoušel jsem klasiku zaznam.Show, ale zobrazí se mě jen formulář, ale už nenačte hodnoty. Díky za radu


Strana:  1 ... « předchozí  4 5 6 7 8 9 10 11 12   další » ... 20

Uživatelské menu

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

Menu

Formulář Faktura

Formulář Faktura IV

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

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje