Inhoud van een kolom in een ander werkblad

[adkliko]

Hoi Mark...

Je hebt me heel erg blij gemaakt net.
De test thuis werkte perfect.
Ook als je de datum verandert haalt hij de oude weg en zet de nieuwe er neer.

Ik ga morgen hier mee aan de slag op de zaak.
Als dit werkt scheelt me dit enorm veeltijd.

De gelukkige marcel.

 

[adkliko]

Hoi Rudi en Mark.

Bedankt voor alle hulp.
Het werkt perfect.

Nog een vraag aan mark.
De notering in de cel in weekplanning is nu zo (4390pos. 01Coop Vroomshoop)
Is dit ook zo te maken dat er een spatie tussen zit?
Dus zo (4390 pos. 01 Coop Vroomshoop)
Ik heb het script iets aangepast met de naam Coop vroomshoop.

Groetjes marcel

 

[Mark xl]

Hoi marcel.
Ik heb deze functie voor je gemaakt :

Private Function StrAddSpaceIfNumeric(ByVal myStr As String) As String
Dim bolNumeric As Boolean
Dim strProj As String
Dim i As Long

bolNumeric = IsNumeric(Mid(myStr, 1, 1))

For i = 1 To Len(myStr)

    If IsNumeric(Mid(myStr, i, 1)) <> bolNumeric Then
    
        bolNumeric = Not bolNumeric
        strProj = strProj & " "
    
    End If
        
    strProj = strProj & Mid(myStr, i, 1)

Next

StrAddSpaceIfNumeric = Replace(strProj, "  ", " ")

End Function

voeg deze toe in je project (zelfde module)

en verander de regel in mijn eerdere macro

            WriteProject strProjWrite, rFound

in :

            WriteProject StrAddSpaceIfNumeric(strProjWrite), rFound

dan zou het moeten werken zoals je wenst!

Succes,,!

Mark.

 

[adkliko]

Heren bedankt voor de Hulp.
Mark bedankt voor de perfect werkende code
mijn vraag is opgelost.

groetjes marcel