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

Příspěvky uživatele

Test 6.2.
+viz PM.

Zdravim a posilam Test6.1.
Oznaceni spatnych datumu primo ve hledani.
Tlacitkem moznost zruseni zvyrazneni bunky.
Snad jsem ty podminky spravne pochopil.
Radne otestujte a dejte vedet.

syd

Zdravim.
Vypada to, ze jste nahral jiny soubor.

syd

Zkuste bez tech uvozovek ""
anebo:

Case Is >= 0 ...
Case Is < 0 ...
syd

Tak by to mohlo vypadat...
syd

Ano, hloubkovy test je rozhodne potreba...
Nevedel jsem presne, jak to je s tim navratem z mista B.
Nyni je to nastaveno (tusim), ze ta cesta musi byt behem 3 nebo 4 dnu, jinak se nezapocita.
Jo a na pivo se samo hodi vzdy, ale bohuzel Prazak nejsem . Tak jedine poslat nejake drobne na paypal email syssslllik@hotmail.co.uk.
Mej te se, a ohledne dalsich uprav ci jinych projektu jsem zde na webu casto k dispozici.
syd

Ahoj,

mozna toto:


Sub Workbook_Open()
Dim sh As Worksheet
If Environ("username") = "Milan" Then
For Each sh In ThisWorkbook.Worksheets
If sh.Name = "cn" Or sh.Name = "dl" Then
With ThisWorkbook.Sheets(sh.Name)
.Range("G3:G5") = Application.Transpose(Array("aaa", "bbb", "ccc"))
End With
End If
Next sh
End if
End sub


syd

Tak jeste jednou. Zmenil jsem nastaveni u sebe a opravil na vas format... Zkuste

syd

Tak se jedna o format datumu. Ja mam Excel 2010 a Win7, oboji anglicke s lokalizaci US (nebo UK).
Ja mam datum 02/05/2016 07:10, a vy podle obr. 2/5/2016 7:10. A tim padem makro nemuze fungovat spravne. Docela zapeklita vec, nemam moc zkusenosti ohledne prevodu formatu..jak to resit. Myslim, ze to je neco jako "pain in the arse".
Neco jsem predelal, ale nevim nevim... musim to jeste probadad. Taky problem, ze po ruce nemam ceske Windows, kdy bych mohl otestovat.
Jedine me jeste napada zmenit regionalni nastaveni v Ovladacich panelech:

kratke datum = dd/mm/rrrr

Dejte vedet, jak jste pochodil.
syd

Zdravim,
me to chybu nehodi. Vysledek hledani je v prilozene ukazce. Zkousel jsem i jine zadani a bez pb. Specifikujte, kde presne chyba nastane (obrazek s nahledem do VB editoru s oznacenou zlutou radkou...).
Take jsem pridal tlacitko s kontrolou navaznosti datumu.
V listu zdroj vyfiltruje problemove SPZ.
syd

Ahoj.
Treba pomoci prvku Label viz ukazka
syd

Zkuste tohle. Ale rozhodne to neni nic bezpecneho k ukladani citlivych dat. Prikladam kod i soubor na ukazku.

Sub View_hide_Sheet()
Dim ws As Worksheet, pwd As String, current As Integer, mypassword As String
mypassword = "1234" 'heslo pro odemceni

Set ws = ThisWorkbook.Sheets(3)
current = ws.Visible

If current = xlSheetVeryHidden Then
Do While pwd <> mypassword
pwd = Application.InputBox("Heslo:", "Odemknutí Listu3", , , , , , 1 + 2)
If pwd = mypassword Then
ws.Visible = xlSheetVisible
Else
If pwd = "False" Then Exit Do
MsgBox ("Špatné heslo!!!"), vbOKOnly + vbExclamation, "Chyba hesla"
End If
Loop
Else
MsgBox ("Zamykám List3"), vbOKOnly + vbInformation, "Zamknutí Listu3"
ws.Visible = xlSheetVeryHidden
End If
End Sub

Jsem moc rad, ze vam to pomohlo. A moc dekuji za podekovani.
Nicmene, pokud vam to usetrilo cas a praci, muzete zvazit maly prispevek na pivo . Je to zcela na vas.
PayPal(em) na email: syssslllik@hotmail.co.uk
syd

Hm. Koukam, ze jsem se v tom taky zamotal. Nejsem zvykly pracovat v office v cestine...

V prve ukazce je podminka tykajici se nazvu sesitu a ne souboru. Zni nasledovne:
pokud se prave aktivni list nejmenuje "cn" tak..

Ve druhem pokusu proste odkazujete na konkretni bunku v sesite "cn" a menite jeji hodnotu...

Tedy nevim, co je vlastne chcete udelat.

syd

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje