MS Excel

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

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

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