Kezdőlap › Fórumok › Excel programozás › [Resolved] AutoSzűrő Tartalmaz mezőbe cellahivatkozás?
- This topic has 8 hozzászólás, 2 résztvevő, and was last updated 2 years, 9 months telt el by delila.
-
SzerzőBejegyzés
-
2022-01-28-08:13 #8876
Makro készítése közben Az AutoSzűrő tartalmaz mező kitöltésénél lehet-e egy a szűrendő táblázaton kívüli cella tartalmára hivatkozni? Így a makro minden futtatáskor a külső cella tartalmát venné figyelembe.
2022-01-28-09:14 #8877Szia!
Igen, lehet.
ActiveSheet.Range("$A$1:$F$6").AutoFilter Field:=5, Criteria1:=Range("N1")
Itt az A1:F6 tartomány E oszlopát szűrjük az N1 cella tartalma szerint. Ide írhatsz relációs jeles értéket is, pl. <=500,
vagy a T* tartalomnál a T-vel kezdődő adatokra kapsz szűrést.Üdv,
Delila2022-01-28-19:31 #8879Szia! Köszönöm, de valamiért nálam nem találja a H1-be írt szót.
ActiveSheet.Unprotect
Range(„F2”).Select
Selection.AutoFilter
ActiveSheet.Range(„$A$1:$F$20”).AutoFilter Field:=6, Criteria1:=Range(„$H$1”)
Range(„H3”).SelectValamit rosszul írtam?
Üdv: Vilmos2022-01-29-07:29 #8880Jó reggelt!
Lehet, hogy az F oszlop számokat tartalmaz, a H1 pedig számként ábrázolt szöveget (vagy fordítva).
Próbáld meg, hogy a H1-be áthúzol egy cellát az F oszlopból.Az ActiveSheet.Unprotect helyett olyan utasítást javaslok, ami a makrónak engedi a lapon a módosítást az amúgy zárolt cellákban, de a billentyűzetről nem.
A Select utasítások sem kellenek.Sub Felt_Szures() ActiveSheet.Protect Password:="SzuperTitkosJelszó", UserInterfaceOnly:=True ActiveSheet.Range("$A$1:$F$20").AutoFilter Field:=6, Criteria1:=Range("$H$1") End Sub
2022-01-29-17:37 #8883Tisztelt delila!
Másodszor is köszönöm,hogy megoldást javasolt a kérdésemre. Mindkét megoldással az a baj, hogy nem a Szövegszűrőkön belül a tartalmazza parancsra dolgozik, hanem a kezdete-re. A 6.oszlopomban Összefűz(c2;d2;e2) utasítás alapján van a tartalom. Így, ha a H1 mezőben T* van, csak a 6. oszlop t-vel kezdődőket szűri ki, a további t*-ot nem észleli-
3. OSZLOP 4. OSZLOP 5. OSZLOP 6.OSZLOP
TESTVÉR ANYA TESTVÉRANYA
ANYA TESTVÉR BARÁT ANYATESTVÉRBARÁT
BARÁT ANYA TESTVÉR BARÁRANYATESTVÉRAz ilyen táblázatból csak az első rekordot találja meg. Ha a H1 mezőben a TESTVÉR SZÓ VAN ÍRVA, SEMMIT NEM TALÁL
2022-01-29-17:42 #88843. OSZLOP___4. OSZLOP___5. OSZLOP___6.OSZLOP
TESTVÉR_______ANYA__________________TESTVÉRANYA
ANYA_________ TESTVÉR___ BARÁT______ANYATESTVÉRBARÁT
BARÁT_________ANYA_______TESTVÉR____BARÁRANYATESTVÉRaZ ELŐBBI TÁBLÁZAT ÚJRA
2022-01-30-07:15 #8892Szia!
Eszerint nem 1, hanem több oszlop tartalma szerint kell szűrnöd a táblát.
A képen látod a G2 cella képletét, amit a többi sorra is lemásolhatsz. Ezután a G oszlopra kell szűrni azokat a sorokat, ahol az érték nagyobb, mint nulla.
A makró így módosul:
ActiveSheet.Range("$A$1:$G$20").AutoFilter Field:=7, Criteria1:=">0"
Attachments:
You must be logged in to view attached files.2022-01-30-15:06 #8897Szia delila!
Nagyon köszönöm, hogy segítettél. A darabtelis() megoldás tökéletes.2022-01-30-16:07 #8898Örülök, hogy végül összejött.
-
SzerzőBejegyzés
- Be kell jelentkezni a hozzászóláshoz.