pd1lg
Gebruiker
- Lid geworden
- 10 jun 2015
- Berichten
- 86
Bekijk bijlage Federatie2017-3.xlsb
Het gaat om het onderstaande stukje vba. Op een of ander manier werkt het opslaan met de juiste bestandsnaam niet meer.
Het bestand moet opgeslagen worden met week nummer en -NBR3 2017. Maar dat doet het niet meer.
Willen jullie ff kijken? Ik moet de formule in een venster plaatsen, maar weet zo niet hoe dat moet. Sorry
Het gaat om het onderstaande stukje vba. Op een of ander manier werkt het opslaan met de juiste bestandsnaam niet meer.
Het bestand moet opgeslagen worden met week nummer en -NBR3 2017. Maar dat doet het niet meer.
Willen jullie ff kijken? Ik moet de formule in een venster plaatsen, maar weet zo niet hoe dat moet. Sorry
Code:
Option Explicit
Sub Print03_Click()
Dim j As Integer
Dim Destwb As Areas
Dim FileExtStr As Integer
Dim FileFormatNum As Integer
Dim TempFilePath As Integer
Dim TempFileName As String
Sheets("Database").Select
For j = 3 To 11
On Error Resume Next
Sheets("Database").Cells(j - 2, 1).Value = Sheets("Print03").Cells(j, 3).Value 'NAAM
Sheets("Database").Cells(j - 2, 2).Value = Sheets("Print03").Cells(j, 4).Value 'TC
Sheets("Database").Cells(j - 2, 3).Value = Sheets("Print03").Cells(j, 5).Value 'GC
Sheets("Database").Cells(j - 2, 4).Value = Sheets("Print03").Cells(j, 6).Value 'PTS
Sheets("Database").Cells(j - 2, 5).Value = "-"
Sheets("Database").Cells(j - 2, 6).Value = Sheets("Print03").Cells(j, 10).Value 'NAAM
Sheets("Database").Cells(j - 2, 7).Value = Sheets("Print03").Cells(j, 11).Value 'TC
Sheets("Database").Cells(j - 2, 8).Value = Sheets("Print03").Cells(j, 12).Value 'GC
Sheets("Database").Cells(j - 2, 9).Value = Sheets("Print03").Cells(j, 13).Value 'PTS
Next j
Sheets("Database").Cells(10, 3).Value = Sheets("Print03").Cells(12, 5).Value 'TOTAAL
Sheets("Database").Cells(10, 4).Value = Sheets("Print03").Cells(12, 6).Value 'NR
Sheets("Database").Cells(10, 7).Value = Sheets("Print03").Cells(12, 11).Value 'TOTAAL
Sheets("Database").Cells(10, 8).Value = Sheets("Print03").Cells(12, 12).Value 'NR
ActiveSheet.Copy
Set Destwb = ActiveWorkbook
FileExtStr = ".xlsx": FileFormatNum = 51
TempFilePath = "F:\Bert\Documents\NBR-BILJART\FEDERATIE 2017\NBR3\" De backslash staat er wel.Alleen hier niet.Sorry.
TempFileName = ThisWorkbook.Sheets("Print03").Range("A2").Value & "-NBR3 2017" 'Week nummer + -NBR3 2017
With Destwb
.SaveAs TempFilePath & TempFileName & FileExtStr, FileFormat:=FileFormatNum
.Close SaveChanges:=False
End With
ActiveWorkbook.Close
Sheets("Database").Select
'Range("A1:KK20").ClearContents
End Sub
Laatst bewerkt: