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
6 bejegyzés megtekintése - 1-6 / 6
  • Szerző
    Bejegyzés
  • 2019-11-19-13:26 #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.

      2019-11-19-19:44 #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.
        2019-11-19-20:47 #6493
        OZS
        Felhasználó

          Szia,

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

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

          Üdv,

          OZS

          2019-11-20-01:00 #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

            2019-11-20-07:07 #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
              2023-02-01-16:00 #9603
              megasomogyi
              Felhasználó

                Üdvözlök mindenkit! Nagyon szuper ez a kód én is megpróbáltam használni majd korrigálni hogy ne ontsa a kódokat de nem jött össze úgy, hogy működjön is. A kérdésem az lenne, hogyan lehetne beilleszteni ide úgy hogy mentéssel együtt DE csak egy kódot generáljon mindig.

                Private Sub CommandButton1_Click() ‘Saving Button
                Dim sonsat, ver As Long

                If TextBox1.Value = „” Then
                MsgBox „Kérjük, adjon meg egy Azonosítót.”, vbExclamation, „”
                TextBox1.SetFocus
                Exit Sub
                End If
                If ComboBox106.Value = „” Then
                MsgBox „Kérjük, adjon meg egy Megbízót.”, vbExclamation, „”
                ComboBox106.SetFocus
                Exit Sub
                End If
                If TextBox3.Value = „” Then
                MsgBox „Kérjük, adjon meg egy Darabszámot.”, vbExclamation, „”
                TextBox3.SetFocus
                Exit Sub
                End If
                If TextBox4.Value = „” Then
                MsgBox „Kérjük, adja meg Súly.”, vbExclamation, „”
                TextBox4.SetFocus
                Exit Sub
                End If
                If TextBox5.Value = „” Then
                MsgBox „Kérjük, adja meg Rendszám.”, vbExclamation, „”
                TextBox5.SetFocus
                Exit Sub
                End If
                If txtDOB.Value = „” Then
                MsgBox „Kérjük, adjon meg egy Dátumot.”, vbExclamation, „”
                txtDOB.SetFocus
                Exit Sub
                End If
                For ver = 4 To Cells(Rows.Count, 1).End(xlUp).Row

                If Cells(ver, „A”) = TextBox1 Then
                MsgBox „Ez az azonosító már regisztrálva van!”, vbInformation, „”
                TextBox1 = Empty
                Exit Sub: End If: Next

                sonsat = Sheets(„Data”).Cells(Rows.Count, 1).End(xlUp).Row + 1

                Cells(sonsat, 1) = TextBox1
                Cells(sonsat, 2) = ComboBox106
                Cells(sonsat, 4) = TextBox3
                Cells(sonsat, 5) = TextBox4
                Cells(sonsat, 6) = TextBox5
                Cells(sonsat, 7) = txtDOB

                MsgBox „A regisztráció sikeres”, vbApplicationModal, „”
                End Sub

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