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

Příspěvky uživatele

ahoj.
upraveno
+
přidal jsem tlačítko Uložit nové kde:
1) už není dialogové okno (ukládá tam kde se nachází sešit)
2) počet řádků v sešitě je dynamický (uloží všechny řádky)
3) sloupce lze libovolně nastavit (počet, pořadí)
4) místo příkazu Write jsem nahradil Print (ukládání bez uvozovek)

Snad teď už si vybereš a složíš si makro dle obrazu svého

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é?

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje