PC-HELP.CZ

Potřeboval bych odfiltrovat zaškrávací políčko (z formuláře) a tím oddělit zaškrnuté záznamy od nezaškrtnutých.

//Úprava nadpisu. Rewqa

Nechápu co tím myslíš, příspěvek jsem přečtl asi 5×
Chceš aby po kliknutí na zaškrtávací políčko text zmizel ? nebo políčko zmizelo ?

Ne, mám stovky záznamů u kterých je zaškrtávací políčko (někde je zaškrtnuté, někde nikoliv) a já bych potřeboval vyfiltrovat ty záznamy, kde to políčko zaškrtnuté je, resp. není.

No, to neni jednoduchy - zalezi na tom, jak jsou ty policka umisteny na listu, protoze nejsou soucasti bunek...

Zkusil jsem to udelat - makro zjisti polohu prvku a pokud je policko zaskrtnuto, vepise do prislusne bunky ve sloupci D hodnotu 1, kterou je pak mozne vyfiltrovat automatickym filtrem - problem je, ze polohy zaskrt.policek nemusi sedet.

Zkus spustit toto makro:
Sub ShapesAddress()

Range("d2:d65000").ClearContents

Dim Bunka As String

For i = 1 To 4
ActiveSheet.Shapes("Check Box " & i).Select

If Selection.Value = xlOn Then
Bunka = Selection.BottomRightCell.Address(0, 0)
Range(Left(Bunka, 1) & Right(Bunka, 1) - 1) = 1
End If

Next

End Sub


Pokud by vložené jednicky nesouhlasily se zaskrtnutymi policky bude problem v "-1" v tomto radku:
Range(Left(Bunka, 1) & Right(Bunka, 1) - 1) = 1

-1 posunuje jednicku o radek dolu - tak si podle toho uprav hodnotu treba na "0" (smaz -1)
u me to funguje s -1, ale muzes mit jinak nastavene radky bude problem (je to kvuli selection.bottomrightcell.address)

Zkus to a uvidis

prima...díky moc