Selectie tot cel met bepaalde waarde

[ronald1986]

Goedemiddag,

Ik wil graag cel A1 tot en met F1 selecteren en deze selectie vervolgens doortrekken tot de regel waarin in kolom F de waarde 1 staat.
Weet iemand hoe ik dit middels VBA kan doen?

Bvd!

 

[edmoor]

En wat moet er vervolgens met de selectie gebeuren?
Met een voorbeeld documentje krijg je daar snel een correct antwoord op.

 

[ronald1986]

Selectie moet vervolgens gekopieerd worden maar dat lukt me zelf nog wel.

Ik heb een voorbeeld bijgevoegd. In dit voorbeeld moet dus A1 t/m F15 worden geslecteerd. De regel waarin in kolom F de waarde 1 staat is echter variable

Bekijk bijlage Voorbeeld selectie.xlsx.

 

[edmoor]

Ok, zoiets dan:

Sub Selecteer_Tot_1()
    Dim Rng As Range

    With Sheets("Blad1").Range("F:F")
        Set Rng = .Find(What:="1", _
                        After:=.Cells(.Cells.Count), _
                        LookIn:=xlValues, _
                        LookAt:=xlWhole, _
                        SearchOrder:=xlByRows, _
                        SearchDirection:=xlNext, _
                        MatchCase:=False)
        If Not Rng Is Nothing Then
            Range("F1:" & Rng.Address).Select
        Else
            MsgBox "1 niet gevonden"
        End If
    End With
End Sub

Alleen jammer dat je er niet bij verteld wat er met de selectie moet gebeuren want dan kan de .Select achterwege blijven.

 

[ronald1986]

Danku! Werkt perfect!