Hata mesajı...

[aliakgul]

Run-time error '9':
subscript out of range

Merhaba arkadaşlar, yukarıdaki hata mesajının anlamı nedir???

WorksheetFunction sınıfının Match özelliğini açıklayabilirmisiniz?

 

[Tankut SAZLI]

Hocam hatayı hangi kodda alıyorsunuz?

 

[aliakgul]

Merhaba Hocam,
Range("o1").Value = ComboBox1
Set s1 = Sheets("LİSTE")
Set s2 = Sheets("SGD")
ilk = WorksheetFunction.Match(ComboBox1, s1.[c:c], 0)
son = WorksheetFunction.CountIf(s1.[c:c], ComboBox1) + ilk - 1
hucre = Array(16, 28, 40, 61, 73, 85, 106, 118, 130, 151, 163, _
175, 196, 208, 220, 241, 253, 265, 286, 298, 331, 343, 355, 376, _
388, 400, 421, 433, 445, 466, 478, 490, 511, 523, 535, 556, 568, _
580, 601, 613, 625, 646, 658, 670)
For b = 0 To 43
s2.Range("b" & hucre(b)) = ""
Next
For a = ilk To son
c = c + 12
s2.Range("b" & hucre(d)) = s1.Cells(a, "b")
d = d + 1
Next
Application.Run "sgd"


Kodlarım bunlar ve,
ilk = WorksheetFunction.Match(ComboBox1, s1.[c:c], 0)
satırında hata veriyor.(satırı sarıya boyuyor.)

Run-time error '9':
subscript out of range hata mesajını ise
For a = ilk To son satırında veriyordu.

Burada bir ayrıntı var.Bu kodları bir butona bağlayıp doğrudan kullanırsam sorun yok.Ancak kodları, tanımlanmış bir uygulama olarak başka bir makronun içinde (application.Run "makro adı" biçiminde) ayrı bir uygulama olarak kullanırsam hata veriyor...

 

[Levent Menteşoğlu]

Bahsettiğiniz satırdaki formül ancak veriyi bulamadığında hata verir.