Roeland035
Gebruiker
- Lid geworden
- 30 mrt 2015
- Berichten
- 291
Beste Forumleden,
Ik heb een tabel waarin het aantal regels kan variëren van één tot 5000.
Dit tabel bestaat uit 5 kolommen (A t/m E)
Ik zou graag willen dat zodra er op een knop gedrukt wordt op het tabblad zelf, dat dit tabel overgezet wordt naar een nieuw aangemaakt bestand.
Dit is in principe niet zo moeilijk en ik heb daar al een code voor, maar.....
De regels waarvan kolommen C/D/E de waarde 0 hebben moeten NIET overgezet worden naar het nieuwe bestand.
Onderstaand heb ik de code bijgevoegd die ik gebruik om het gehele tabel over te zetten, maar dan nog niet met mijn gestelde criteria.
Opmerking*
Zodra één van die drie kolommen 0 is, dan is de rest automatisch ook 0.
Ik hoop dat één van jullie mij hier mee kan helpen!
Bijgevoegd een voorbeeld bestand.
Bekijk bijlage Voorbeeld.xlsx
Ik heb een tabel waarin het aantal regels kan variëren van één tot 5000.
Dit tabel bestaat uit 5 kolommen (A t/m E)
Ik zou graag willen dat zodra er op een knop gedrukt wordt op het tabblad zelf, dat dit tabel overgezet wordt naar een nieuw aangemaakt bestand.
Dit is in principe niet zo moeilijk en ik heb daar al een code voor, maar.....
De regels waarvan kolommen C/D/E de waarde 0 hebben moeten NIET overgezet worden naar het nieuwe bestand.
Onderstaand heb ik de code bijgevoegd die ik gebruik om het gehele tabel over te zetten, maar dan nog niet met mijn gestelde criteria.
Code:
Sub ExportCSV()
Dim MyPath As String
Dim MyFileName As String
MyFileName = Sheets("Input Leverancier info").Range("A3").Value & "_" & Format(Date, "DD-MM-YYYY") & ".(periode_" & Sheets("Exporteer naar CSV").Range("F1").Value & ")"
If Not Right(MyFileName, 4) = ".csv" Then MyFileName = MyFileName & ".csv"
Set Newbook = Workbooks.Add
Workbooks("LogicTrade - Besteladvies.xlsm").Worksheets("Exporteer naar CSV").Range("A2:E5000").Copy
Newbook.Worksheets("Blad1").Range("A1").PasteSpecial Paste:=xlPasteValues
Newbook.Worksheets("Blad1").Columns("A:E").AutoFit
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Select a Folder"
.AllowMultiSelect = False
.InitialFileName = ""
If .Show <> -1 Then GoTo NextCode
MyPath = .SelectedItems(1) & "\"
End With
NextCode:
Application.DisplayAlerts = False
If MyPath = "" Then GoTo ResetSettings
Newbook.SaveAs filename:=MyPath & MyFileName, FileFormat:=56, Local:=True
ResetSettings:
'Reset Macro Optimization Settings
Application.DisplayAlerts = False
Newbook.Close
Application.DisplayAlerts = True
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Opmerking*
Zodra één van die drie kolommen 0 is, dan is de rest automatisch ook 0.
Ik hoop dat één van jullie mij hier mee kan helpen!
Bijgevoegd een voorbeeld bestand.
Bekijk bijlage Voorbeeld.xlsx
Laatst bewerkt: