DİZİN SORUNU

[mtbi00]

Merhabalar,

Daha öncesinde yapmış ve çalıştırmıştım ama bu sefer olmuyor. Hata veriyor. Kod aşağıdaki gibidir. Konu hakkında yardımcı olacak varsa sevinirim.

Sub prnclean()
Dim s As Worksheet
Dim aralik1 As Integer
aralik1 = Array(8, 13, 18, 23, 28, 33, 38, 43, 48, 53, 58) ==> Kodu çalıştırdığımda "Type mismatch" hatası veriyor.
Set s = Sheets("PRINT")
s.Select
End Sub

 

[YUSUF44]

aralik1'i integer tipinde tanımlamışsınız ama sonra dizi olarak belirlemeye çalışmışsınız. Muhtemelen bundan kaynaklanıyor. dim aralik1 as array olarak deneyin ya da o satırı iptal edin. (array tipi var mı bilmiyorum)

 

[mtbi00]

aralik1'i integer tipinde tanımlamışsınız ama sonra dizi olarak belirlemeye çalışmışsınız. Muhtemelen bundan kaynaklanıyor. dim aralik1 as array olarak deneyin ya da o satırı iptal edin. (array tipi var mı bilmiyorum)

Merhaba,

İlginizden dolayı teşekkür ederim. Sanırım sorun excel de. Sayfayı kapatıp açtım. Bu sefer çalıştı. Exceli silip yeniden yükleyeceğim.