VBA code automatisch aanpassen

[HarryBee]

Hallo iedereen,

Ik heb een excelbestand dat ik heb gemaakt op computer 1 (prive) waarin een aantal VBA codes in zitten die naar een bepaalde locatie in een map verwijzen.
Nu neem ik dat bestandje mee naar mijn werk en daar zijn die locaties natuurlijk niet hetzelfde. 1) Hoe kan ik snel de codes aanpassen of beter nog, 2) hoe kan ik de codes zo maken dat deze zich automatisch aanpast. Punt 1 zal al voldoende zijn.

Weet iemand raad?

Groeten HarryBee

 

[Cotje]

Als je in de algemene declaraties een string-variabel aanmaak waarin je de lokatie opslaat, en die vervolgens gebruik in je code, dan hoef je de lokatie maar op 1 plek te wijzigen, voorbeeld:

Const lokatie As String = "c:\tijdelijk"

Private Sub Worksheet_Activate()
    MsgBox (lokatie)
End Sub

Private Sub Tralalala()
    FileSystem.Dir (lokatie)
End Sub

Cotje

 

[Wigi]

Werk inderdaad zoals hierboven gezegd. Dat pad kan je ook ergens in een cel zetten en van daar uit uitlezen.

Wil je toch dat het zich aanpast, dan is het misschien mogelijk om de bestanden in dezelfde map te zetten als het bestand met de code, en vervolgens met ThisWorkbook.Path te werken of zo.

Wigi

 

[HarryBee]

Inderdaad het werkt

Als je in de algemene declaraties een string-variabel aanmaak waarin je de lokatie opslaat, en die vervolgens gebruik in je code, dan hoef je de lokatie maar op 1 plek te wijzigen, voorbeeld:

Const lokatie As String = "c:\tijdelijk"

Private Sub Worksheet_Activate()
    MsgBox (lokatie)
End Sub

Private Sub Tralalala()
    FileSystem.Dir (lokatie)
End Sub

Cotje

Bedankt Cotje.

:thumb:

Groet Harry

 

[HarryBee]

Werk inderdaad zoals hierboven gezegd. Dat pad kan je ook ergens in een cel zetten en van daar uit uitlezen.

Wil je toch dat het zich aanpast, dan is het misschien mogelijk om de bestanden in dezelfde map te zetten als het bestand met de code, en vervolgens met ThisWorkbook.Path te werken of zo.

Wigi

Wigi,

Dankje voor je reactie.

Groet Harry :thumb: