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

Příspěvky uživatele

Zdravím, prosím o radu jak bych mohl pomocí VBA vyřešit toto zadání.Potřebuji obarvit buňky ve vybraném řádku výběrem ze seznamu, které splňují určité kritéria ve sloupci.Více raději v přiloženém příkladu.Děkuji všem za radu a pomoc Jirka

Zdravím,mockrát děkuji,po mírné úpravě na proměnnou to chodí jak jsem si představoval.Díky Jirka

Dobrý den, pěkně prosím o radu,zda lze editovat již vložené úkoly v otlooku.
Pomocí vba z excelu vkládám do otlooku úkoly. Následně bych ale potřeboval tyto úkoly opět jen z excelu vyhledat a editovat nebo přepsat původní úkol.
(shrnutí:jde mi o to,abych měl možnost přepsat původní úkol za aktualizovaný tzn. změna bude jen ve stavu=dokončení úkolu).
Děkuji za každou radu.
Jirka

Tak jsem to vyřešil.Tato úprava formátu řeší můj problém. Format(DateAdd("m", 0, Calendar1), "dd.mm.yyyy")

Omlouvám se ta přílohu, tady je ...

Zdravím,prosím o radu jak donutím Kalendář s vlastním formátem datumu "dd.mm.yyyy", aby se po 12 dni v měsíci nepřehodil formát na "mm.dd.yyyy". Více raději v příloze.Děkuji za radu Jirka

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 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ínku

Ještě menší úpravička.Kdyby se to někomu hodilo tak přikládám přílohu.
Ahoj Jirka

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 Sub

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ří.

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 V příloze přikládám příklad.

Díky všem za pomoc

Tak s tím,se dá už něco podniknout.Díky všem za pomoc.
Jirka

Ahoj,možná ti pomůže tento příklad:

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A1") = 1 Then
Application.DisplayCommentIndicator = xlNoIndicator
Else
If Range("A1") = 2 Then
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
End If
End If
End Sub

A co pomocí funkce.Našel jsem něco na netu ale bohužel to neumím rozchodit.Můžeš se na to podívat?
Díky jirka

Ahoj,potřebuji zjistit počet komentářů v určité oblasti buněk.Je nějaká šance pomocí vzorečku? Myslím,že asi ne, ale přesto se dotazuji.
Děkuji za radu Jirka

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje