Kopieer cellen

[Mosselman]

Wie kan mij helpen?

Onderstaande VBA code werkt niet zoals ik het wil.
------------------------------------------------------------------------------
Sub start_ranking_vergelijking()
If Range("C51") = "" Then GoTo Stoppen Else
For Each ceLL In Worksheets("Totaal").Range("A5:FZ45")
If ceLL.Value = ("Reparatie") Then
ceLL.Resize(, 2).Copy Range("A100")
End If
Next
Stoppen:
End Sub
---------------------------------------------------------------------------

Ik wil dat de VBA code op zoek gaat naar alle cellen met de tekst "Reparatie" in het gebied A5 t/m FZ45 wanneer in cel C51 iets wordt ingevuld.
Wanneer deze tekst in een cel gevonden wordt, dan moet deze cel inclusief de cel links daarnaast en rechtsdaarnaast meegekopieerd worden naar een gebied op dezelfde sheet vanaf cel A100. De tekst "Reparatie" kan in meerdere cellen voorkomen, waardoor vanaf cel A100 meerdere rijen van 3 cellen onder elkaar komen te staan.

Wat gebeurt er nu?
Hij kopieert de cel met de tekst en alleen de rechtercel mee naar A100. Vervolgens zoekt hij niet meer verder naar andere cellen met de genoemde tekst, waardoor er dus maar 1 rij van 2 cellen op A100 staat.



Alvast bedankt voor jullie hulp.

 

[WimenBeer]

Begin eens met deze aanpassing.
Jouw oplossing zet alle gevonden waarden ALTIJD in cel "A100".

Sub start_ranking_vergelijking()
Dim tel As Integer
tel = 10
If Range("A1") <> "" Then
    For Each ceLL In Worksheets("Blad1").Range("C1:H4")
        If ceLL.Value = ("Reparatie") Then
            ceLL.Resize(, 2).Copy Range("A" & tel)
            tel = tel + 1
        End If
    Next
End If

End Sub

Dit laat in iedergeval alle gevonden 'Reparaties' zien.
Alleen het probleem met de cel voor de gevonden waarde is nog niet opgelost.

Succes
Wim

 

[RvanGalenLast]

Ik ben verder gegaan waar Wim was opgehouden. Als je de codes combimeert dan zal je er vast wel uitkomen.

Groet.

Ronald

 

[Mosselman]

Ik ben verder gegaan waar Wim was opgehouden. Als je de codes combimeert dan zal je er vast wel uitkomen.

Groet.

Ronald

Bedankt Ronald,

Ik ga even experimenteren.
Mocht ik nog hulp nodig hebben, dan kom ik even bij je terug.