Klantnaam indelen op organisatie

[Peter2016]

Hallo,

Ik heb een aantal klantnamen die ingedeeld moeten worden op een ander tabblad adv indeling van de organisatie.
Voorletter & klantnaam (kolom B & C) van tab ("Klant") moeten worden ingedeeld op tab"(contactpersonen") (adv. "Organisatie" uit kolom K) in kolom D

Zie bijlage met uitleg

 

[SjonR]

Peter, deze werkt onder twee voorwaarden:

1. de formules uit kolom D op tab Contactpersonen zijn verwijderd
2. de cellen in kolom C tab Contactpersonen zijn niet samengevoegd. (Samengevoegde cellen en VBA is een ramp!)

Sub SjonR()

    For Each cl In Sheets("Klant").Range("K17:K24")
        With Sheets("Contactpersonen")
        If cl <> "" Then
            X = .Range("C8:C22").Find(cl).Offset(, 1).Resize(5, 1).SpecialCells(4).Row
                .Cells(X, 4) = cl.Offset(, -9) & " " & cl.Offset(, -8)
        End If
        End With
    Next

End Sub

 

[Peter2016]

Hoi SjonR, bedankt

1. Formules zijn niet meer nodig dus , geen probleem.
2. Cellen voorletters en naam zou ik vooraf al kunnen samenvoegen.

De macro loopt helaas vast op:

X = .Range("C8:C22").Find(cl).Offset(, 1).Resize(5, 1).SpecialCells(4).Row
.Cells(X, 4) = cl.Offset(, -9) & " " & cl.Offset(, -8)

 

[SjonR]

Zijn de cellen in kolom C tab Contactpersonen nog samengevoegd?

 

[Peter2016]

Hallo Sjon,

Heb velden samengevoegd, maar nog steeds wil ie niet, zie bijlage.

 

[SjonR]

Peter, deze werkt onder twee voorwaarden:

1. de formules uit kolom D op tab Contactpersonen zijn verwijderd
2. de cellen in kolom C tab Contactpersonen zijn niet samengevoegd. (Samengevoegde cellen en VBA is een ramp!)

Je bestand voldoet nog steeds niet aan voorwaarde 2. De cellen zijn nog steeds samengevoegd.