Příspěvky uživatele
< návrat zpět
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
Uživatelské menu
\nMenu
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.
RSS nejnovější články