Příspěvky uživatele


< návrat zpět

Strana:  1 2 3   další »

No to si tedy Google dovolil dost 5 5
Tak to jste mě zachránil, já myslel že je chyba u mě.
Velice děkuji a týpka pozdravujte 1

Dobrý večer,
tohle mi fungovalo pro načítání QR kódu a najednou přestalo.
Ukazuje to na chybu v tučně zvýrazněném řádku.

Public Sub QRX()
Dim TEXT As String

With wsPrevod
TEXT = .Range("F28").Value
Application.ScreenUpdating = False

On Error Resume Next
.Shapes("QR_K27").Delete
On Error GoTo 0

If TEXT <> "" Then
With .Pictures.Insert("http://chart.apis.google.com/chart?chs=150x150&cht=qr&chl=" & Replace(TEXT, " ", "%20") & "&chld=M|0&choe=ISO-8859-1/chart.png")
.Name = "QR_K27"
.Left = wsPrevod.Range("K17").Left
.Top = wsPrevod.Range("K17").Top
End With
End If
Application.ScreenUpdating = True
End With
End Sub

Nevěděl by někdo co s tím?

Rozumím, je to problém mého popisu 3
Nicméně já již metodou pokusu a omylu řešení zjistil. Když to propojení dám za "reset", funguje to. Takže tímto je to funkční přesně podle mých představ.
Oběma vám tedy velice děkuji za pomoc.

Ano, to myslím. Špatně jsem se vyjádřil.
Když to ve vlastnostech propojím s nějakou buňkou, nefunguje to jak má.
Takže bych to potřeboval nějak přidat do kódu, abych pak tu hodnotu mohl dál využívat.

Tak teď to dělá přesně co jsem si představoval 1
Jen prosím ještě poradit - v některých případech budu potřebovat přidat do kódu, aby se při zaškrtnutí změnila hodnota v určité buňce a při odznačení se zase změnila v jiné buňce. Bohužel nevím kam to přidat...

To je skoro ono, jen jsem tou deaktivací myslel odznačení políčka.
Takže by to mělo fungovat takto:

při zaškrtnutí
- messagebox :
ano - zaškrtne se
ne - zůstane nezaškrtnuté

při odznačení
- messagebox :
ano - odznačí se
ne - zůstane zaškrtnuté

Dobrý večer,
prosím o radu.
Na zaškrtávací políčko mám nastavený messagebox:

Private Sub CheckBox1_Click()
If MsgBox("Při zapnutí dojde k vynulování všech uložených hodnot. Pokračovat?", vbYesNo + vbExclamation, "Varování!") = vbNo Then Exit Sub
Call Reset
End Sub

1. Potřeboval bych, aby po zvolení "Ne" nedošlo k zaškrtnutí políčka.
2. Lze to nastavit tak, aby pak při deaktivaci políčka byla v messageboxu jiná zpráva?

Tak ale teď už je to naprosto dokonalé!!!!
Ještě jednou moc děkuji 1 1

Ještě mě napadlo, nedaly by se přidat dvě tlačítka s tím, že jedním by se celá tato funkce dala zapnout a druhým vypnout?

Perfektní!
Mockrát děkuji 1

Ano, tohle by to vyřešilo.
V podstatě potřebuji, aby se číselník zviditelnil podle hodnoty v buňce N6. Do 50 vidět nebude. Od 50 vidět bude a zároveň by se měla barva buňky D9 změnit na bílou.

Dobrý večer,
mám představu jak má list fungovat, ale nedokáži to udělat.
Potřeboval bych, aby číselník pro úroveň 50 začal fungovat po splnění podmínky v komentáři a aby se současně světle zelená barva v buňce D9 změnila na bílou. Stejný princip pak dále pro úroveň 100.
Zkoušel jsem to přes zamčení listu, ale pak to hodí chybu, že se snažím změnit zamknutou buňku a číselník to navíc ani nezamkne.
Ještě mě napadlo, že by mohly být číselníky skryty a zviditelnily by se až po dosažení úrovně výroby.
Nevěděli byste jak na to?

Aha, tak to se omlouvám, nějak to částečně asi přeložil prohlížeč a kvůli tomu to nefungovalo 4
Po opravě to funguje perfektně 1

Vyzkoušel jsem, ale v tomto řádku:

Range("C1").Value = WorksheetFunction.Max(Range("C1").Value - Range("B1").Hodnota, 0)

to háže chybu:

Object doesn’t support this property or method.

Teď je to dokonalé 1
Velice děkuji


Strana:  1 2 3   další »

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