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

• #6377 Pulsar veterán

  Új Válasz 2010-02-25 20:15:44 #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