[Ribban]

Hej!
Jag vill söka igenom (loopa) hela kolumn A och leta efter företag (det finns flera av dessa) och slå samman den text som finns i kolumn B (på företag1, företag 2, osv...). Är det någon som vet hur man kan göra detta.
Mvh Håkan

[Monshi]

Du har alltså ett företagsnamn i, säg, cell B2
Samma företag finns någonstans i A-kolumnen.


nä riktig vad du vill förstår jag inte.
Kanske dock att det räcker med att jag säger att formeln PASSA är duktig på att söka och formeln INDEX duktig på att hämta data.

Om inte det räcker, lägg upp ett litet exempel. Bifoga en dummy-bok eller posta en bild. Eller skriv i text som du lyckas få till det.

[Ribban]

Hej!
Företagen finns alltid i kolumn A och dess text i kolumn B. Men problemet är att företag 1 kan finnas på flera rader och jag vill slå samman dess text till att företaget bara finns på en rad och all text samlad i kolumn B.

Jag behöver nog en kodsnutt för att jag ska få ihop det. Kan du hjälpa mig tror du?

Mvh Håkan
 Excel.JPG (20,98Kb)
Antal nedladdningar: 1

Inlägget är redigerat av Ribban: 25 maj 2012, 09:29.

[Monshi]

En formel räcker.

Vi säger att du på rad nummer åtta, i kolumn C, skriver följande
=OMFEL(B8&" "&LETARAD(A8;A9:$C$15;3;FALSKT);B8)

C15 - en rad, eller mer, under sista raden med data på. Kopiera formeln ned och upp utmed alla dina data.

[MH_resurrected]

Snygg Monshi, är OMFEL något nytt i excel 2007/10?

Man kanske skulle uppdatera... Annars var ju sammanläggning av text en av Excels svagare sidor


Här får Ribban lite VBA som exempel eftersom jag råkade hat en gammal snurra liggande. Allt går att krångla till om man bara försöker :-)

Sub Makro()

Dim företagsnamn As Range
Dim Företagsnamnet As String
Dim i As Integer
Dim iAntalRader As Integer
Dim cell As Range


iAntalRader = Range("A:A").Cells.SpecialCells(xlCellTypeConstants).Count


' Kopiera företagsnamnen till kolumn E:.

    Range("A:A").AdvancedFilter Action:=xlFilterCopy, _
    CopyToRange:=Range("E1"), Unique:=True


'Anger var dina unika företagsnamn har kopierats.

Set företagsnamn = Range(Range("E1"), Range("E1").End(xlDown))


'Loopa igenom företagsnamnen.

For Each cell In företagsnamn.Cells
    Företagsnamnet = cell.Value
    i = 1
    
        Do Until i > iAntalRader + 1
            If Range("A1").Offset(i, 0).Value = Företagsnamnet Then
                cell.Offset(0, 1).Value = cell.Offset(0, 1) & Range("A1").Offset(i, 1).Value & " "
            End If
        i = i + 1
        Loop
Next cell


End Sub

Ed: Hur tusan får man Eforum att förstå att en kommentar är slut i ett VBA-excempel?

Inlägget är redigerat av MH_resurrected: 25 maj 2012, 11:18.

[Monshi]

Jupp, OMFEL är "ny" för Excel 2007. Mycket trevlig funktion.

man klarar annars samma i Excel 2003 med ack så jobbiga
=OMFEL(ÄRFEL(LETARAD(A8;A9:$C$15;3;FALSKT));B8;B8&" "&LETARAD(A8;A9:$C$15;3;FALSKT))
vilket då ger att LETARAD, vilket är en förhållandevis beräkningskrävande funktion, beräknas två gånger.

Som jag brukar säga, kan man lösa ett problem utan VBA bör man lösa det utan VBA.

Eforums formatering av kod lämnar en del att önska, tyvärr.

[Ribban]

Kanon utifrån detta kan jag ju sedan jobba vidare.
Tack,
Mvh Håkan