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

MS Excel

Téma: GoTO nefunguje

Zaslal/a Sperhak 30.5.2022 0:19

Zdravím, neviem kde robím chybu, ale funkcia GoTO mi nechce fungovať respektíve funguje stále. Chybu v podmienke by som mať nemal, ale aj tak či cesta existuje ale neexistuje sa GoTo spustí a zobrazí správa kopírujem. Dim sSourcePath As String
Dim sTargetPath As String
Dim fso As Object

Dim strFolderExists As String
Sub CheckFolderExists()

sSourcePath = "D:\test.txt"
sTargetPath = "K:\"


strFolderExists = Dir(sTargetPath, vbDirectory)

If strFolderExists = "" Then
MsgBox "Cesta neexistuje"

Else
GoTo Copy

End If



Copy:

MsgBox "kopírujem"

Zaslat odpověď >

---

elninoslov(30.5.2022 7:15)#052796

Chýba Vám tam ukončenie chodu makra pred "Copy:". Vám teraz makro za každých okolností pokračuje za podmienkou If.

musíte dať buď
...
End If

Exit Sub

Copy:
...

alebo, ak sa má Copy: správa iba preskočiť a makro pokračuje za ňou tak napr.
...
End If

GoTo Pokracuj

Copy:
MsgBox "kopírujem"

Pokracuj:
...

alebo tú správu a iné veci, čo chcete v jednotlivých prípadoch urobiť, urobte rovno v If Then Elsecitovat

Sperhak(30.5.2022 17:09)#052798

Exit Sub pomohol dakujem.citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse