Eerste lege regel in een range zoeken

[Sonnetje85]

Hallo,

Voor de eerste lege regel op een werkblad gebruik ik nu

emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1

Maar als ik bij Range bijvoorbeeld ("A4:A34") invul (omdat ik in dat gebied de bovenste lege regel wil vinden), dan doet hij niets meer.
Uiteindelijk moet het worden:

Dim D As Date
Dim R As Range

D = CDate(Bondatum.Value)

If D < 01-04-2015 Then
Set R = Range("A4:A34")
ElseIf D < 01-07-2015
Set R = Range("A50:A70")
ElseIf D < 01-10-2015
Set R = Range("A96:A116")
Else
Set R = Range("A142:A162")
End If

emptyRow = WorksheetFunction.CountA(R)) + 1

 

[Niels28]

die vraag is al duizend keer gesteld dus met de zoekfunctie had je hem kunnen vinden

Lastrow= cells(rows.count,1).end(xlup).offset(1).row

Niels

 

[Sonnetje85]

Mijn vraag was hoe ik de range instel. In de overige regels staat namelijk ook informatie.
Dus als ik nu mijn eerste regel met datum 01-01-2015 invul komt deze met de LastRow in rij 142 te staan omdat rij 141 de laatst gevulde is.
Dit terwijl 01-01-2015 in rij 4 moet komen te staan, namelijk de eerste lege rij in de eerste Range

 

[Niels28]

plaatse dan even een voorbeeld bestandje en geeft aan wanneer je wat wilt.

een range stel je in met

Set R = range("A4:A35")

Niels

 

[Sonnetje85]

Zoals ik zei kan ik in
[CODE)emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1[/CODE]
niet invullen ("A4:A34") want dan doet het hele bestand het niet.
Hoe moet ik dan wel een range ingeven.
Dat van Set wist ik trouwens wel, heb het aangepast in mijn code in het eerste bericht

 

[edmoor]

Wellicht is dit wat je zoekt:

Set R = Range("A4:A" & emptyRow)

 

[Niels28]

plaats dan even een voorbeeld bestandje

Niels

 

[Sonnetje85]

Ik kan mijn bestand niet toevoegen want het is te groot.
Ook als ik Zip blijft hij bijna even groot.
Hoe kan ik dit oplossen?

 

[Niels28]

Gewoon een klein voorbeeldje maken met fictieve gegevens.


Niels

 

[Sonnetje85]

Hier het uitgedunde bestandje
Bekijk bijlage HelpMijVraag01.xlsm

 

[Niels28]

Sub test()

D = CDate(Bondatum.Value)

Select Case D
    Case Is < DateValue("1-4-2015")
        
        If Range("A3").Offset(1).Value <> "" Then
            Set R = Range("A3").End(xlDown).Offset(1)
        Else
            Set R = Range("A3").Offset(1)
        End If
          
    Case Is < DateValue("1-7-2015")
    
        If Range("A49").Offset(1).Value <> "" Then
            Set R = Range("A49").End(xlDown).Offset(1)
        Else
            Set R = Range("A49").Offset(1)
        End If
    
    Case Is < DateValue("1-10-2015")
    
        If Range("A95").Offset(1).Value <> "" Then
            Set R = Range("A95").End(xlDown).Offset(1)
        Else
            Set R = Range("A95").Offset(1)
        End If
        
    Case Else:
        If Range("A141").Offset(1).Value <> "" Then
            Set R = Range("A141").End(xlDown).Offset(1)
        Else
            Set R = Range("A141").Offset(1)
        End If
End Select

End Sub

Niels