Hallo, ik heb een routine in Excel gemaakt (via helpmij) office 2010 die uit een werkboek van elke sheet waarin de naam haai is vermeld een csv aanmaakt. Deze werkt goed.
Nu gaan we binnenkort over naar 2016 en nu geeft hij op deze routine een aantal foutmeldingen. Ik heb dit gearceerd in kleur.
Weet iemand zo zonder verder in detail uit te wijden hoe dit nu in 2016 moet worden geschreven??
Hoor graag een reactie
Jaap
Nu gaan we binnenkort over naar 2016 en nu geeft hij op deze routine een aantal foutmeldingen. Ik heb dit gearceerd in kleur.
Weet iemand zo zonder verder in detail uit te wijden hoe dit nu in 2016 moet worden geschreven??
Hoor graag een reactie
Jaap
Code:
[Sub inhaaisheets_wegschrijven_naar_E_data()
''Application.DisplayAlerts = False
With Application
.ScreenUpdating = True
.Cursor = xlDefault
.StatusBar = ""
''MsgBox "inhaaisheets_wegschrijven_naar_E:data\rica", vbOKCancel, "Rica"
test = MsgBox("Do you want to make the inhaaisheets? ", vbYesNo + vbDefaultButton1)
If test = vbYes Then
MsgBox "haaisheet worden aangemaakt voor verwerking in Artis Kies oké"
ElseIf test = vbNo Then
ThisWorkbook.Close Saved = True
End If
c00 = ThisWorkbook.FullName
For Each sh In Sheets
If InStr(sh.Name, "haai") Then
sh.SaveAs "E:\data\Rica" & Sheet1.Cells(6, 2) & "-" & Sheet1.Cells(1, 3) & "-" & sh.Name & ".csv", 23, , , , , , , , True
sh.Name = Mid([COLOR="#FF0000"]sh.Name, 5[/COLOR])
End If
Next
ThisWorkbook.[COLOR="#FF0000"][/COLOR][COLOR="#FF0000"]SaveAs c00, 52[/COLOR]
Sheets("AA.keuze").Select
With Application
.ScreenUpdating = True
.Cursor = xlDefault
.StatusBar = "De inhaaisheet zijn aangemaakt en weggeschreven naar E:\data\rica"
End With
End
.StatusBar = ""
End With
End Sub]
Laatst bewerkt door een moderator: