Hirdetés

Új hozzászólás Aktív témák

  • Delila_1

    veterán

    válasz botond187 #22788 üzenetére

    Egyszerűbben, és kicsit gyorsabban is meg lehet csinálni.
    Kell egy segédtábla (nálam a K:M tartomány), ahol a K oszlop tartalmazza azt a szöveges formában tárolt adatot, amihez rendeljük a többit, az L és M szintén szövegesen a csatolandó min és max értékeket.

    Nem írtad, az Excelnek melyik verzióját használod, ezért 2003-ban írtam, azt a magasabb verziójú Excelek elfogadják, csak makróbarátként kell menteni.

    A füzetet feltettem ide.

    Módosítandó sorok, ha a segédtáblát máshova teszed:
    1.

    Set sorS = Columns(11).Find(ehhez, LookIn:=xlValues)

    A Columns(11) most a K oszlopra mutat, mert a K a 11. oszlop.

    2.
    If Mid(Cells(sorK, "A"), 3) >= Cells(sorS, "L") And _
    Mid(Cells(sorK, "A"), 3) <= Cells(sorS, "M") Then

    Ezeknél az "L" és "M" helyett írd a saját oszlopaid betűjelét

Új hozzászólás Aktív témák