< návrat zpět

MS Excel

Téma: Sloučit datum dva slou rss

Zaslal/a jnkopr 26.10.2011 20:42

Ahoj,prosím o nakopnutí.Potřebuji sloučit datumy ze dvou sloupců do jednoho sloupce.Samozřejmě bez duplicit a seřazeno od nejstaršího datumu 4 V příloze přikládám příklad.

Díky všem za pomoc

Příloha: zip6263_sloucit_datum.zip (8kB, staženo 16x)
Zaslat odpověď >
AL(26.10.2011 20:59)#006265
avatar
Nestačí dať tie dáta z 2 stĺpcov pomocou copy paste pod seba do jedného stĺpca, odstrániť duplicity (v Excel 2007 máš na to priamo tlačítko) a potom si to zotriediť?
V excel 2003 to samé, akurát tie duplicity odstrániť prostredníctvom rozšíreného filtra?citovat
jnkopr(26.10.2011 21:36)#006271
avatar
Ahoj,to by určitě stačilo,jen bych musel nejprve zjistit poslední prázdnou buňku po vložení prvního sloupce a pak vložit datumy z druhého sloupce.Datumy budou v rozsahu třeba za dva roky.Zkouším něco nahrát do makra ale zatím se mi nedaří.citovat
AL(26.10.2011 22:22)#006275
avatar
Zrejme si mal na mysli prvú prázdnu bunku pod oblasťou buniek, v ktorej máš dátumy, aby si vedel, kam nakopírovať dáta z tej druhej oblasti. To je jednoduché. Klikneš si do oblasti, ktorú chceš rozšíriť dátumami z tej druhej oblasti, zmačkneš klávesu end a následne šípku dolu tým sa presunieš na koniec oblasti..citovat
jnkopr(26.10.2011 22:43)#006279
avatar
Tak jsem dal něco dohromady ve VBA zdá se že to snad bude fungovat:

Sub Makro1()

Application.ScreenUpdating = False
Range("D8:D365").Select
Selection.Copy
Range("J8").Select
ActiveSheet.Paste
Range("E8:E365").Select
Selection.Copy
Range("J8").Select
Selection.End(xlDown).Select
Selection.Offset(1, 0).Select
ActiveSheet.Paste
Range("J8").Select
Range("J8:J365").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
"L8"), Unique:=True

'filtr řazení datumu
Range("L7").Select
Selection.AutoFilter
ActiveWorkbook.Worksheets("List1").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("List1").AutoFilter.Sort.SortFields.Add Key:=Range( _
"L7:L365"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("List1").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Application.CutCopyMode = False
Application.ScreenUpdating = True

End Subcitovat
jnkopr(26.10.2011 22:59)#006281
avatar
Ještě menší úpravička.Kdyby se to někomu hodilo tak přikládám přílohu.
Ahoj Jirka
Příloha: zip6281_sloucit_datum_1.zip (22kB, staženo 16x)
citovat
AL(26.10.2011 23:03)#006282
avatar
Len poznámka: Na to, aby si mohol s nejakou oblasťou pracovať, tak metóda select nie je nutná (v kóde je navyše). Asi by chcelo zapremýšľať nad univerzálnejším vymedzovaním tých dvoch oblastí v stĺpcoch D a E, je vidieť, že je to vytvorené cez záznamník makra, ale pokiaľ Ti to takto stačí, tak sa to asi dá použiť.citovat
jnkopr(27.10.2011 7:33)#006286
avatar
Ahoj,vím že je to amatérské řešení ale zatím se s VBA až tak nekamarádím.Je to vše systémem pokus omyl 7 a když to alespoň nějak funguje,tak je z toho trochu radosti pro běžného uživatele excelu.
Díky za připomínkucitovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář 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.

On-line nástroje