Příspěvky uživatele
< návrat zpět
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
Uživatelské menu
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
RSS nejnovější články