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

Příspěvky uživatele

Áno samozrejme, lebo Cesta obsahuje dvojbodku. A ak by bol parameter Odporucane na True, tak by Cesta obsahovala aj \, čo by bola ďalšia chyba. To som prehliadol, keď som to písal. Na funkčnosť funkcie to nemá vplyv. Teda Cesta & Funkcia.

PS: Nie, že budete niekde prezentovať názov funkcie taký ako som dal ja, premenujte si ju

Skúste či to chápem ...

?

Aj tak neviem, na základe čoho, chcete hľadať čo. Tu som Vám urobil vzorcované (na 100 komodít a 100 dielov pre každú komoditu) tabuľky s výpisom nemeckých názvov.

Ach jaj. V makre postupne prirábam stále nové veci do už cielene (nie univerzálne) navrhnutých častí, a potom vzniká to, že je tam niekoľko opakujúcich sa cyklov, duplicitné vyhľadávanie ... . To makro treba celé prekopať, zmeniť logiku polí, začínalo sa s niečim iným a končí sa úplne inde. Ale prekopávať sa mi to už Vážne nechce. Nechápem ani to, ako sa Vám dostal text Zač/Kon do bunky obsahujúcej "neop.". Moje makro ho tam určo nedalo. Tiež neviem, načo meníte tučné písmo na tučnom písme, ale teda prehodil som Vám ten riadok do tela kódu.
.Range("A2:O2").Font.Bold = True

3. strana ? no o chvíľu poviem HAWK

Určite priložte súbor. Aby ste ho mohol vložiť sem, musíte sa zaregistrovať = 20 sekúnd. V najhoršom prípade vložte link na Váš súbor na niektorom z internetových úložísk, lebo aj to je lepšie, ako žiadna príloha. Ľahšie sa Vám dostane pomoci.

Presne tak - Application.Volatile. Aspoň niekto sa aktívne snaží ...

Môj tip z pamäti z mobilu:
Function CountBold(RNG as Range) as Long
Dim Bunka as Range
For Each Bunka in RNG.Cells
If Bunka.Font.Bold Then CountBold = CountBold + 1
Next Bunka
End Function
Ale je to len tip...

A načo tam máte vlookup ?

To si robíte srandu ?
Veď to makro použijete ako chcete, na odstránenie znakov z akéhokoľvek reťazca. Nielen z bunky, ale aj z premennej vo Vašom kóde.
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=OdstranHovadiny(Cesta & Nazev, "-") _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False

funkcia OdstranHovadiny má 2 povinné a 1 nepovinný parameter.
Hodnota - reťazec s možnými nedovolenými znakmi
Nahrad - reťazec/znak, ktorým sa má nahradiť nedovolený znak, ak je "" tak sa znak iba zmaže
Odporucane - True/False (v CZ liste je to PRAVDA/NEPRAVDA, v SK liste alebo v akomkoľvek makre je to True/False), ak sa neuvedie, alebo je False, kontroluje sa iba tých 9 znakov, ak je True skontrolujú sa všetky odporúčané znaky

To čo z funkcie vylezie použite ako chcete, či už ako parameter inej funkcie, alebo na priradenie do premennej. Návratová hodnota je upravený reťazec.

Použitie je totálne jednoduché.

Riešenie máte na inom foŕe, čo ste písal:
http://www.jaknaoffice.cz/2-forum/?id=3038

Ak nevyhovuje dané riešenie, tak Vám môžem to makro, čo ste poslal v súkromnej správe upraviť, pozeral som naň, ale nerozumiem načo tam stále čekujete veľkosť sourceRange, keď je natvrdo priradená jednobunková oblasť E26, a nerozumiem tomu čo myslíte pod "...vypisovala také konkrétní buňka...". Makro nieje nič zložitého, ale fakt by ste na prípadné skúšanie mal vytvoriť testovaciu prílohu bez interných dát, a načrtnutie požadovaného výsledku v nejakom liste.

Tým som si práve nebol istý, ako ste to myslel. To vyfarbenie a otučnenie prvých 14 stĺpcov, sa dá urobiť pomocou PF, ale 15. stĺpec nie. Na ten musí byť makro. S PF je ale problém, že ho ničí a domotáva kopírovanie a presúvanie informácií robené inak ako Vložiť Hodnotu. A to je drvivá väčšina prípadov.

Toto by Vám malo fungovať:
Private Sub Workbook_Open()
Dim CS As String, Cesta As String, Poz1 As Long, Poz2 As Long

On Error GoTo CHYBA
With ThisWorkbook
Cesta = .Path & "\zdrojová data.xls"
With .Connections("zdrojová data").OLEDBConnection
CS = .Connection
Poz1 = InStr(1, CS, "Source=") + 6
Poz2 = Len(CS) - InStr(Poz1, CS, ";Mode=") + 1
CS = Left$(CS, Poz1) & Cesta & Right$(CS, Poz2)
.Connection = CS
.Refresh
End With
End With
Exit Sub

CHYBA:
MsgBox ("Chyba pri aktualizácii zdrojovej tabuľky :" & vbNewLine & Cesta)
End Sub

Pribalte ukážkové súbory, aby bolo vidieť štruktúru. Toto vyzerá na PowerQuery.

Doupravte si podľa seba...
Function OdstranHovadiny(Hodnota As String, Nahrad As String, Optional Odporucane = False) As String
Dim i As Byte, arrN
arrN = Array(Chr(255), "/", ":", "*", "?", "„", "<", ">", "|", "#", "%", "&", "{", "}", "\")
For i = 0 To IIf(Odporucane, UBound(arrN), 9)
Hodnota = Replace(Hodnota, arrN(i), Nahrad)
Next i
OdstranHovadiny = Hodnota
End Function

Sub pokus()
MsgBox (OdstranHovadiny("abc˙d&e?f\gh ij%", "-") & vbNewLine & OdstranHovadiny("abc˙d&e?f\gh ij%", "-", True))
End Sub

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse