Microsoft Excel topic - Fototrend Hozzászólások

LOGOUT.hu témák

PROHARDVER! témák

Mobilarena témák

IT café témák

GAMEPOD.hu témák

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 2009-11-23 18:49:34 #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

[ Szerkesztve ]