< 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:  « předchozí  1 2
#034539
Jeza.m
Asi bych to sám nepoužil, ale zkusil jsem v příloze ukázku mazání, sice bez checkboxů, ale alespoň trochu vizuálně.
Byť nás s tím xlnc pošle za dveře :-)

Nicméně sám bych to nepoužil, protože takovéto akce přes VBA se nedají vrátit zpět.

M@
Příloha: zip34539_mazani.zip (15kB, staženo 22x)
citovat
#034540
avatar
Data zpracovává osoba (y) absolutně neznalá excelu.
Ale to je jedno. Nechte to už být na pokoji, já tam nechám ten "hloupý rozevírací seznam"...
Děkuji za dosavadní pomoc.citovat
#034541
avatar

TLOU napsal/a:

Data zpracovává osoba (y) absolutně neznalá excelu.

No s týmto sa nedá nesúhlasiť. Aspoň podľa toho, čo sa tu popísalo.citovat
#034548
avatar
Já bych to zkusil přes listbox. Viz příloha
Příloha: zip34548_test_checkbox.zip (37kB, staženo 38x)
citovat
#034549
avatar
@ji026441 Pěkný 1 To vypadá dobře, daleko lepší než roletka. Děkuji.citovat
#034556
avatar
Pokud byste měl zájem, ozvěte se mi na e-mail, rád pomohu s celkovým dokončením.citovat

Strana:  « předchozí  1 2

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