zkuste prilozit soubor a definovat vlastni seznamcitovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Tipy a triky pro Excel a makra VBA
< návrat zpět
Téma: Řazení dle vlastního seznamu, který má více než
Uzamčeno - nelze přidávat nové příspěvky.
MS Excel
Téma: Řazení dle vlastního seznamu, který má více než 
Zaslal/a 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.(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
http://www.uschovna.cz/zasilka/G1FHDFGWKG63G9BZ-W5Rcitovat
.. troška do mlýna
Příloha: 
6672_data_1.zip (13kB, staženo 25x)
citovat6672_data_1.zip (13kB, staženo 25x)(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
citovatto v zadání nebylo..., tak teď to snad bude lepší
Příloha: 6685_data_2.zip (15kB, staženo 27x)
citovat6685_data_2.zip (15kB, staženo 27x)(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
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
(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
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)
\n
\nFormulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články