HammerJohn
Gebruiker
- Lid geworden
- 27 apr 2016
- Berichten
- 173
Goedenavond
Ik heb een vraagje omtrent het wegschrijven van gegevens, ik heb een werkende code alleen met 1 vraagteken.
De gegevens worden weggeschreven naar een bestand..... alleen dat bestand mag niet geopend zijn want dan loopt
de vba code vast. Graag zou ik willen weten of het ook mogelijk is als het bestand geopend is.
Dus eigenlijk een code die werkt als het al geopend is of het nog geopend moet worden, de code zal wel dingenbevatten
die overbodig zijn maar hij werkt perfect......op mijn vraag na dan
Iemand een ideetje?
Ik heb een vraagje omtrent het wegschrijven van gegevens, ik heb een werkende code alleen met 1 vraagteken.
De gegevens worden weggeschreven naar een bestand..... alleen dat bestand mag niet geopend zijn want dan loopt
de vba code vast. Graag zou ik willen weten of het ook mogelijk is als het bestand geopend is.
Dus eigenlijk een code die werkt als het al geopend is of het nog geopend moet worden, de code zal wel dingenbevatten
die overbodig zijn maar hij werkt perfect......op mijn vraag na dan
Iemand een ideetje?
Code:
Sub verplaatsen2018()
c00 = "c:\Planning 50I50\uren2018.xlsm"
'c00 = "\\SERVERPC\Users\server\Planning 50I50\uren2018.xlsm"
Range("A1").Select
Selection.AutoFilter Field:=1, Visibledropdown:=False
ActiveWindow.DisplayHeadings = True
Application.DisplayNoteIndicator = True
Application.DisplayStatusBar = True
Application.DisplayFullScreen = False
Sheets("urenlijst").Columns.EntireColumn.Hidden = False
Sheets("urenlijst").Columns("B:G").EntireColumn.Hidden = False
Sheets("urenlijst").Columns("CP:CR").EntireColumn.Hidden = False
Rows("87").Select
Selection.EntireRow.Hidden = False
Rows("108").Select
Selection.EntireRow.Hidden = False
ActiveWindow.Zoom = 100
Range("A1").Select
Application.ScreenUpdating = False
With Range("A3:cq" & Cells(Rows.Count, 1).End(xlUp).Row)
.AutoFilter 95, "ja"
.Offset(1).Resize(, 94).Copy
Workbooks.Open c00
Sheets("Uren").Cells(Rows.Count, 1).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues, Paste:=x1pasteFormat, Paste:=xlPasteAllUsingSourceTheme
ActiveWorkbook.Close True
.AutoFilter
End With
End Sub
