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

Příspěvky uživatele

oprava:

tu som to opravil ale posledna podmienka je tam podla mna zbytocna kedze je vzdy splnena

prilozte priklad takto mozem hadat co vam tam nejde

napr. takto:
Sub aa()
If aTestuj Then ActiveSheet.SaveAs Filename:="U:\AV_Beku\Mischform\hotove zakazky2014" & "\" & Sheets("list1").Range("BK2").Text
End Sub

Private Function aTestuj() As Boolean
aTestuj = True
If Range("D2").Text = "" Then aTestuj = False: Exit Function
If Range("BK2") = "" Then aTestuj = False: Exit Function
If Range("BK3") = "" Then aTestuj = False: Exit Function
If Range("BL5") = "" Then aTestuj = False: Exit Function
If Range("BJ16 ") = "" Then aTestuj = False: Exit Function
If Range("BJ18 ") = "" Then aTestuj = False: Exit Function
If Range("BN8 ") <> "OK" Or Range("BN8 ") <> "STOP" Then aTestuj = False: Exit Function
End Function

hodte link. O tomto pocujem prvy krat

Ja jedine co som si urobil makro ktore cely text hodi do google translatora a potom spat. Samozrejme pri neviditelnom internet exploreru. :)

Som si myslel ze ovladate VBA lebo z toho kodu bolo hned jasne kde treba doplnit udaj z bunky A1.

zamente:

PdfFile = ActiveSheet.Name & ".pdf"
za:
PdfFile = cells(1,1) & ".pdf"

mozte skusit klasicky saveas

code:
PdfFile = ActiveSheet.Name & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=PdfFile, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

no chyba bude v tom dll

ako presne ste dali alias?? resp. naco ho tam davate?

Function Pokus alias "Pokus" .... toto nemoze fungovat

... ale kedze tu nemam visual studio tak si to ani overit nemozem :)) .... ahhh asi vam neporadim ale rad by som to skusil nejak vytvorit to dll ... len tu v robote nejde nic nainstalovat

prilozte prilohu takto mozem len hadat

pockat vy davate do vstupu stringovu hodnotu ale tam mate zadefinovane integer??? to je samozrejme ze to padne

musel by tam byt varriant

kedze som toto este neskusal ale pravdu povediac uz aj toto chci skusit :)) takze len hadam:

skuste tu funkciu definovat ako Public

ved toto uz office robi automaticky. A aj starsie verzie len si tam musite dat novy patch.

ale ide len sa treba s tym pohrat

toto vypada na nejaku domacu ulohu a to este skola ani nezacala :)) skuste vnorenu funkciu IF

=IF(podmenka,IF(podmienka,pravda,nepravda),nepravda)

prilozte prilohu .... teoreticky vysvetlovat by bolo nadlho

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje