bijkomende informatie vlot in een heleboel cellen kunnen plaatsen

[ronny_no]

hallo allemaal,

we gebruiken hier op het werk een excel document om oa deuren te berekenen.

zo zijn er bv cellen met allemaal afmetingen in kolommen gezet en iedere kolom hoort toe aan een type deur
voorbeeld

schilderdeur
61 x 201,5
63 x 201,5
68 x 201,5
71 x 201,5
73 x 201,5
78 x 201,5
81 x 201,5
83 x 201,5

nu heeft men software aangekocht waarmee dit in een globaal CRM pakket kan berekend worden, maar dit betekend dat we materiaalartikelen moeten aanmaken en aangezien onze excel scheet zeer uitgebreid is wordt dit dus de basis.

maar om goed te zijn moeten we artikels gaan aanmaken met een betere omschrijving bv schilderdeur 61 x 201,5

daarom vroegen we ons af of er een middel is om in een cel bijkomende woorden te voegen omdat we anders +2000 cellen manueel moeten veranderen:

dus nu staat er in een cel bv 61 x 201,5 maar moet dus worden schilderdeur 61 x 201,5 maar over de hele reeks liefst in één beweging

resultaat van de cellen
schilderdeur 61 x 201,5
schilderdeur 63 x 201,5
schilderdeur 68 x 201,5
schilderdeur 71 x 201,5
schilderdeur 73 x 201,5
schilderdeur 78 x 201,5
schilderdeur 81 x 201,5
schilderdeur 83 x 201,5

hopelijk is het een beetje duidelijk?

groeten,

Ronny

 

[VenA]

Als de gegevens beginnen in A1 en er geen lege kolommen tussen staan dan kan je deze code proberen. Anders even een voorbeeldje plaatsen met hoe het wel in elkaar steekt.

Sub VenA()
ar = Sheets(1).Cells(1).CurrentRegion
For j = 1 To UBound(ar, 2)
    For jj = 2 To UBound(ar)
        c00 = c00 & "|" & ar(1, j) & " " & ar(jj, j)
    Next jj
Next j
Sheets(2).Cells(1).Resize(UBound(Split(c00, "|"))) = Application.Transpose(Split(Mid(c00, 2), "|"))
End Sub

 

[Cobbe]

Als je een kolom vrij hebt kan je ook makkelijk deze formule gebruiken:

=TEKST.SAMENVOEGEN($B$2& " "&B3)

Met "Schilderdeur" in B2 en de maten in B3:B.....

 

[ronny_no]

bedankt Cobbe, de formule werkt perfect