Vyhledat a odstranit chyby v tabulce Vyřešeno

[zelený žabžáček]

Dobrý den,
potřeboval bych pomoci z následujícím.V tabulce se vinou nepozornosti,nebo neznalosti obsluhy mohou vyskytnout chyby.Jsou to chyby charakteru chybějících(nevyplněných)buněk.Data se do tabulky vkádají pomocí Userformu.Potřeboval bych najít řádky,kde něco chybí,tyto řádky označit a po zkontrolování je odstranit.V příloze je snad vysvětleno.V případě nutnosti dovysvětlím.
Děkuji za případnou pomoc a přeji hezký den.

[Reklama]

[zelený žabžáček]

Nikdo netuší?

[cmuch]

Tak to budeš chtít kontrolovat i všechny mědi a hliniky?

No nevím, ale případne makro by bylo složité vyplnit na tolik proměnných, dle mě, třeba to někdo dá.
Do archivu se budou vkládat data i nadále?
Pokud ano tak by bylo jednodušší tyto chyby eliminovat ještě před vložením do archivu.

Asi spíš bych použil filtr na všechny sloupce a pak v každém bych odfiltroval chyby a ty řádky pak smazal.

[Uziv00]

No, myslel jsem, že se někdo toho ujme. Můžu se o to pokusit...
1. Nebudu podbarvovat celý řádek, ale jen první dvě buňky.
2. Můžu podbarvit kontrolovanou buňku, kde bude něco chybět.
3. Bude se kontrolovat jen trojice buněk u železa1, nebo si představuješ, že to projde celý řádek?
4. Podle toho co jsi napsal, tak předpokládám, že si řádky zkontroluješ sám a případně odstraníš.
5. Pokud budeš chtít, aby to automaticky dělalo makro, nebude nic označovat, ani se ptát, ale rovnou řádek vymaže.
6. Bude procházet řádek po řádku dle prvního sloupce (datum), pokud narazí na prázdnou buňku, tak se ukončí.
7. Pokud mě to bude stát příliš úsilí, tak se na to vykašlu.

[zelený žabžáček]

Ahoj a dík za reakci..upřesním:Měl jsem přímo v Userformech kontrolu chybějících dat,ale...pokud na paní,která to obsluhuje vypadla jakákoliv tabulka typu "chybí to a to",tak paní to radši celé shodila a pro jistotu nenapsala nic.Další člověk který to obsluhuje neumí psát háčky,čárky,výslovnost taky problém,protože to je cizinec.Takže vyplnit správně Userform jsem musel vzdát.Proto musím jít touto cestou a kontrolovat až když už tam něco nějak nacvakaj.
To co chybí se dá do jisté míry dohledat a proto potřebuji chybějící údaje nejdříve zvýraznit a až pak popř.vymazat.Týká se to všech řádků.Vždy když je zadán např."170405001",musí za tím být cena a váha.Pokud cokoliv chybí,je to chyba..Pokud chybí jméno a příjmení,je to taky chyba,ale dá se dohledat např.dotazem u obsluhy,kdo to asi tak mohl být..Já vím,že je to na h...o,ale jiné cesty není.
K těm bodům:
1-stačí
2-stačí
3-všechny trojice-pokud chybí z trojice jedna,je to chyba.Tedy buď všechny v trojici,nebo nic
4-ano
5-časem určitě,ale nejdřív bude potřeba sledovat a analyzovat,jaké druhy chyb nejvíc "frčí" a jak se to projeví v konečném výsledku
6-pokud se týka jen chybějícího např.jména a příjmení,tak ano
7-naprostý souhlas:-)

Tož tak snad to půjde.
Dík za reakci.

[Uziv00]

ad 3) toho jsem se právě bál
ad 6) asi jsme se nepochopili - hodlám použít smyčku Do While. To znamená, že nebude záležet na počtu řádků, ale makro pojede tak dlouho, dokud ve sloupci A bude nějaký záznam. Jakmile narazí na první prázdnou buňku ve sloupci "A" skončí. Jinak řečeno, pokud by měl soubor 1000 řádků, ale ve 42. nebylo vyplněno datum, pak se řádky od 43 do 1000 nezkontrolují.

[zelený žabžáček]

ad3)-vím,ale jinak to nejde...protože když zadá jen materiál,tak nevim jaký,když ndá jen množství,tak nevím čeho...prostě toto je problém:-(

ad6)-došlo mi to později..jinak tvá dedukce je perfektní,protože datum je jediná položka,kterou obsluha nemůže ovlivnit.Datum je tam při každém použití jakéhokoliv Userformu a podle toho vlastně taky vím,kolikrát to "nevyšlo".

Ufff....no snad se zadaří:-)

[Uziv00]

Zatím jen začátek: Spusť si makro. Testuje ale jen zda v 2. - 6. buňce něco nechybí. Pokud ano, tak ji zabarví a zabarví i to datum. Ty trojice budou složitější a bude to trvat víc času. Ale pokud bys to podle vzoru dokázal sám, nebudu se zlobit.

[Uziv00]

No, tak jsem to nakonec nějak dal do kupy. Takže zde je makro:

Kód: Vybrat vše

Sub Chyby()
radek = 2
datum = Cells(radek, 1)
Do Until datum = ""
   
    For i = 2 To 6
        If Cells(radek, i) = "" Then
        With Union(Cells(radek, i), Cells(radek, 1)).Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 16711935
        .TintAndShade = 0
        .PatternTintAndShade = 0
        End With
        End If
    Next
   
For k = 11 To 59 Step 3
  If Cells(radek, k) = "" And Cells(radek, k + 1) = "" And Cells(radek, k + 2) = "" Then
  ' Nic
  Else
    For n = 0 To 2
    If Cells(radek, k + n) = "" Then
        With Union(Cells(radek, k + n), Cells(radek, 1)).Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 16711935
        .TintAndShade = 0
        .PatternTintAndShade = 0
        End With
    End If
    Next n
  End If
Next k
     
    radek = radek + 1
    datum = Cells(radek, 1)
Loop

End Sub



Makro kontroluje položky B-F a poté od K trojice. U trojic je to tak, že pokud není vyplněna ani jedna z položek trojice, pak se nic neděje. Pokud ale z trojice nějaký údaj chybí, označí buňku, kde chybí.
V obou případech, pokud chybí údaj, podbarví buňku sloupce A toho řádku, kde je chyba.
Soubor taky přikládám. Snad ti to pomůže.

[zelený žabžáček]

Ahoj...co dodat...rychlé,čisté a elegantní řešení..Moc děkuju,sám bych to nedal..ještě jednou dík.Skvělá práce.
Přeju pěkný den:-)