Sıralamanın neresinde hata yapıorum...

[mavidus]

arkadaşlar userformdan veri girişi yaptıktan sonra aktif olmayan firmalar sayasına veri girişi yapıyor ama sıralama hatası veriyor,kodlar aşağıdaki gibi

Private Sub CommandButton1_Click()
Sheets("firmalar").Range("a201").Value = TextBox7.Text
Sheets("firmalar").[a102:a201].Sort Key1:=[a102]
Unload Me
End Sub

 

[Levent Menteşoğlu]

Verdiğiniz kodlarda hata verecek bir durum sözkonusu değildir. Ancak sıraladığınız verilerde geçersiz veri söz konusu olabilir. Bunu bir inceleyin.

 

[mavidus]

sıralama başvurusu geçerli değil.sıralamak istediğiniz verilerin içinde olduğuna emin olunuz gibisinden uyarı veriyor ama bir şey dikkatimi çekti Firmalar sayfası aktif olduğunda hata vermiyor yalnız kapalı olduğunda hata veriyor

 

[Levent Menteşoğlu]

Firmalar sayfası aktif olduğunda hata vermiyor yalnız kapalı olduğunda hata veriyor

Kapalıdan kastınız nedir? Sayfa gizli veya korumalı ise hata verebilir.

 

[mavidus]

kapalı demek istediğim o an için ekranda firmalar sayfası değilde sayfa 2 nin gözükmesi

 

[Levent Menteşoğlu]

Bu durumda aşağıdaki gibi deneyin.

[vb:1:c8d1e9cd15]Private Sub CommandButton1_Click()
Sheets("firmalar").Range("a201").Value = TextBox7.Text
sheets("firmalar").select
Sheets("firmalar").[a102:a201].Sort Key1:=[a102]
sheets("sayfa2").select
Unload Me
End Sub
[/vb:1:c8d1e9cd15]