Sammenlægning af celler

sæt musen i celle 0, og vælg autosum for en række..

marker cellerne c til k for rækken..

Når du har auto sum for en række i celle o, trækker du bare celle o op og ned.

/JJ

denne summerer i den række hvor markøren er når koden køres


Sub xSum()
r = ActiveCell.Row
Cells(r, 15) = Application.WorksheetFunction.Sum(Range("C" & r & ":K" & r))
End Sub

Undskyld jeg tror ikke jeg har forklaret mig godt nok. I cellerne C til K står der tekst og også tal. Teksten og tallene skal sættes sammen til én tekststreng og stå i celle O.
Eksempel: Sokker str 40 sorte .....osv  celle o: sokkerstr40sorte

Hvis det er i række 1 kan du gøre sådan:

=C1&D1&E1 osv.
Hvis du vil have decimaltal på tallene kan du gøre sådan:
=tekst(C1;2)&tekst(D1;0)&tekst(E1;1)

et mellemrum kan laves med " " - sådan:
=tekst(C1;2)&" "&tekst(D1;0)&tekst(E1;1)

Du kan også sætte tekst ind direkte:
=C1&D1&E1&"dette er en test"&F1

jeg kender godt den skrevne formel i cellen. Men regnearket kommer bare til at fylde rigtig meget med alle de formler der kommer i det. Derfor er jeg på udkig efter en makro der kan det samme :-)

Sub xSum()
r = ActiveCell.Row
For t = 3 To 11
Cells(r, 15) = Cells(r, 15) & Cells(r, t)
Next
End Sub

Hej exvelent. Tak for dit svar. Det virker hvis man står i den cellen hvor tingen skal sættes sammmen. Vil det være muligt at lave makroen således man ikke skal stå i cellen... da der er omkring 3000 rækker med celler der skal sættes sammen kan det hurtig blive lidt langtrukket at skulle stå i hver enkelt celle :-)

prøv om denne dur - tester for værdier i kolonne C
der indsættes et (') i starten af strengen for at modvirke tal formatering

Sub xSum()
Dim x As String
Dim rk, t, j
rk = Cells(65500, 3).End(xlUp).Row
For j = 1 To rk
For t = 3 To 11
x = x & Cells(j, t)
Next
Cells(j, 15) = "'" & x: x = ""
Next
End Sub

Tak det virker fint. Hvis du skriver et svar kan jeg give dig dine point :-)

ok