gevonden cel als basis voor verdere actie

[brandernl]

Op een werkblad zoek ik een cel op die aan bepaald voorwaarden voldoet met deze code

For Each rCell In rRange
    If rCell.Value = WeekNumber And rCell.Offset(2, 0).Value = "ma" Then 
Next

Het punt is, wat moet er nu achter Then komen te staan als ik de gevonden cel wil gebruiken als beginpunt van een te kopiëren bereik.

Bovendien hoeft hij niet verder te zoeken als hij die cel gevonden heeft, dus ik moet ook uit de For ...Next lus

Ik kom er niet uit, maar jullie vast wel
Alvast een goed weekeinde

 

[Wigi]

For Each rCell In rRange
    If rCell.Value = WeekNumber And rCell.Offset(2).Value = "ma" Then
          rCell.Copy Range("A1")
          Exit For
     End If
Next

Wigi

 

[theWizard]

Om uit de For lust te gaan als de voorwaarde voldaan is gebruik je gewoon "Exit For"
Je kan de cell die hij gevonden heeft (bijvoorbeeld "E1") gebruiken als begin van een range die geselecteert moet worden.

 

[brandernl]

Wigi en Wizard bedankt.
De exit for snap ik

Hoe zet ik dat dan in code?

Ik denk aan

range(range(rcell), range(rcell.offset(10, 14)).copy

 

[sylvester-ponte]

misschien bedoel je zoiets

For Each rcell In rRange
    If rcell.Value = WeekNumber And rcell.Offset(2, 0).Value = "ma" Then
        Set beginRange = rcell
        Exit For
    End If
Next
enz...
enz...

verderop komt      Set eindRange= rcell2

en nog verderop    mijnRange=Range(beginRange,eindRange)
                             mijnRange.celect

'wel Set gebruiken anders wordt alleen de inhoud gekopieerd

groeten sylvester

 

[brandernl]

Ik ben weer een stukje verder, veel dank.
Ga nu pizza bakken, prettig weekeinde

 

[Wigi]

Wigi en Wizard bedankt.
De exit for snap ik

Hoe zet ik dat dan in code?

Ik denk aan

range(range(rcell), range(rcell.offset(10, 14)).copy

rcell.Resize(10, 14).Copy

 

[brandernl]

Die kende ik nog niet.
Bedankt Wim