Range aanpassen in macro

[udo1967]

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 :

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

 

[Wigi]

Udo

doe eens eerst dit aub: code tags plaatsen. Dan wordt de code leesbaar, hetgeen het nu absoluut niet is.

 

[huijb]

Udo

doe eens eerst dit aub: code tags plaatsen. Dan wordt de code leesbaar, hetgeen het nu absoluut niet is.

Gedaan.

 

[udo1967]

Voorbeeld bestand

Hierbij een deel van het grote bestand als voorbeeld waar de Macro in zit.
Op het Werkblad Jan. zit een Knop waardoor de Macro
wordt gestart....

Dit is nagenoeg hetzelfde bestand als mijn andere vraag
" Laatste 10 vermeldingen..." waar nog geen oplossing voor is.

Robert

 

[udo1967]

Udo

doe eens eerst dit aub: code tags plaatsen. Dan wordt de code leesbaar, hetgeen het nu absoluut niet is.

Zit nog steeds met dit probleem Wigi...

Kan er niet uitkomen wat er aangepast moet worden....

Hebt gij (of anderen) de oplossing ?

Robert

 

[Demeter]

Helpt:

Range("D9:AQ65").Select

vervangen door:

Range("D9:AQ49,D52:AQ65").Select

 

[udo1967]

't werkt nog niet....

Helpt:

Range("D9:AQ65").Select

vervangen door:

Range("D9:AQ49,D52:AQ65").Select

Vriendelijk bedankt voor de reactie, echter het werkt niet :

Range in Macro aangepast, bovenaan pagina "Start"Button geklikt om
Macro te starten maar de Cellen blijven leeg in Werkbald : Jan. D52:AQ65.
Terwijl er gegevens zijn voor de geel gemaakte Cellen.
(in C52:C60 staat als voorbeeld de waarde die er eigen in had moeten staan)

Bestand met aanpassing meegezonden.

Wat is de oplossing ?

Robert

 

[brandernl]

Uit de Excel help:

Set bigRange = Application.Union(Range("Range1"), Range("Range2"))

Dat wat je bedoelt?

 

[udo1967]

Uit de Excel help:

Set bigRange = Application.Union(Range("Range1"), Range("Range2"))

Dat wat je bedoelt?

Heb de Oude Macro met de Nieuwe vervangen maar het werkt nog steeds niet.

Hij vult de tweede Range D52:AQ65 niet in, wat er ook geprobeert wordt !

 

[Demeter]

Udo,

Ben je er al uit?

 

[udo1967]

Geen vooruitgang

Udo,

Ben je er al uit?

Nee !
Na nog wat opties geprobeerd te hebben is het terzijde gelegd...
Op 20 april is het laatste bestand bijgeleverd (vorige mail).
Wil jij er nog eens naar kijken ?

Robert

 

[jheesterbeek]

Het probleem zit niet in de range, maar in de Loop die erna komt.
Als je naar de macro Sub Januari2007() gaat en klikt op F8, dan kun je stapsgewijs door de code lopen. Door excel en VBA naast elkaar open te zetten kun je de acties volgen.
Als ik dat doe, dan zie ik dat de range correct wordt geselecteerd en leeggemaakt. Vervolgens sluiten de rijen uit de range niet met de bereiken die je in de Do While en de For..Next noemt.
Ik denk dat je daar een blik op zou moeten werpen.....

John