Zoeken en vervangen met VBA

[AEHofman]

Hallo,

Ik heb een probleem ik krijg geen resultaten met zoeken en vervangen in het dialoogvenster.
Dit komt waarschijnlijk omdat ik zoek in cellen met de formule Tekst.Samenvoegen.
Eigenlijk wil ik een stukje VBA die dit voor mijn rekening neemt.
Maar om mijzelf op weg te helpen probeer ik het eerste begin te maken met de macrorecorder.
Helaas krijg ik geen resultaten in het dialoogvenster van Excel dus kan ik ook geen begin maken met het VBA script wat ik eigenlijk nodig heb.

Bedankt alvast

Andrys

 

[HSV]

Test het maar eens.

Sub hsv()
Dim c As Range
With Sheets("Personeel")
 Set c = Sheets("Export").Columns(1).Find(.Range("A55"), , xlValues, xlWhole)
  If Not c Is Nothing Then
    c.Resize(, 7) = .Range("a55").Resize(, 7).Value
  Else
    Sheets("Export").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 7) = .Range("A55").Resize(, 7).Value
  End If
 End With
End Sub

 

[AEHofman]

Ben al een stuk verder.

Hoi

Zou je me nog eens kunnen helpen,
Ik heb de code zo aangepast dat hij doet wat ik graag wilde.
Namelijk toevoegen van datum personeelsnummer naam starttijd en stoptijd en pauzeduur, zonder de eerste cel te overschrijven waar een formule in staat.
Onder de knop toevoegen zit de code die jij voor mij hebt gemaakt.
Ik heb ook een knop gemaakt "Verwijderen" die uit jouw code is ontstaan, en die de data verwijderd.
Wat ik nog nodig ben is een "loop" die alle data verwijderd die aan de criteria voldoet.
Hij doet het nu ook wel maar, maar voert de opdracht maar een keer uit.

Zie bijlage heb er nu 2x dezelfde data instaan en als je dan op de knop verwijderen klikt verwijderd de macro de data wel voor één regel maar niet tegelijk voor allebeide regels.

Andrys

 

[HSV]

Bedoel je dit?

Sub Tijden_verwijderen()
Dim c As Range
With Sheets("Personeel")
 Set c = Sheets("Export").Columns(1).Find(.Range("A55"), , xlValues, xlWhole)
  If Not c Is Nothing Then
  Do Until c Is Nothing
      c.Resize(, 6).Offset(, 1).ClearContents
     Set c = Sheets("Export").Columns(1).FindNext(c)
    Loop
  End If
 End With
End Sub

 

[AEHofman]

Toppie

Dit is het helemaal.
Ben prima geholpen HSV Dank je voor je hulp.
Ik zal de vraag als opgelost zetten.