Příspěvky uživatele

Super diky!!!!
Blbe se popisuje vyznam sorry...

Celý ten sešit má 3mb  Ořezal jsem to a viz příloha.

Jde o to, že v listě daten chci mít k číslu dílu dva poslední datumy (v jedné buňce) jednotlivých požadavků z listu Requali. Tzn. vpravo jsou odkazy pro SVYHLEDAT a to, že první TEMP sloupec je odkazován na oblast od dalšího řádku(od toho co najde SVYHLEDAT) a druhý TEMP sloupec je odkazován na konkrétní buňku další ho řádku.
Pak je se porovná jestli to co najde SVYHLEDAT=s tim co najde SVYHLEDAT o řádek níž a když jo, tak to vytáhne oba datumy.

Je ráno, tak kdybych se blbě vyjádřil tak sorry :-D

má to 3mb :-/

Dám dva bludišťáky tomu, kdo tohle vyřeší...

mám v buňce na dvou řádcích naodkazované, navyhledávané datumy...ale výstup je v pořadovém čísle a přes formát buňky se mi datum nezobrazí...
Vzorec:

=KDYŽ(JE.NEDEF(SVYHLEDAT(A201;Requali!$A$4:$Q$9999;2;NEPRAVDA))=PRAVDA;"_";SVYHLEDAT(A201;Requali!$A$4:$Q$9999;2;NEPRAVDA))&
ZNAK(10)
&KDYŽ(NEPŘÍMÝ.ODKAZ(AK201)=A201;SVYHLEDAT(A201;(NEPŘÍMÝ.ODKAZ(AJ201));2;NEPRAVDA);"_")

a výstup je v jedné buňce:

42433
42096

Funkci data která by to převedla rovnou na datum jsem nenašel :-/

Dá to někdo?

Tak částečně pořešeno:
Dim Ret

Ret = IsWorkBookOpen("G:\Reklamace_zdroj.xlsm")

If Ret = True Then
MsgBox "Zdroják je otevřen"
Else
.
.
.

Problém je, že když v 1-2 sekundách spustí makro 2 a více uživatelů najednou, tak se soubor stejně otevře všem a dělá to bordel...

Zdravím,

prosím o radu, nikde jsem se nedopátral...
V jednom souboru mám makro které přidává do zdrojového souboru pořadové číslo a s to vypinkne uživateli do souboru ve kterém pracuje... problém je v tom, že když dva uživatelé spustí makro souběžně, tak obdrží stejné pořadové číslo. Takže bych potřeboval, aby makro vždy zkontrolovalo jestli je zdroják otevřen a v případě, že ano, tak se třeba na chvilku zacyklil... už první řádek mi nefachá... :-/

Set Sesit = Workbooks("Reklamace_zdroj.xlsm")
sesitOtevren = Not Sesit Is Nothing

For i = 1 To 1000000
If sesitOtevren = True Then
MsgBox "Moment"
i = i + 1
Else

Dim NovaReklamace As Integer

For Radek = 1 To 65536
If Cells(Radek, 1) = "" Then
prvniprazdnyradek = Radek
PosledniRadek = prvniprazdnyradek - 1
poslednireklamace = Cells(PosledniRadek, 1)
NovaReklamace = poslednireklamace + 1
Cells(prvniprazdnyradek, 1) = NovaReklamace
Exit For
End If
Next Radek
soubor_do.Save
soubor_do.Close
Range("A1") = NovaReklamace
Exit For
End If
Next i

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje