• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: makro-slouceni duplicitnich sousedicich bunek

Zaslal/a townsmen 13.9.2012 16:16

Prosím někoho o malou úpravu makra ve kterém potřebuji nejlépe dopsat podmínku která sloučí několik sousedících duplicitních buněk na řádku do jedné buňky.
Více info v příloze.
Předem děkuji, Tom :-)

Příloha: 9483_transpodata.zip (23kB, staženo 23x)

Uzamčeno - nelze přidávat nové příspěvky.

---

Jeza(13.9.2012 16:53)#009485

tady jeden pokus :-)
Dim rd0 As Single
Dim rd1 As Single
Dim rd2 As Single
Dim sl As Single
rd1 = 1
rd2 = 1
Do While Cells(rd1, 1) <> ""
sl = 5
List2.Cells(rd2, 1) = Cells(rd1, 1)
List2.Cells(rd2, 2) = Cells(rd1, 2)
List2.Cells(rd2, 3) = Cells(rd1, 3)
List2.Cells(rd2, 4) = Cells(rd1, 4)
List2.Cells(rd2, sl) = Cells(rd1, 5)
sl = sl + 1
rd0 = rd1
Do While Cells(rd0, 1) = Cells(rd1, 1) And Cells(rd0, 2) = Cells(rd1, 2)
If List2.Cells(rd2, sl - 1) <> Cells(rd1, 5) Then
List2.Cells(rd2, sl) = Cells(rd1, 5)
sl = sl + 1
End If
rd1 = rd1 + 1
Loop
rd2 = rd2 + 1
Loop
List2.Activate

M@citovat

townsmen(13.9.2012 17:16)#009486

Tak myslím že to funguje bez chybičky, díky moc :-)
Teď jdu přemejšlet kde jsem udělal chybu :Dcitovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse