Hücre seçiminin belli aralıklarla ilerletilmesi

[EKREM1661]

Değerli Arkadaşlar..! Ekli örnekte kod içinde bir değişiklik gerekiyor.. Seçili hücre 61.nci sütundan itibaren 10'ar sütun atlayarak ilerleyen kod, sadece A sütunundaki seçili hücre, 61.nci sütundan başlıyor.. İstiyorum ki, diğer sütunlarda da aynı görevi yapsın.. (Örnekte, ayrıca açıklama var)

 

[Ömer BARAN]

Merhaba.
Kodları aşağıdaki ile değiştirerek kullanabilirsiniz.

Private Sub CommandButton1_Click()
Dim bulunanSutun As Integer
hucre = ActiveCell.Row
bulunanSutun = ActiveCell.Column

If ActiveCell.Column < 5 Then
    Cells(hucre, 61).Select
Else
    Cells(hucre, bulunanSutun + 10).Select
End If

End Sub

Private Sub CommandButton2_Click()
On Error Resume Next
Dim bulunanSutun As Integer
hucre = ActiveCell.Row
bulunanSutun = ActiveCell.Column

If bulunanSutun < 10 Then
    Cells(hucre, 1).Select
Else
    Cells(hucre, bulunanSutun - 10).Select
End If

End Sub

 

[EKREM1661]

Ömer bey.! Çok çok teşekkür ederim..Harika olmuş..Elinize sağlık..