Telefonszámunk: 1-472-0679

[Resolved] AutoSzűrő Tartalmaz mezőbe cellahivatkozás?

Kezdőlap › Fórumok › Excel programozás › [Resolved] AutoSzűrő Tartalmaz mezőbe cellahivatkozás?

Topic Resolution: Resolved
9 bejegyzés megtekintése - 1-9 / 9
  • Szerző
    Bejegyzés
  • 2022-01-28-08:13 #8876
    Mavimi43
    Felhasználó

      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 #8877
      delila
      Felhasználó

        Szia!

        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,
        Delila

        2022-01-28-19:31 #8879
        Mavimi43
        Felhasználó

          Szia! 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”).Select

          Valamit rosszul írtam?
          Üdv: Vilmos

          2022-01-29-07:29 #8880
          delila
          Felhasználó

            Jó 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 #8883
            Mavimi43
            Felhasználó

              Tisztelt 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ÉR

              Az 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 #8884
              Mavimi43
              Felhasználó

                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ÉR

                aZ ELŐBBI TÁBLÁZAT ÚJRA

                2022-01-30-07:15 #8892
                delila
                Felhasználó

                  Szia!

                  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 #8897
                  Mavimi43
                  Felhasználó

                    Szia delila!
                    Nagyon köszönöm, hogy segítettél. A darabtelis() megoldás tökéletes.

                    2022-01-30-16:07 #8898
                    delila
                    Felhasználó

                      Örülök, hogy végül összejött.

                    • Szerző
                      Bejegyzés
                    9 bejegyzés megtekintése - 1-9 / 9
                    • Be kell jelentkezni a hozzászóláshoz.