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

MS Excel

Téma: Řazení dle vlastního seznamu, který má více než

Zaslal/a Vashek 8.12.2011 22:55

Dobrý den,
poprosil bych o radu při tomto problému:
Mám tabulku s daty - cca. 200 řádků, v každém řádku pětimístné ID. Potřebuji srovnat tyto data dle vlastního seznamu ID.Klasická funkce seřadit dle vlasního seznamu však umí jen 255 znaků.
Poraďte prosím díky.

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

---

Poki(9.12.2011 8:56)#006666

zkuste prilozit soubor a definovat vlastni seznamcitovat

Vashek(9.12.2011 12:17)#006670

Přikládám soubor, kde jsou označena data a zároveň i seznam v dalším sloupci. Děkuji za radu

http://www.uschovna.cz/zasilka/G1FHDFGWKG63G9BZ-W5Rcitovat

kmarecek(9.12.2011 16:08)#006672

.. troška do mlýna

Příloha: 6672_data_1.zip (13kB, staženo 17x)

citovat

Vashek(12.12.2011 8:54)#006677

Díky moc, docela to pomohlocitovat

Vashek(13.12.2011 8:27)#006684

Jen malý detail - když mám v datech ID, které není v seznamu podle kterého se mají data rovnat, rozhází to celá data. Potřeboval bych, aby se řádek s tímto ID vypsal mimo pod seznam - jeli to možné. Díky všem odborníkům citovat

kmarecek(13.12.2011 11:55)#006685

to v zadání nebylo..., tak teď to snad bude lepší

Příloha: 6685_data_2.zip (15kB, staženo 19x)

citovat

RomanX(13.12.2011 12:44)#006686

Já jsem to pochopil tak
Vlož
Sub start()

Dim Oblast As Object
Dim Pridej As Object
Dim Hledej As Object
Dim i
Dim j
j = 0
With ActiveSheet
Set Oblast = .Range("H2", .Cells(.Rows.Count, "H").End(3))
Set Pridej = .Cells(.Rows.Count, "H").End(3).Offset(1, 0)
For i = 2 To .Cells(.Rows.Count, "A").End(3).Offset(1, 0).Row - 1
Set Hledej = Oblast.Find(Range("A" & i), LookIn:=xlValues, lookat:=xlWhole)
If Not Hledej Is Nothing Then
Range("A" & i).Offset(0, 1).Resize(1, 3).Copy Hledej.Offset(0, 1)
Hledej.Offset(0, 4) = Range("A" & i).Row - 1
Else
Range("A" & i).Resize(1, 4).Copy Pridej.Offset(j, 0)
Pridej.Offset(j, 4) = Range("A" & i).Row - 1
j = j + 1
End If
Next i
End With
End Sub
citovat

Vashek(14.12.2011 8:29)#006690

Děkuji všem odborníkům,
Romanova varianta řešení se zdá být nejlepší.I přes to díky moc všem.citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse