Matjazev.NET

Hvala za odgovor; se bom potrudu z malo več kode.
Lp

Pozdravljeni

Imam formo na kateri je npr. 50 txt-boxov. Ob določeni izbiri bi rad, da se mi obarvajo le tisti, katere potrebujem.

Npr.: Forma1.(TextBox1, TextBox2,...).BackColor = &H80000005

Torej kako našteti vse TB, da ne bi za vsakega pisal cel stavek?

Lp

Pozdravljen

V kolikor nimate jasnih ločil, kje boste ločili tekst, bi bilo to vseeno dobro ročno razdelit. Lahko naletite tudi na cseto 27. aprila, ...

Lp

... ; ja nism nč probu. Res je tak.
Še 1x hvala za res hitr odgovor

Lp

Pozdravljeni Za vpis datuma bi uporabil InputBox: datum_oddaje_porocila = InputBox("Navedeni datum bo datum oddaje poročila.", "Vpiši/potrdi datum oddaje poročila.", Format(Date, "dd.mm.yyyy")) MsgBox datum_oddaje_porocila Ne vem pa kako naprej v primeru "OK", "Cancel" oz klik na "x". Sedaj se proce...

Pozdravljen
Potegnite link povezavo.

Lp

Pozdravljen Uros

Poskusite s to kodo: Lp

...ja to je to, kar sem želel .

Hvala za nasvet.

...ja to s kodo bo šlo . Mislu sem pa, da bi se mi v TB-u avtomatsko spreminjal text glede na polje (npr. A1).
Sem pa jaz že v začetku zafuru stvar . Zdej se mi pa ne da razformirat celo stran, pa zadevo rešujem z vrinjenim TB.

Hvala za pomoč; lp

Pozdravljeni

Na delovnem listu (excel - 2003) imam text box (polje s spreminjajočim textom). Je možno na ta text box potegnit link (npr =A1).

Se zahvaljujem za pomoč.

Pozdravljen Ne vem, zakaj se tam zaustavi. Nemara spet kak hrošček. Meni na xp-ju dela. Makro naj bi delal pa tako: V kodi mpreimenuj, se sprehodimo skozi vse dat. txt. v določenem dir. Ob vsaki najdeni datoteki se kliče f. extract, kjer se izlušči samo ime datoteke, potem sem s snemanjem prišel do ...

Jaz Exe. 2007 ne uporabljam več, ker sem imel preveč težav ( http://www.matjazev.net/forum/viewtopic.php?t=940&highlight=2007 ). Nič se ne zgodi, ker pride do neke napake. V kodi zbrišite "On Error Resume Next". Kjer je napaka se bo ustavilo. Zadevo skušajte popravit. Jaz sem makro nahitro vrgel sku...

Pozdravljen Tako bol na hitro: Sub Preimenuj() ' On Error Resume Next For Each d In Array("*.txt") Dim i As Long With Application.FileSearch .NewSearch .LookIn = "C:\Test\" ' bolj natančno definirajte, kje naj išče .Filename = d If .Execute() > 0 Then For i = 1 To .FoundFiles.Count datoteka = Extrac...

Pozdrav Niste me pravilno razumeli. Jaz imam še več takih (txt) datotek (več 1000) v mapi. So pa smiselno poimenovane, tako da iz imena vem kam paše. V njih so podatki meritev, katere kasneje v excelu obdelam. Tako imam makro v neki excelovi datoteki, s katerim odprem točno določeno txt. datoteko, p...

Pozdravljeni

Zakaj pa iz Excela ne odpirate xls datoteke, podatke obdelate in te (txt) datoteke nespremenjene zaprete. Jaz uporabljam ta način.

Lp