Range Select Yöntemi Başarısız

[oguzgok]

Arkadaşlar slm..
Aşağıdaki kod çalıştığı zaman "Range select yöntemi başarısız" uyarısı alıyorum.
Aşağıdaki kodu A2:A2000 gibi bir sütunda denediğimde uyarı almıyorum. Ancak
A sütunundaki satır sayısını 32000 gibi bir rakama çıkardığımda bu uyarıyı veriyor.
Yardımcı olacak arkadaşımı şimdiden tşk...
Herkese kolay gelsin..


Private Sub CommandButton1_Click()
For Each alan In Sheets("VERİ").Range("A2:A32000")
If TextBox5.Value = alan.Value Then
alan.Select
ActiveCell.Offset(3, 0).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Offset(0, 0).Value = TextBox1.Value * 1
ActiveCell.Offset(0, 1).Value = TextBox2.Value * 1
ActiveCell.Offset(0, 2).Value = TextBox3.Value * 1
ActiveCell.Offset(0, 3).Value = TextBox4.Value * 1
End If
Next
MsgBox "Kayıt Yapılmıştır..."
End Sub

 

[Recep İpek]

Kodlarınıza aşağıdaki satırı ekleyebilirmisiniz?


Private Sub CommandButton1_Click()
Dim alan As Long
For Each alan In Sheets("VERİ").Range("A2:A32000")
If TextBox5.Value = alan.Value Then

 

[oguzgok]

Dim alan As Long
ifadesine dediğiniz gibi koda yerleştirdim ama bu sefer hata msj vermeden kod sayfasında hata gösteriyor..
Acaba kodu siz düzenleyebilirmisiniz...Tşk..

 

[Recep İpek]

Normalde kodlarınız benim yaptığım örnekte doğru çalışıyor.

Peki bu aralıklarda birleştirilmiş hücre vb biçimlendirmeler var mı?

Veya A kolonunda maksimum sayı kaçtır?

 

[oguzgok]

Birleştirilmiş hücre yok.. Normal..
A kolonundaki en son satır 32000

 

[Orion1]

Bakıyorumda çoğu arkadaş bu Select deyimini kullanıyor.
Bu deyimi niye kullanıyorsunuz anlamıyorum.Bu deyim makronun hızına fren yapar.

 

[oguzgok]

Sn. Evren Gizlen..
İnan gaza basmaya çalışıyoz ama...