cello249
Gebruiker
- Lid geworden
- 1 jul 2009
- Berichten
- 14
Hoi allemaal,
Ik heb een stuk VBA code voor het samenvoegen van gegevens van verschillende tabbladen naar 1 tabblad.
Deze code werkt prima.
In de code wordt echter het bestaande tabblad gegevens verwijderd en opnieuw toegevoegd om vervolgens de nieuwe gegevens op weg te schrijven.
Ik moet deze code nu gebruiken in een gedeeld bestand en loop tegen het probleem aan dat het verwijderen en toevoegen van een tabblad in een gedeeld bestand niet mogelijk is.
Hebben jullie een oplossing, zonder dat het delen van het bestand wordt afgehaald?
Ik heb een stuk VBA code voor het samenvoegen van gegevens van verschillende tabbladen naar 1 tabblad.
Deze code werkt prima.
In de code wordt echter het bestaande tabblad gegevens verwijderd en opnieuw toegevoegd om vervolgens de nieuwe gegevens op weg te schrijven.
Ik moet deze code nu gebruiken in een gedeeld bestand en loop tegen het probleem aan dat het verwijderen en toevoegen van een tabblad in een gedeeld bestand niet mogelijk is.
Hebben jullie een oplossing, zonder dat het delen van het bestand wordt afgehaald?
Code:
Sub integratie()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim sh As Worksheet
'gegevens integreren
Sheets("gegevens").Select
ActiveWindow.SelectedSheets.Delete
With ActiveWorkbook.Sheets.Add
.Name = "gegevens"
For Each sh In Worksheets(Array("team a", "team b", "team c", "team d", "team e", "team f"))
sh.UsedRange.Copy .Cells(Rows.Count, 1).End(xlUp).Offset(1)
Next
End With
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub