Příspěvky uživatele

No to si tedy Google dovolil dost

Tak to jste mě zachránil, já myslel že je chyba u mě.
Velice děkuji a týpka pozdravujte

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

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

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

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

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

Po opravě to funguje perfektně

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é

Velice děkuji

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje