< návrat zpět

MS Excel


Téma: VBA - checkboxy rss

Zaslal/a 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ší »
#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
#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
#034507
avatar
Příloha tady nebo soukromě, na ty "skutečné" checkboxy se na listu vykašlete, neuřídíte jejich tisk.citovat
#034509
avatar
Klidne tady, kdyby to nekdo nekdy potreboval...dekuji.citovat
#034510
avatar
Šmarjá panno, vy máte uvést přílohu...citovat
#034519
avatar
10 njn, tak jsem to nepochopil...se stane...někdy... 10
Příloha: zip34519_test_checkbox.zip (23kB, staženo 35x)
citovat
#034525
avatar
Dobrá, tak někdy zítra...citovat
#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 33x)
citovat
#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
#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

Menu

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.

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09