Příspěvky uživatele

Ahoj,

třeba takto:
For rd = 1 To ActiveSheet.UsedRange.Rows.Count
If UCase(Cells(rd, 4)) = "NE" Then
Cells(rd, 4).Interior.Color = vbRed
If Cells(3, 6) <> "" Then Cells(3, 6) = Cells(3, 6) & ";D" & rd Else Cells(3, 6) = "D" & rd
End If
Next
M@

Myslíš ' :-) - to je ta klávesa (na mé klávesnici) nad Enterem a mačká se se Shiftem :-). Jinak 60 tabulek bych nechtěl proklikávat ručně - k tomu nám slouží makra :-). Ale hlavní je, že sis poradila ;-).

M@

Tady asi bude lepší když přiložíš ten soubor - na to bude lepší použít makro :-).

M@

Ahoj, nejprve bych si vyfiltroval ID pomocí rozšířeného filtru, tak abych měl každé jen jednou (s možností kopírovat jinak) a pak bych vedle jedinečných ID použil funkci SUMIF.

M@

Ahoj,

zkus následující:
=SUMIF(F8:F1000;F8;N8:N1000)
nebo:
=SUMIF(F8:F1000;5000;N8:N1000)
nebo:
=KDYŽ(F8=5000;SUMIF(F8:F1000;F8;N8:N1000);0)
nebo:
=KDYŽ(F8=5000;SUMIF(F8:F1000;5000;N8:N1000);0)
M@

Ahoj, funkce SVYHLEDAT je tou správnou volbou, jen jsi zapomněl na poslední parametr NEPRAVDA, nebo 0.
=SVYHLEDAT(E11;$A$11:$B$30;2;0)

M@

Jo Word hold není Excel :-), ale jinak když chci tabulku excelu vložit (v mém případě) do powerpointu, tak si ji vytvořím v excelu, uložím a pak ji jako objekt vložím do powerpointu, což půjde asi i ve Wordu.

M@

Excel toho naopak umí spustu, ale záznamem makra nelze docílit čehokoliv - občas je nutno si to napsat posvém. V příloze je export sloupců 1,3 a 5 - lze upravit. Název souboru je na uživateli - výchozí je název listu.txt, přidal jsem i možnost zadání oddělovače (výchozí je středník).

Snad je to tak OK.
M@

Tak jsem to zkoušel všemožně a ikdyž jsem mu do toho pole dal přesně to co se tam dá vybrat, tak při spuštění filtru makrem to nefungovalo, když jsem pak dal filtr -> vlastní a nechal mu tam hodnotu tak jak ji tam zapsalo makro a dal jsem OK, tak se to vyfiltrovalo, takže to nejede jen při spuštění makrem, z čehož jsem tak trochu jelen :-/.

Asi nezbývá než použít kombinace:
IF ten = to AND tamten = tamto THEN tento :-)
nebo

IF ten = to AND tamten = tamto THEN
IF onen = ono THEN
tento
tamto
ELSE
támhleto
END IF
ELSE
to
END IF

uf :-)

M@

Ahoj,

čím jsou ty buňky definovány?
Č. týdne někde na daném řádku / Datum někde na daném řádku, nebo nějak jinak?

Asi by podle nějakého kritéria šlo při spuštění porovnat s aktuálním datem a časem a neodpovídající buňky zamknout.

M@

Ahoj,

ne že bych tuhle funkci používal, ale zkusil jsem si to hodit do Accessu a vyšlo mi to správně (stejně jako tobě v excelu: 0,000572354). Hodil jsem to do přílohy.

M@

Ahoj,

podle mě, pokud máš v buňce regulerní číslo a pak ho načteš do proměnné Text, která je definovaná jako string, tak to bude brát jako text, dále když filtr nastavíš na *Text*, tak to opět bude hledat jen text.
Asi bych to řešil ověřením je-li hodnota číslo (Isnumeric) a podle toho bych pak nastavil filtr:
buď
- je-li číslo, tak dle proměnné která bude třeba Cislo as Single - bez hvězdiček.
jinak
- je text, tak dle proměnné text klidně s hvěudičkama :-).

M@

Kdybych tomu tak dobře rozumněl, tak bych to nehledal na internetu :-), no ale zkusil jsem to trochu popsat v příloze.

M@

Ahoj,

trochu jsem zaserfoval, odzkoušel a kupodivu to fungovalo.
V preferencích projektu jsem si teda musel zapnout:
Microsoft Outlook 11.0 Objekt Library
Knihovna MSOUTL.OLB

a poté za předpokladu že do buňky A1 napíšu datum

a spustím proceduru:
Sub GoToDate()
If IsDate(Cells(1, 1)) = True Then
Dim objCalendar As Outlook.MAPIFolder
Dim olExp As Outlook.Explorer

dtmMyDate = Cells(1, 1)

Set OL = CreateObject("Outlook.Application")
Set olns = OL.GetNamespace("MAPI")
Set objCalendar = olns.GetDefaultFolder(olFolderCalendar)
objCalendar.Display
Set olExp = objCalendar.GetExplorer
Set viw = olExp.CurrentView
viw.GoToDate dtmMyDate
End If
End Sub
tak to otevře kalendář na daném datu.

M@

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje