Stránka 1 z 1
Vyhledat a odstranit chyby v tabulce
Napsal: 15 kvě 2013 17:32
od 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.
Re: Vyhledat a odstranit chyby v tabulce
Napsal: 23 kvě 2013 09:42
od zelený žabžáček
Nikdo netuší?
Re: Vyhledat a odstranit chyby v tabulce
Napsal: 23 kvě 2013 15:11
od 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.
Re: Vyhledat a odstranit chyby v tabulce
Napsal: 23 kvě 2013 17:12
od 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.
Re: Vyhledat a odstranit chyby v tabulce
Napsal: 23 kvě 2013 18:21
od 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.
Re: Vyhledat a odstranit chyby v tabulce
Napsal: 23 kvě 2013 21:44
od 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í.
Re: Vyhledat a odstranit chyby v tabulce
Napsal: 23 kvě 2013 23:55
od 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ří:-)
Re: Vyhledat a odstranit chyby v tabulce
Napsal: 24 kvě 2013 11:07
od 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.
Re: Vyhledat a odstranit chyby v tabulce
Napsal: 25 kvě 2013 08:10
od 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.
Re: Vyhledat a odstranit chyby v tabulce Vyřešeno
Napsal: 25 kvě 2013 08:56
od 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:-)