In de volgende Macro moet in een Range gegevens ingevuld worden.
Het werkte altijd prima alleen nu is de Layout aangepast.
De Range in de oude Layout was D9:AQ62
De nieuwe Range is nu D9:AQ49 en D52:AQ65
Hoe nu deze Range aanpassen ?
Hier de het laatste deel v/d Macro :
Het werkte altijd prima alleen nu is de Layout aangepast.
De Range in de oude Layout was D9:AQ62
De nieuwe Range is nu D9:AQ49 en D52:AQ65
Hoe nu deze Range aanpassen ?
Hier de het laatste deel v/d Macro :
Code:
Sub December2007()
Call maand("Dec.", "200712")
End Sub
Function maand(blad As String, datumK As String)
Application.ScreenUpdating = False
Sheets(blad).Select
Range("D9:AQ65").Select
Selection.ClearContents
rij = 9
Do Until Sheets(blad).Range("b" & rij) = ""
waarde = Sheets(blad).Range("B" & rij)
i = 3
Do Until Sheets("Klacht Adressen").Range("b" & i) = ""
datum = Sheets("Klacht Adressen").Range("b" & i)
If (Year(datum) & Month(datum)) = datumK Then
Sheets("Klacht Adressen").Select
waarde2 = Sheets("Klacht Adressen").Range("E" & i)
If waarde = waarde2 Then
code = Range("O" & i)
'code = Left(code, 1)
Sheets(blad).Select
Range("d" & rij).Select
Do Until ActiveCell.Value = ""
ActiveCell.Offset(0, 1).Select
Loop
ActiveCell.Value = code
End If
End If
i = i + 1
Loop
rij = rij + 1
Loop
For teller = 9 To 65
Sheets(blad).Select
Range("d" & teller).Select
Do Until ActiveCell.Value = ""
ActiveCell.Offset(0, 1).Select
Loop
ActiveCell.Value = " "
Next
Application.ScreenUpdating = True
End Function
Laatst bewerkt door een moderator: