Verplaats op waarde van eerste 3 letters

[HWV]

Beste,

In een sheet heb ik een kolom "E-mail" en een kolom "website" staan.
Deze gegevens trek ik uit ons systeem, om mee te nemen naar een nieuw systeem.
Nu komt het regelmatig voor dat er een website staat in de kolom "E-mail".

Nu wil ik graag de website verplaatsen naar kolom "website"
Ik heb tot nu toe de volgende code :

Sub Verplaatsen_OpslagPrijsafspraken()
On Error Resume Next
    For j = 2 To Sheets("Crediteuren Output").Cells(Rows.Count, 1).End(xlUp).Row
   With Sheets("Crediteuren Output").Columns(1).Find(Sheets("Crediteuren Output").Cells(j, 1).Value)
    If .Offset(, 7).Value = "www" Then
    .Offset(, 7).Copy Sheets("Crediteuren Output").Cells(j, 18)
    .Offset(, 100).Copy Sheets("Crediteuren Output").Cells(j, 8)
     End If
    End With
  Next
End Sub

Met deze code zoekt hij op het woord www, en plaats deze in de juiste kolom "website". Omdat ik niet de juiste code weet om daarna de cel te wissen heb ik dit opgelost om een lege cel te kopieeren ( 100) verdiend niet echt de schoonheidsprijs .

Wat ik wil eigelijk wil is dat hij zoekt naar de eerste 3 letters in een woord in dit geval "www" als deze overeen komt deze dan verplaatsen naar de kolom "website".
En deze verwijderen uit de kolom "e-mail"

Groet HWV

 

[Cobbe]

Zou deze het beter doen?

Sub Verplaatsen_OpslagPrijsafspraken()
On Error Resume Next
    For j = 2 To Sheets("Crediteuren Output").Cells(Rows.Count, 1).End(xlUp).Row
   With Sheets("Crediteuren Output").Columns(1).Find(Sheets("Crediteuren Output").Cells(j, 1).Value)
    If Left(.Offset(, 7).Value, 3) = "www" Then
    .Offset(, 7).Copy Sheets("Crediteuren Output").Cells(j, 18)
    .Offset(, 7) = ""
     End If
    End With
  Next
End Sub

Succes, Cobbe

 

[HWV]

Geweldig

Dit doet wat ik graag wilde.

Bedankt voor het meedenken

Groet HWV

ps.

weer wat bijgeleerd ook