Klantnaam indelen op organisatie

Status
Niet open voor verdere reacties.
P

Peter2016

Gebruiker
Lid geworden
4 sep 2015
Berichten
89
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
 

Bijlagen

  • Naam Indelen.xlsm
    260,7 KB · Weergaven: 28
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!)
Code: 
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
 
Laatst bewerkt:
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)
 
Zijn de cellen in kolom C tab Contactpersonen nog samengevoegd?
 

Bijlagen

  • Naam Indelen.xlsm
    262,9 KB · Weergaven: 34
Hallo Sjon,

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

Bijlagen

  • Naam Indelen2.xlsm
    261,8 KB · Weergaven: 28
SjonR zei:
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!)
Klik om te vergroten...

Je bestand voldoet nog steeds niet aan voorwaarde 2. De cellen zijn nog steeds samengevoegd.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan