Telefonszámunk: 1-472-0679

[Resolved] Egyedi sorszám azonosító létrehozása

Kezdőlap Fórumok Excel témák [Resolved] Egyedi sorszám azonosító létrehozása

Topic Resolution: Resolved

Ennek a témakörnek tartalma 4 hozzászólás, 3 résztvevő. Utolsó frissítés:  delila 2 hónapja, 1 hét telt el.

5 bejegyzés megtekintése - 1-5 / 5
  • Szerző
    Bejegyzés
  • #6486

    OZS
    Felhasználó

    Sziasztok!

    Szeretném a segítségeteket kérni egy olyan feladat megoldásában, amit én alapban Excel-lel terveztem elvégezni, remélve, hogy lehetséges:

    A feladat:

    – Adva van 6400db termék (a feladat szempontjából szerintem nem fontos, hogy mi az. A lényeg, hogy egy kereskedelmi termék, azaz egzakt fizikai tárgy, pl TV,) Ezeknek a termékeknek kell egyenként 1-1 sorszámozott egyedi azonosítót kreálni.
    – …és a csavar(ok) a dologban! 🙂 Minden termék dobozolva van, DE 1 db dobozban 8db termék lakik. Ezen kívül a gyártó cég 2db betűjelét is bele kell szőni a számsorba.
    – Jelen pillanatban ez így nézne ki: „AB-001/01”. Ahol az „AB” a cég betűkódja. A „001” jelentené a doboz számát. Amiből ugye 800db van… A „01” pedig jelentené a termék (dobozon belüli) egyedi azonosítóját.
    – Ez alapján a „001”-es dobozban lesz „01-08” számú termék, majd a „002”-es dobozban újabb „01-08” számú termék, és így tovább. Tehát a dobozok száma minden esetben eggyel növekszik („001-800” között), míg a termékeké nyolcasával ismétlődik. De egy dobozon belül nincs 2 azonos termék szám.
    – Egy cikkszám 1 cellában van. A 3 cellára bontásos változatát már megcsináltam, de sajnos az is bazi sok manuális munkát igényel.

    Ezt a feladatot eddig kézzel oldottam meg, de abban reménykedem, hogy létezik vmilyen függvény, amivel nem lesz szükség mind a 6400db termék/tétel jelölésének a kézi megkreálásában.

    Tudtok ilyet? 🙂

    Nagyon szépen köszönöm.

    #6491

    horvimi
    Adminisztrátor

    Szia!

    Feltöltöttem egy megoldást, ami segédoszlopokban megoldja a problémát.
    Ha sikerül megérteni, akkor alakíthatod, ha nem pont ez a feladat.

    Imre

    Attachments:
    You must be logged in to view attached files.
    #6493

    OZS
    Felhasználó

    Szia,

    ZSENIÁLIS! Mennyi idő alatt sikerült megkreálni? 🙂

    Nagyon szépen köszönöm!

    Üdv,

    OZS

    #6495

    horvimi
    Adminisztrátor

    Kb. negyed óra volt. Na jó, előtte gondolkodtam egy kicsit a 3. lépésen.
    Örülök, hogy örülsz 🙂

    Imre

    #6496

    delila
    Felhasználó

    Én makróra gondoltam.

    Sub cimkek()
        Dim doboz As Integer, db As Integer, sor As Integer
        
        sor = 1
        For doboz = 1 To 800
            For db = 1 To 8
                Cells(sor, 1) = "AB-" & Right("000" & doboz, 3) & "/" & Right("00" & db, 2)
                sor = sor + 1
            Next
        Next
    End Sub
5 bejegyzés megtekintése - 1-5 / 5

Be kell jelentkezni a hozzászóláshoz.