Příspěvky uživatele


< návrat zpět

Strana:  1 ... « předchozí  2 3 4 5 6 7 8 9 10   další » ... 69

Mám dvě varianty:
1) Funkce Svyhledat a pomocná tabulka

2) Funkce Zvolit a pomocné hodnoty TagS a TagE ve správci názvů

B2:
=ZVOLIT(A1;"Sklad A";"Sklad B";"Sklad C";"Sklad D")

Např.

?

Jelikož je to takový neustálý lepení kódu, šel sem na to cestou nejmenšího odporu a "na hulváta" přidal do modulu veřejnou proměnnou typu Boolean a do "spouštěcího" kódu za MojeMakro blok If.. Then, který doplní hodnotu "ANO".

Odporuje to, ale zadání, které požaduje, aby byla hodnota "ANO" zapsána před vlastním zápisem datumů.
Což moc nechápu.

PS: tak komentář buňky G1 požaduje pravý opak 6

@MartyZ
Ahoj, náhodou sem narazil na tohle vlákno.
Píšeš, že procházení word souborů není problém, tak sem jen udělal takovou ukázku jak načíst data z ovládacích prvků, které máš umístěné ve vzorovém souboru.

Za chvíli letím do práce, tak jen hrubý nástřel. Neošetřeny případné chyby atd.
Vyzkoušej zda by to takto vyhovovalo.

https://www.connectionstrings.com/

@ elnino
Bez problému soubor otevřu a můžu s ním pracovat. Pokud vytvořím další list a chci přejmenovat na Historie, Excel protestuje.

https://www.linkedin.com/pulse/why-cant-you-name-worksheet-history-excel-ajay-anand

Deš na to moc složitě.
Do toho makra, které se má spouštět pouze jednou dáš na začátek či konec kód pro vložení aktuálního data:Worksheets("historie").Cells(1, 4).Value = Date
a do Private Sub Workbook_Open()
If Worksheets("historie").Cells(1, 4).Value = Date Then Exit Sub
Call MakroCoNecoDela

Pár poznámek:
Cells(1, 4) - není adresa buňky A4
Worksheets("historie") - seš si opravdu jistý jménem toho listu? Excel nepovoluje pojmenovat list jménem historie.

Proč makro? Stejného výsledku dosáhneš vzorcem (DNES) v buňce.

Proměnná rng vrací adresu buňky z listu "List2" hledaného jména. Tedy pro jméno Beáta vrátí adresu $D$2.

Pokud by došlo k tomu, že na nějakém z listů by se vyskytlo jméno, které by nebylo současně přítomno na obou listech vedlo by to k chybě v kódu, protože proměnná rng by byla prázdná.

Řádek If Not rng Is Nothing Then tedy testuje zda proměnná rng není prázdná, pokud by byla znamená to, že hledané jméno nebylo nalezeno a tento kód

Select Case Objednal
Case "AA"
rng.Offset(, 2).Value = Datum
Case "BB"
rng.Offset(, 3).Value = Datum
Case Else
'pro případ, že by položka Objednal neměla hodnoty AA nebo BB
'?????
End Select


by se přeskočil a zobrazil se MsgBox s chybovou hláškou.

Upraveno.

Jelikož podporu nemá ani excel pro android přímo od Microsoftu, silně pochybuju, že by se našla jiná aplikace.

Asi sem fakt debil, ale nechápu co má být tedy výsledkem. Pokud použiju Tebou navržený postup, výsledkem bude to, že všechny hodnoty ve sloupci C větší jak 1 budou červené.

Stejného výsledku dosáhnu podmíněným formátem, zvýrazni všechny buňky ve sloupci C větší jak 1 bez ohledu na nějaké trojce.


Strana:  1 ... « předchozí  2 3 4 5 6 7 8 9 10   další » ... 69

Uživatelské menu

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

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

Hromadné přepsání

elninoslov • 24.5. 10:29

Hromadné přepsání

Nomi • 24.5. 8:32

Index - každý rok začít od 1 Power Query

Alfan • 23.5. 9:17

nepřímý odkaz

elninoslov • 23.5. 0:00

nepřímý odkaz

bordov • 22.5. 18:35

vrácené hodnoty

Anonym • 22.5. 15:46

vrácené hodnoty

Anonym • 22.5. 15:45