2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    Fototrend

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

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

  • #5728 Pulsar veterán Delila_1 #5727
    Új Válasz #5728
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    Pulsar

    veterán

    válasz Delila_1 #5727 üzenetére

    őő akarom mondai hülye vagyok :)

    szóval feladom. :)
    megírom akkor 19 szer így...

    Sub receiving()
    Sheets("IDE_MASOLD").Select

    Dim sor, q, w, x, y, z, adat, ossz, fil
    q = 0: w = 0: x = 0: y = 0: z = 0: ossz = 0

    filteregy = Range("Data!C23").Text


    For sor = 1 To ActiveSheet.UsedRange.Rows.Count
    adat = Cells(sor, 13)
    If Cells(sor, 4) = filteregy And Cells(sor, 17) = "Warehouse Receiving - OOW" Then
    If adat = " 1-10" Then q = q + 1
    If adat = "11-20" Then w = w + 1
    If adat = "21-30" Then x = x + 1
    If adat = "31-60" Then y = y + 1
    If adat = "61- " Then z = z + 1
    End If
    ossz = q + w + x + y + z
    Next
    Sheets("Data").Cells(2, 1) = ossz
    Sheets("Data").Cells(5, 1) = q
    Sheets("Data").Cells(8, 1) = w
    Sheets("Data").Cells(11, 1) = x
    Sheets("Data").Cells(14, 1) = y
    Sheets("Data").Cells(17, 1) = z

    End Sub

    Sub visual()
    Sheets("IDE_MASOLD").Select

    Dim sor, q, w, x, y, z, adat, ossz, fil
    q = 0: w = 0: x = 0: y = 0: z = 0: ossz = 0

    filteregy = Range("Data!C23").Text


    For sor = 1 To ActiveSheet.UsedRange.Rows.Count
    adat = Cells(sor, 13)
    If Cells(sor, 4) = filteregy And Cells(sor, 17) = "Visual Inspection - OOW" Then
    If adat = " 1-10" Then q = q + 1
    If adat = "11-20" Then w = w + 1
    If adat = "21-30" Then x = x + 1
    If adat = "31-60" Then y = y + 1
    If adat = "61- " Then z = z + 1
    End If
    ossz = q + w + x + y + z
    Next
    Sheets("Data").Cells(2, 2) = ossz
    Sheets("Data").Cells(5, 2) = q
    Sheets("Data").Cells(8, 2) = w
    Sheets("Data").Cells(11, 2) = x
    Sheets("Data").Cells(14, 2) = y
    Sheets("Data").Cells(17, 2) = z

    End Sub
    Sub quicktest()
    Sheets("IDE_MASOLD").Select

    Dim sor, q, w, x, y, z, adat, ossz, fil
    q = 0: w = 0: x = 0: y = 0: z = 0: ossz = 0

    filteregy = Range("Data!C23").Text


    For sor = 1 To ActiveSheet.UsedRange.Rows.Count
    adat = Cells(sor, 13)
    If Cells(sor, 4) = filteregy And Cells(sor, 17) = "Quick Test - OOW" Then
    If adat = " 1-10" Then q = q + 1
    If adat = "11-20" Then w = w + 1
    If adat = "21-30" Then x = x + 1
    If adat = "31-60" Then y = y + 1
    If adat = "61- " Then z = z + 1
    End If
    ossz = q + w + x + y + z
    Next
    Sheets("Data").Cells(2, 3) = ossz
    Sheets("Data").Cells(5, 3) = q
    Sheets("Data").Cells(8, 3) = w
    Sheets("Data").Cells(11, 3) = x
    Sheets("Data").Cells(14, 3) = y
    Sheets("Data").Cells(17, 3) = z

    End Sub

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