macro gebruiken voor meerdere excel bestanden

[mark-vd]

hallo,

er zijn 3 verschillende calculatie formulieren, in deze formulieren komen gegevens uit het database bestand. nu lukt het wel om een macro te maken in de database om naar één calculatie formulier te schrijven. ( dit is het bestand calculatie.xls)

hoe kan ik het zo maken dat de database weet naar welk calculatie fomulier hij de gegevens moet schrijven ??

als je het database bestand opent krijg je een userformulier waar je kunt kiezen uit de verschillende bestanden
De code die ik nu gebruik staat hieronder ( deze schrijft een artikel nummer naar het calculatie formulier)

Sub L14120_Breedte_2000()

    Windows("calculatie.xls").Activate
    ActiveCell.FormulaR1C1 = "L14120"
    ActiveCell.Range("A1").Select
    
    Dim rngGevondenCel As Range
    Dim Zoekwaarde As String
    
    Zoekwaarde = Range("A" & ActiveCell.Row).Value
    
    Set rngGevondenCel = Workbooks("Datebase.xls").Sheets("Blad1").Columns(1).Find(what:=Zoekwaarde, _
        lookat:=xlWhole, LookIn:=xlValues)
    
    If rngGevondenCel Is Nothing Then
        MsgBox "Referentie werd niet gevonden."
    Else
        Range("B" & ActiveCell.Row).Value = rngGevondenCel.Offset(, 1).Value
        Range("C" & ActiveCell.Row).Value = rngGevondenCel.Offset(, 2).Value
        Range("D" & ActiveCell.Row).Value = rngGevondenCel.Offset(, 7).Value
        Range("E" & ActiveCell.Row).Value = rngGevondenCel.Offset(, 7).Value
    End If

End Sub
Sub L14120_Breedte_2000_invoegen()

    Windows("calculatie.xls").Activate
    ActiveCell.Range("A1").Select
    Application.Run "Datebase.xls!L14120_Breedte_2000"
    ActiveCell.Offset(1, 0).Range("A1").Select
End Sub

met vriendelijke groet

Mark-vd

( weet niet zeker of alle macro's werken ze verwijzen naar bestanden op mijn computer dus moet je mischien het bestandspad aanpassen.
OF weet iemand hier ook een oplossing voor ?? )

 

[WinteE]

Een pad maak je flexibel door "Application.Path" te gebruiken.