MS Excel

Téma: VBA - checkboxy

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"
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

Jeza.m(17.1.2017 10:42)citovat#034539

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: zip

34539_mazani.zip (15kB, staženo 22x)

TLOU(17.1.2017 10:50)citovat#034540

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.

marjankaj(17.1.2017 13:53)citovat#034541

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.

ji026441(17.1.2017 20:09)citovat#034548

Já bych to zkusil přes listbox. Viz příloha

Příloha: zip

34548_test_checkbox.zip (37kB, staženo 38x)

TLOU(17.1.2017 21:05)citovat#034549

@ji026441 Pěkný

To vypadá dobře, daleko lepší než roletka. Děkuji.

ji026441(18.1.2017 12:43)citovat#034556

Pokud byste měl zájem, ozvěte se mi na e-mail, rád pomohu s celkovým dokončením.

Strana: « předchozí 1 2

Uživatelské menu

Nejste přihlášen(a)

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.