< návrat zpět

MS Excel

Téma: VBA - checkboxy rss

Zaslal/a TLOU 15.1.2017 9:35

Zdravím místní odborníky.
Měl bych dotaz. Z listu FORMULÁŘ sbírám data do listu DATA:
Worksheets("DATA").Unprotect 'odemčení listu DATA
Radek = Worksheets("DATA").Cells(Rows.Count, 1).End(xlUp).Row + 1 'najde poslední plný řádek a přičte 1
Worksheets("DATA").Cells(Radek, 1) = Worksheets("FORMULAR").Range("C17")
Worksheets("DATA").Cells(Radek, 2) = Worksheets("FORMULAR").Range("C5")
Worksheets("DATA").Cells(Radek, 3) = Worksheets("FORMULAR").Range("C6")
Worksheets("DATA").Cells(Radek, 4) = Worksheets("FORMULAR").Range("C13")
Worksheets("DATA").Cells(Radek, 5) = Worksheets("FORMULAR").Range("D12")
Worksheets("DATA").Cells(Radek, 6) = Worksheets("FORMULAR").Range("F13")
Worksheets("DATA").Cells(Radek, 7) = Worksheets("FORMULAR").Range("G12")
Worksheets("DATA").Cells(Radek, 8) = Worksheets("FORMULAR").Range("I13")
Worksheets("DATA").Cells(Radek, 9) = Worksheets("FORMULAR").Range("J12")
Worksheets("DATA").Cells(Radek, 10) = Worksheets("FORMULAR").Range("L13")
Worksheets("DATA").Cells(Radek, 11) = Worksheets("FORMULAR").Range("M12")
Worksheets("DATA").Cells(Radek, 12) = Worksheets("FORMULAR").Range("C15")
Worksheets("DATA").Cells(Radek, 13) = Worksheets("FORMULAR").Range("G15")
Worksheets("DATA").Cells(Radek, 14).Value = Format$(Now, "dd/mm/yyyy hh:nn")
Worksheets("DATA").Cells(Radek, 15) = Worksheets("FORMULAR").Range("C17")
Worksheets("DATA").Cells(Radek, 27) = Worksheets("FORMULAR").Range("C6")

Po zpracování jsou řádky, které již nejsou potřeba vymazány když je v buňce křížek:
Set Rng = Range("P2:P500") 'výmaz hotových zakázek/ty co jsou označeny křížkem "x"
i = 1
For counter = 1 To Rng.Rows.Count
If Rng.Cells(i) = Empty Then
i = i + 1
Else
Rng.Cells(i).EntireRow.Delete
End If
Chtěl bych tomu dát nějakou "štábní kulturu" 1
Lze nějak udělat aby se v prvním kodu vygeneroval do toho sloupce P příslušného řádku checkbox? A v druhém kodu, aby se vymazaly řádky, kde bude checkbox zaškrtnutý?
Za jakoukoliv pomoc předem moc děkuji!

Zaslat odpověď >
Strana:  1 2   další »
xlnc(15.1.2017 21:24)#034502
avatar
Štábní kultura?

a) Propojení vzorcem
b) Dvousloupcová párovací tabulka na (skrytém) listu, kterou projedete kraťoučkým kódem.citovat
TLOU(15.1.2017 22:03)#034504
avatar
Jenže já se v tom úplně ztrácím...
Nemohu někoho moc poprosit o nějaký nástřel.
Děkuji.

Štábní kultura = aby to mělo nějakou formu, aby to pořádně vypadalo. S těmi "x" to funguje dobře, ale kdyby tam byly ty klikací checkboxy, jo tak to by teprve byla paráda. 9citovat
xlnc(15.1.2017 22:23)#034507
avatar
Příloha tady nebo soukromě, na ty "skutečné" checkboxy se na listu vykašlete, neuřídíte jejich tisk.citovat
TLOU(15.1.2017 23:27)#034509
avatar
Klidne tady, kdyby to nekdo nekdy potreboval...dekuji.citovat
xlnc(16.1.2017 9:38)#034510
avatar
Šmarjá panno, vy máte uvést přílohu...citovat
TLOU(16.1.2017 19:01)#034519
avatar
10 njn, tak jsem to nepochopil...se stane...někdy... 10
Příloha: zip34519_test_checkbox.zip (23kB, staženo 49x)
citovat
xlnc(16.1.2017 20:07)#034525
avatar
Dobrá, tak někdy zítra...citovat
xlnc(16.1.2017 20:42)#034526
avatar
viz příloha

Blbovzdornost neřeším (duplicitní záznamy, storna, prázdné řádky někde uvnitř atd.).
Příloha: zip34526_prenos_dat.zip (18kB, staženo 47x)
citovat
TLOU(17.1.2017 7:48)#034536
avatar
Děkuji. Jak řešit ten výmaz hotových zakázek. Přeci jenom by se mě tam líbili ty checkboxy. Tisk nepotřebuji. Označení již nepotřebného řádku pomoci checkboxu je jeden klik. Teď to řeším tím "x", které je v rozevíracím seznamu. To jsou celkem 3 kliky. Jde mě o to, aby to bylo pro obsluhu co nejvíc "user friendly" Těch řádků je potřeba najednou vymazat denně najednou cca 40-45 z tak 300 existujících záznamů...citovat
xlnc(17.1.2017 9:31)#034537
avatar
Na checkboxy prostě zapomeňte. A chodit si "pro "x" do roletky? Proč o takové hlouposti vlastně píšete, když víte, že Vás to stojí několik kliknutí? Vyberu několik buněk přejetím myši nebo s CTRL, zapíšu "x" a potvrdím CTRL+ENTER, co na to vymýšlíte? Následně programově seřadit s filtrem, aby nevznikaly díry a vymazat.citovat

Strana:  1 2   další »

Uživatelské menu

Nejste přihlášen(a)
avatar\n

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