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

Příspěvky uživatele

http://wall.cz/index.php?m=topic&id=7769#post-7770

skus toto

a mohol si temu nazvat rozumne

takyto problem som mal kedysi aj ja , na niektorych PC to chodilo na inych nie. Vyriesil som to nakopirovanim vsetkych Listov do noveho suboru, a makra som prekopiroval ako text do modulov v novom subore. od vtedy klud.

vymen v kode toto

novy_subor = Sheets("Faktura").Cells(1, 1).Value & ".xls"

tak este raz a teraz uz otestovana verzia toho mojho kodu, skus

Sub Makro2()
novy_subor = "xxx.xls"
zdroj = ActiveWorkbook.Name
ChDir Application.ThisWorkbook.Path

listy = Array("Január", "Február", "Marec", "April")

Workbooks.Add
ActiveWorkbook.SaveAs Filename:= _
novy_subor, FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False

For llist = 0 To UBound(listy)
Windows(zdroj).Activate
Sheets(listy(llist)).Select

Sheets(listy(llist)).Copy before:=Workbooks(novy_subor).Sheets(1)
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next llist

End Sub

neviem co presne ma tvoj kod robit ale skusil by som nieco take

Sub kopiruj()

listy = Array("prvy", "druhy", "faktura", "zaloha")

For llist = 0 To UBound(listy)
Worksheets(listy(List)).Copy
ActiveSheet.Cells.UnMerge
Workbooks(zdroj).Sheets(listy(llist)).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
Next llist
End Sub

nemozes len tak hodit dva listy do pole a skusat obidva naraz skopirovat - to nejde, musis to spravit po jednom, tj. ten druhy kod ktory funguje pouzi dvakrat po sebe len zmen nazov toho listu. V pripade ze by si mal tych listov strasne vela tak sa samozrejme da pouzit pole ale musis pouzit cyklus a v kazdom cykle kopirovat zas len jednu polozku z pole.

skus

ahoj

chces sa to aj naucit ?
http://wall.cz/index.php?m=topic&id=8011#post-8122 - viem autor nazval temu tak ze nikto to tam nenajde

alebo Ti to mam napisat ?

jasne ze svietilo, len som nevedel preco.
jak to ze ked volam proceduru s jednym argumentom tak to ide bez toho Call ?

dik

ahojte
prvykrat potrebujem dostat do procedury viac ako jeden argument. viete mi poradit preco mi to nejde ? uz som skusal aj toto http://www.cadforum.cz/cadforum/Vyvojove-prostredky-AutoCADu/Pasmo/Casti/VisualBasic/VBAZakladyProg/355vbazpmodulyaprocedury.htm#VBA_PRIKLAD_function
a furt nic


Sub prvy()
xx = 5
yy = 2
druhy (xx, yy)
End Sub

Public Sub druhy(aa, bb)
c = aa + bb
MsgBox (c)
End Sub

a bez prilohy
dik

jasne , dik, mozno by mi to bezalo aj skor keby makro nebolo tak rychle a keby som ho spravne zapisal (sekol som sa o jeden riadok /stava sa)

mam tam

U1.Show (0)

statusbar si 99% ludi nevsimne, u nas v praci asi aj 100%

neviem , asi sa to neda. aj tak dik

ahojte
chcel by som zobrazit v userforme co prave robi makro (mam tam dlhe bloky ktore nazov by som vypisoval do textboxu), problem je ze mi to po celu dobu nevypise nic az nakoniec poslednu hodnotu.
vie mi niekto pomoct? dik

@Jeza.m
bez prilohy - ignoruj

ahoj

tu mas upravu podla toho ako navrhol "marjankaj", ja osobne netusim o co Vam dvom ide

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje