Příspěvky uživatele


< návrat zpět

Strana:  « předchozí  1 2
makro, vyhledání určité hodnoty v jinem excelu (22.7.2015 12:42)

Děkuji moc za pomoc zkoušel jsem to a píše mi to chybu 9. Možná je to tím že hledám číslo a ne slovo. Je to možné. po smazání obrázků se mi podařilo to sem uložit. Můžete se na to prosím podívat??

Děkuji

makro, vyhledání určité hodnoty v jinem excelu (22.7.2015 8:59)

Nejde mi vložit soubor protože má 320kb. tady mám jen vyhledání čísla v adresáři. tlačítko 4 by mělo vyhledat v souboru dané číslo.
Sub tlačítko3_Kliknutí()
Dim f As String
Dim Cesta As String
Dim i As Integer
Dim a As String

Cesta = "f:\CrossOrg\MC_development\BOM-zaloha\3D_modely_2015\" 'Cesta musí končit znakem '\'
a = Cells(3, 4)
ChDir Cesta
f = Dir(Cesta & a & " *.xls*")
i = 3
While f <> ""
Cells(i, 5) = f
i = i + 1
f = Dir()
Wend
Cesta = "F:\CrossOrg\MC_development\BOM-zaloha\" 'Cesta musí končit znakem '\'
a = Cells(6, 4)
ChDir Cesta
f = Dir(Cesta & a & " *.xls")
i = 6
While f <> ""
Cells(i, 5) = f
i = i + 1
f = Dir()
Wend
End Sub
Sub tlačítko4_Kliknutí()

ChDir way
c = Dir
Find b, way

End Sub

makro, vyhledání určité hodnoty v jinem excelu (22.7.2015 8:56)

Hodnoty by se měli zapisovat do sloupce E, a je možné že bude více souborů splňovat tuto podmínku a potřeboval bych je vypsat všechny.mám zde už funkci která vyhledává číslo ve jménech v adresářích.


Strana:  « předchozí  1 2

Uživatelské menu

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

Menu

Formulář Faktura

Formulář Faktura IV

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

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje