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

    LOGOUT

    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

  • #6377 Pulsar veterán
    Új Válasz #6377
    Ú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

    Sziasztok!

    van egy macro-m, amit még a Ti segítségetekkel íródott, és tegnap óta, Type Mismatch hibával megáll

    a kód ez:

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

    Dim sor, z, y, x, w, v, u, t, s, r, q, p, o, n, m, l, k, j, i, h, g, f, e, adat, ossz, fil As Integer
    Dim filter_1, filter_2, filter_3 As String
    z = 0: y = 0: x = 0: w = 0: v = 0: u = 0: t = 0: s = 0: r = 0: q = 0: p = 0: o = 0: n = 0: m = 0: l = 0: k = 0: j = 0: i = 0: h = 0: g = 0: f = 0: e = 0

    filter_1 = Range("Data!C40").Text
    If filter_1 = "ALL" Then
    filter_1 = "BOARD": filter_3 = "DT BOARD"
    End If

    For fil = 1 To 25
    filter_2 = Sheets("Data").Cells(46, fil)
    For sor = 2 To ActiveSheet.UsedRange.Rows.Count
    adat = Cells(sor, 21)
    If Cells(sor, 4) = filter_1 And Cells(sor, 17) = filter_2 Then
    If adat = "SPEARS" Then z = z + 1
    If adat = "TRAVIS" Then y = y + 1
    If adat = "AZEDA" Then x = x + 1
    If adat = "LAGUNA" Then w = w + 1
    If adat = "KEY WEST" Then v = v + 1
    If adat = "SULLIVAN" Then u = u + 1
    If adat = "CORSICA" Then t = t + 1
    If adat = "GILLIGAN" Then s = s + 1
    If adat = "THURMAN" Then r = r + 1
    If adat = "TAHITI" Then q = q + 1
    If adat = "YEBISU" Then p = p + 1
    If adat = "ZANZIBAR" Then o = o + 1
    If adat = "HAWKE" Then n = n + 1
    If adat = "BARBADOS" Then m = m + 1
    If adat = "CAYMAN" Then l = l + 1
    If adat = "LIONS GATE" Then k = k + 1
    If adat = "SIBERIA" Then j = j + 1
    If adat = "GREAT BELT" Then i = i + 1
    If adat = "AMBRASSADOR" Then h = h + 1
    If adat = "FOLSOM" Then g = g + 1
    If adat = "BONDI/BENZ" Then f = f + 1
    If adat = "PEARY/PENSACOLA" Then e = e + 1

    End If
    Next
    Sheets("Data").Cells(47, fil) = z
    Sheets("Data").Cells(48, fil) = y
    Sheets("Data").Cells(49, fil) = x
    Sheets("Data").Cells(50, fil) = w
    Sheets("Data").Cells(51, fil) = v
    Sheets("Data").Cells(52, fil) = u
    Sheets("Data").Cells(53, fil) = t
    Sheets("Data").Cells(54, fil) = s
    Sheets("Data").Cells(55, fil) = r
    Sheets("Data").Cells(56, fil) = q
    Sheets("Data").Cells(57, fil) = p
    Sheets("Data").Cells(58, fil) = o
    Sheets("Data").Cells(59, fil) = n
    Sheets("Data").Cells(60, fil) = m
    Sheets("Data").Cells(61, fil) = l
    Sheets("Data").Cells(62, fil) = k
    Sheets("Data").Cells(63, fil) = j
    Sheets("Data").Cells(64, fil) = i
    Sheets("Data").Cells(65, fil) = h
    Sheets("Data").Cells(66, fil) = g
    Sheets("Data").Cells(67, fil) = f
    Sheets("Data").Cells(68, fil) = e
    z = 0: y = 0: x = 0: w = 0: v = 0: u = 0: t = 0: s = 0: r = 0: q = 0: p = 0: o = 0: n = 0: m = 0: l = 0: k = 0: j = 0: i = 0: h = 0: g = 0: f = 0: e = 0
    Next
    Sheets("Data").Select
    Cells(1).Select
    End Sub

    hibának ezt a sor adja besárgítva:
    If adat = "SPEARS" Then z = z + 1

    Szerintetek mi lehet a gond?

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