• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

a co ted

bude stacit?

Co napríklad tohle

Sub hledej()
Dim i As Integer
Dim kde As String, co As String
If Cells(1, 1) <> 0 Then Columns(1).ClearContents
ChDrive "C"
kde = "C:\blabla" 'sem zadat cestu
ChDir kde
co = Dir("*.*")
i = 1
Do While co <> ""
Cells(i, 1) = kde & "\" & co
i = i + 1
co = Dir
Loop
End Sub

tohle jen tak narychlo

@eLCHa
a jo mám 64 bit office Díky.

a kdo má lepší řešení, tak to je jedno. Já nechci s nikým soutěžit
Zadavatel si vybere sám co mu bude vyhovovat.

@Dingo:
Díky za upozornění chybu jsem opravil

edit: nyní funguje i v excel 2003

@Dingo:
Co se týče tvého makra tak hned po spuštění se mi ukaže tohle viz přílohu

Run-time error '445'
Object doesn't support this action
Čím by to mohlo být ? Používám office 2010.

Jelikož od verze 2007 již VBA nepodporuje příkaz "Application.FileSearh" proto ta chybová hláška.
Makro jsem psal v práci na 2003 kde mi to fungovalo.

Nicméně makro jsme upravil s tím, že jsem na netu hledal možnosti čím to nahradit, takže jsem přidal
"Class Moduly" (což není můj výmysl jenom jsem ho upravil dle obrazu svého)

Doladil jsem ještě nějaké maličkosti v Userformu , takže snad poslouží
P.s. Teď to bohužel nebude fungovat ve verzi 2003

@ Dingo:
Tvoje makro jsem bohužel ani nespustil, jelikož běžím na 64bit OS, takže nemůžu posoudit či je lepší

edit: funkční příloha v #post-22271

nebo takhle? viz přílohu

přes tlačítko s možností výběru.

Jelikož nevím jaké přípony máš konkrétně namysli(kromě příkladu co jsi uvedl) tak jsem hodil do sloupce "A" pár přípon.

opraveno.

ja měl namysli jenom aktuální datum, moc se ve vzorcích nevyznám
zkus vzorec =NEBO(DENTÝDNE($B3)=6;DENTÝDNE($B3)=7)
nahradit vzorcem =NEBO(DENTÝDNE($B3)=1;DENTÝDNE($B3)=7)

Aktuální datum ti nemůže zvýraznit když ve sloupci "B" máš rok 2010

máš namysli komentář (červený trojúhelník v rohu bunky)
nebo jsi měl něco přes makro napsané?

Tohohle jsem se právě obával, že budeš rozšiřovat řádky. Jsem zvědavý až budeš mít 30 a víc druhů jak to budeš řešit bez rolovaní. Nevím jaké rozlišení má tvůj monitor, ale mně se poslední sešit vešel v pohodě do okna. (i ten první mimochodem, ale to je jedno)

Posílám ti finální verzi. Víc se s tím už zabývat fakt nechci a ni nebudu.

PS.ještě jedna věc proč řešíš jeden problém ve třech postech?? Zbytečně to tady jenom zahlcuješ

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse