In middels is het mij gelukt middels VBA om gegevens te exporteren naar een andere worksheet, echter wil ik een koppeling maken naar een ander excel bestand. Alleen heb ik daar graag hulp bij. De bedoeling is dat het andere excel geupdate wordt zonder dat het geopend wordt. Kortom: Knop> exporteren naar andere workbook(totaaloverzicht) zonder visueel te openen > opslaan > sluiten van het document(totaaloverzicht)
Code:
Sub test()
Dim wb As Workbook
Dim Bron_ws As Worksheet
Dim Doel_ws As Worksheet 'Workbook?
Dim Job_ID As Range
Dim Job_descr As Range
Dim Job_status As Range
Dim rij_nr As Double
Dim kolom_nr As Double
Set wb = ActiveWorkbook
Set Bron_ws = wb.Sheets("Sheet1") 'de data vanuit deze sheet moet naar een andere document geexporteerd worden.
Set Doel_ws = wb.Sheets("Totaaloverzicht") 'sheet in het andere document, link nodig naar F:\one drive....
Set Job_ID = Bron_ws.Range("J6")
Set Job_descr = Bron_ws.Range("K5")
Set Job_status = Bron_ws.Range("K6")
Dim Last_R
With Doel_ws
Last_R = .Cells(.Rows.Count, "A").End(xlUp).Row
End With
Dim R
For R = 2 To Last_R
If Doel_ws.Cells(R, 1).Value <> "" Then
If Doel_ws.Cells(R, 1).Value = Job_ID.Value Then
rij_nr = R
End If
End If
Next R
With Doel_ws
last_c = .Cells(1, .Columns.Count).End(xlToLeft).Column
End With
Dim C
For C = 1 To last_c
If Doel_ws.Cells(1, C).Value <> "" Then
If Doel_ws.Cells(1, C).Value = Job_descr.Value Then
kolom_nr = C
End If
End If
Next C
'Application.ScreenUpdating = False
'Workbooks.Open Filename:="F:\Onedrive\Sports Labs\Sports Labs EU - Documenten\SPORTS LABS EU\JOB FILES\Test\TOTAALOVERZICHT SPORTSLABS EU.xlsx" dit is wat ik hoopte wat zou werken, maar helaas
Doel_ws.Cells(rij_nr, kolom_nr).Value = Job_status.Value 'Job status overnemen naar doelblad in gevonden rij/kolom
'Windows("F:\Onedrive\Sports Labs\Sports Labs EU - Documenten\SPORTS LABS EU\JOB FILES\Test\TOTAALOVERZICHT SPORTSLABS EU.xlsx").Close
'Application.ScreenUpdating = True
End Sub
Laatst bewerkt: