Printable View
Pls, v makrech se moc nevyznám a potřebuju zhruba toto.
Na jednom listu bude výstup z účta několik set položek. Potřebuju smazat všedhny řádky kde hodnota ve sloupci G /text / nebude definovaná v číselníku. Čiselník je na druhým listu cca 15 řádků / text /
Dík
není třeba maker, stačí jen mozek :wink:
1) do volného sloupce u účtu si dej číslování (řádků 1 ...n)
2) použij fci svyhledat v angů vlookup , pro každý řádek účtu hledej zda daná hodnota existuje v číselníku -- poslední parametr funkce je 0 !
3) seřaď dle sloupce s vyhledáváním -- chybové hodnoty
4) smaž řádky s chyb. hodnotami
5 seřaď dle číslování viz. bod 1)
Pozn. bod 1 a 5 jsou nutné pokud budeš chtít zachovat stejné pořadí i po odstranění řádků
:roll: .. když píšu že bych potřeboval makro tak asi vím proč
S takovýma tabulkama pracuju x-krát denně a je tam několik set položek tak je pro mně lepší použít makro než to otrocky dělat ručně ... Jo a kdyby sis nevšim v threadu o kus vedle je přesně napsaný co co jsi radil ty ...
1) Když chceš makro - program - , tak bys mohl trošku použít mozek a dát sem přesnou strukturu těch tabulek. - Takhle ti nikdo nepomůže. JE to stejné jakobys napsal - mám soubor udělejte mi program, který mi ho zvětší.Citace:
Původně odeslal Radim
2) To co jsem ti napsal je otázka max 1minuty.
Uffff.... OK.. napíšu to co mi stačí, zbytek udělám sám ....
Sloupec A / x-set řádku - text / - Sloupec B / 15 řádků - text /
1. Zjistit počet řádků ve sloupci A / neprázdných /
2. Projít od začátku do konce a
- je-li hodnota z A rovna alespoň jednomu poli z B / B1:B15 / jedu dál, pokud ne smaž rádek /
Jde mi o ten princip jak na to. Ti že to bude na cca 5-ti listech a v jiných sloupcích to už si upravím...
EDIT : Můžu si to udělat ve FoxPro nebo v Accessu ale proč, když to půjde udělat nejjednodušeji makrem !!!
Pokud neuvedes nejakou vlastnost procedury Find, pak se pouzije posledni nastaveni, ktere bylo v dialogu Ctrl+FKód:Sub Uprava()
Dim Ciselnik As Range, Ucty As Range
Set Ciselnik = Sheets(1).Range("b1", "b15") 'Sheets(Cislo listu)
Set Ucty = Sheets(1).Range("a1")
Do Until Ucty = ""
If Ciselnik.Find(Ucty) Is Nothing Then
'Podivej se do napovedy jak chces nastavit podminky pro hledani
'hlavne LookIn, LookAt a MatchCase
'LookIn - vyhledani hodnot, vzorcu, komentaru
'LookAt - zda musi sedet cely text, nebo pouze vysek ( bud "ASD1"="ASD10" nebo "ASD1"<>"ASD10"
'MatchCase - mala velka
'asi budes chtit: Ciselnik.Find(Ucty lookin:=xlvalues,lookat:=xlwhole,matchcase:=true)
Set Ucty = Ucty.Offset(1, 0)
Ucty.Offset(-1, 0).Delete Shift:=xlUp
Else
Set Ucty = Ucty.Offset(1, 0)
End If
Loop
End Sub
Moc ti neporadim, jen mi prijde tupy pouzivat tabulky na fukce ktery jsou vylozene databazovy. To na co tady vymejslis makro bys v DB udelal jedinym dotazem.
S tím nemůžu nic jinýho než souhlasit nicméně o tom nerozhoduju já :|Citace:
Původně odeslal Jezevec
2 : KON - zkusím, uvidím, dík :-)