Next döngüsü hatası hk.

[dedenet]

Aşağıda yazdığım kodu çalıştırınca şu hatayı veriyor.
Compile error
Duplication declaration in currect scope

ayrıca hatanın i As Integer kısmında olduğunu gösteriyor.
buraya Integer yerine başka bir şey mi yazmam lazım
çünkü i, 0 - 6 arasında bir değer.
0 dan başlamasından dolayı bir hata olabilir mi?

Sheets("Liste").Select
Dim i As Integer
For i = 0 To 6
k = 30 * i + 4

If [AH10] > [AH9] Then
Rows([AH9] + k & ":" & [AH10] + k).Select
Selection.EntireRow.Hidden = False
End If

Range("A" & k & ":W" & k).Select
Selection.Copy
Range("A" & k + 1 & ":W" & [AH10] + k - 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

Rows([AH10] + 4 & ":" & k + 25).Select
Selection.EntireRow.Hidden = True

Next i

 

[YUSUF44]

Dosyayı görsek daha iyi olurdu. Duplication bildiğim kadarıyla aynı şeyden iki tane olduğunda olan bir hata. Yani i'yi birden fazla kez tanımlamış olabilirsiniz. (Bildiğimden değil, tahmin yürüttüm).

 

[dedenet]

Evet Yusuf bey haklısınız. kod oldukça uzundu. ben sadece sorun yaşadığım kısmı paylaşmıştım. i'yi 2 kez kullanmışım. değişkeni değiştirince sorun giderildi. Teşekkür ederim.

Yeri gelmişken şunu sorayım:

Dim i As Integer for i = 0 to 6

burada i değişkeni 0 dan başladığı için Integer kullanılmasında sorun olur mu yoksa başka bir şey mi kullanmalıyım?

 

[YUSUF44]

Fikrim yok, zaten pek Dim ile tanımlama yapmam, hatalı tanımlama yapmak istemiyorum

 

[mancubus]

integer olarak tanımlanan bir değişken -32768 ile +32767 arasında 65536 (2^16) farklı değer alabilir.

tablo kaynak:

Vba Değişkenler Ve Veri Tipleri-I

Programlamaya girişte en temel konulardan bir tanesi değişkenler ve yapılarıdır. Bu bölümde değişkenleri ve veri tiplerini tanımaya ve doğru kullanımlarını anlamaya çalışacağız. Önemli kısımları kü…

excelyardim.wordpress.com