Příspěvky uživatele

priloha

no,chci aby se třeba ten Label_Info.BackColor ,zmenil sám po 2sec zdržení na zelenou.

abych popsal situaci:
Po otevření sešitu, nějakého se mi objeví uvodní form, kteří když se Inicializuje, spouští různá makra a jejich výsledky se dopisují do toho uvodního formuláře, např poslední spuštění apod, a když to třeba bylo později než včera /do -14dní/ tak mi to v ´tom Labelu napíše text např "pozor, už se to dlouho nespouštělo", a ten text se vybarví v šedém Labelu jinou barvou písma a ten label se zbarví taky jinak, třeba červeně.

když jsem dopsal ***příkazy tak to nefunguje

Private Sub UserForm_Initialize()
Dim HodnotaC3 As Variant
HodnotaC3 = Worksheets("dat").Range("C3").Value
TextBox1.Text = HodnotaC3
If HodnotaC3 < 0 And HodnotaC3 > -14 Then TextBox1.BackColor = vbYellow

'Application.Wait (Now() + TimeValue("00:00:02"))
**** Label_Info.BackColor = &HC000& 'zeleny ' chci aby se to zmenilo samo po 2sec zdržení
****'call Label_Info.BackColor = &HC000& ' chci aby se to zmenilo samo
End Sub

A ještě jedna věc.
Pokouším se kodem změnit barvu podkladu Label, nebo celého form, ale nic se nezmění, a nevyhodí se ani chyba.

Label_Info.ForeColor = &HC000& zmenit písmo mi funguje
Form_Info.ForeColor = &HC000&

ale pozadí se nezmení:

Label_Info.BackColor = &HC000& nebo 16761087.

jak je to se zápisem těch kodu barev?
Musí se přidávat nějaký další příkaz aby se to ve formuláři nějak"znovunačtlo" s tou novou barvou?
díky

Dobrý den,
prosím jak správně napsat podmínu do vba:
chci pro hodnotu C3 <0 a > -14

If Worksheets("dat").Range("C3").Value = and(<0;>-14) Then
díky

Zkusím jak píšete.
jojo,,ten Cells(1, 4) vidím že je to preklep.
Date jsem neznal,bude to jednodušší.
O Historii,hm, to jsem nevěděl,přejmenuju to.
Děkuji.

Protože Mám jiné makro , které se spustí podle toho, jestli v určené buňce je dnešní den. (A ten tam doplNuje /nejdříve jako vzorec a pak ho zkopíruje sám na sebe jako hodnotu*aby se automaticky zítra nezměnila, zas jiné makro, aby se poznalo, jestli už v tento den bylo to druhé spuštěno.
Pokud se dnes spustilo, zapíše dnes , a při znovu otevření sešitu dnes, se vyhodnotí ,že už bylo spuštěno a neudělá nic.

Nebo by jste to řešil nějak jednodušeji?

Děkuji.
Ještě drobnost. Zadal jsem si do sešitu, aby se po jeho otevření doplnilo do listu"historie" dnešní datum.

Private Sub Workbook_Open()
Worksheets("historie").Select
Sheets("historie").Cells(1, 4).FormulaLocal = ("=DNES()") 'vloží dnesDatum odeslání obj do "A4"

End Sub

a začlo mi to po otevření vyhazovat error:
Runtime error 57121
Aplication-defined or object -defined error.
Nevíte proč a jak se toho zbavit ?

super, jen, můžete mi prosím vysvětlit řádek:

If Not rng Is Nothing Then

tomu moc nerozumím , k čemu to je?

Dobrý den
..řešili jsme spolu.
Když doplním ten datum,list1,najde to jméno a doplní datum k příslušnému jménu

Potřeboval bych tam ještě doplnit podmínku:

pokud je v list1/sl.A "AA", tak ten datum doplní do list2/k odpovídajícímu jménu ale do sl.F /nov.datum AA
a
pokud je v list1/sl.A "BB", tak ten datum doplní do list2/k odpovídajícímu jmén ale do sl.G /nov.datum BB

Byl by jste tak hodný?
Děkuji
P

Mrknu .Dík.

Dobrý den.
Nedokázal by někdo poradit s makrem?
Jedno makro mi připraví email a potřebuji do něj přidat kod, který po doplnění Komu, Předmět,Text emailu atd,nabídl dialog.okno pro výběr souborů, /adres.struktura disku/, s předvyplněnou cestou,kde soubory hledat. V tomto okně bych si vybral soubory ,najednou více kusů, a ty se zazipovali a přidali do přílohy emailu.
Je to možné , takto volat i tu funkci Zip?
Pokud ne, stačí mi alespoň vybrat ty soubory, a přidat je do emailu.

add 2. V některých případech se názvy souborů nebudou nikdy měnit, vždy se budou jmenovat stejně /třeba text.txt, text2.txt apod .Tak jestli je možné to zakomponovat do makra taky.
Děkuju za každou radu.

strAdresa = "ddp@abc.cz"
'předmět e-mailu
strPredmet = "Žádost"
strBody = "Dobrý den," & vbCrLf 'text e-mailu
strBody = strBody & " S pozdravem"

..PŘÍLOHA ???

OK, už jsem to prošel, funguje, Děkuju !
Hezký večer

Zdravím
vyměnil jste pouze řádek na konci ?

.Cells(3, 6).Resize(UBound(arrA)).Value = Application.Transpose(arrA)
za
.Cells(3, 6).Resize(UBound(arrA)).Value = arrA

jinak nic, žádná změna v kodu ?

Prostuduju, díky za vyčerpávají komentář. Hezký víkend

tak jsem narazil při testování na zádrhel. Když už je nějaká hodnota ve sloupci F,u jmen v listu ICA historie , která jsme nenašli v seznamu VSTUPY , tak se tato hodnota vymaže. To je špatně, mám tam už data a musejí být zachována. Asi to chce jen upravit ,aby vyplněné hodnoty, když jméno nenajde se negumovali , Ale jen se přidalo to "a" co se našlo.

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje