i değeri neden değişmiyor

[euphrates55]

kendimce kod yazmaya çalışıyorum. ancak i değeri değişmiyor. nerede hata yapıyorum acaba.

Sub hkdş_temizle()
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    
    Dim i As Long, Alan As Range
 

    sh = InputBox("son satır sayısı (harfsiz)")
    If sh = "" Then
    MsgBox "son satır numarasını yazmadınız.", vbInformation, "        Uyarı"
Exit Sub
End If
    x = Range("" & "da8" & "").Row  '8
    y = Range("" & "da8" & "").Column '105
    a = Range("" & "dz8" & "").Row '8
    b = Range("" & "dz8" & "").Column '130
    
    For i = x To sh Step 6
    
    For j = y To b
    
    
    If Cells(i, j).Value > 0 Then
    If Alan Is Nothing Then
    Set Alan = Range(Cells((i - 5), y), Cells(i - 1, b))
Else
    Set Alan = Application.Union(Alan, Range(Cells((i - 5), y), Cells(i - 1, b))) 
End If
End If
Next
Next
    Alan.Select
    Selection.ClearContents
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic

End Sub

 

[euphrates55]

İndir SORU

Dosyayı indir SORU

dosya.co

Ben yine de bir dosya ekleyeyim

 

[euphrates55]

Sub hkdş_temizledğr()
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
Dim j As Integer
    sh = InputBox("son satır sayısı (harfsiz)")
    If sh = "" Then
    MsgBox "son satır numarasını yazmadınız.", vbInformation, "        Uyarı"
Exit Sub
End If
    x = Range("da8").Row
    y = Range("da8").Column
    a = Range("dz8").Row
    b = Range("dz8").Column
    For i = x To sh Step 6
    For j = y To (y + 30) Step 1
    If Cells(i, j) = 0 Then
    Range(Cells((i - 5), j), Cells(i - 1, j)).Select
Selection.ClearContents
End If
Next j
Next i
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
End Sub

bu şekilde çözdüm. uğraşmaya çalışan olduysa teşekkürler.

 

[systran]

kendimce kod yazmaya çalışıyorum. ancak i değeri değişmiyor. nerede hata yapıyorum acaba.

sorunuz için değil ama bir iki kod yazma tavsiyesi
1- girintili kod yazma kurallarına uymaya çalışın, blokların başlangıç ve bitişini daha kolay kavrarsınız.
2- kodlarınıza yorum eklemeyi unutmayın, daha sonra kodları tekrar okuma ihtiyacı hissetiğinizde nerede ne yapmıştım diye düşünmezsiniz.
3-Türkçe karakter kullanmayın. Visual Basic TR karakter konusunda uysal başlıdır ama başka programlama dilleri bu konuda katıdır.
4- option explicit ifadesini her yeni çalışmanızın en üstüne, ilk satırına yazın. Böylece değişkenleri tanımlamanız gerekir.
5-Debug, Addwatch ve adım adım kod çalıştırma tekniklerini araştırın.

 

[euphrates55]

konu çok zevkli. tavsiyelerinizi dikkate alacağım.