excel şu basit kodda hata veriyor

[nihattt]

aşağıdaki kodu butona atadım ama butona bastığımda ya "excel kullanılabilir kaynaklar ile çalıştıramıyor" gibisinden bi hata veriyor ya da direkt hata ile kapanıyor. program donuyor her türlü. 2007 de sorun olmuyor 2003 te hata veriyor. sizce aşağıdaki kodda ne tür bir düzeltme bu hatayı düzeltebilir.


Private Sub CommandButton4_Click()
If ListBox1.ListIndex < 0 Then
MsgBox "Lütfen önce hasta listesinden bir seçim yapınız.", vbExclamation, "Dikkat !"
Exit Sub
End If
Cells(ActiveCell.Row, "P") = 2
Label46.BackColor = 10485759
Label38.BackColor = 10485759
Label39.BackColor = 10485759
Label40.BackColor = 11184895
Label41.BackColor = 11184895
Label42.BackColor = 10485759
Label43.BackColor = 10485759
Label44.BackColor = 10485759
Label45.BackColor = 10485759
Label47.BackColor = 11184895
Label48.BackColor = 10485759
Label49.BackColor = 10485759
End Sub

 

[uzmanamele]

merhaba

kullanmak istediğiniz renk kodu excel2003 de yoksa hata verecektir.
tavsiyem, 2003 deki bir renk kodunu kullanmanız. bu kod 2007 de desteklenecektir.

 

[nihattt]

hocam işin ilginç tarafı ben zaten uygulamayı excel 2003 te geliştiriyorum ama 2003 te kullanamıyorum. 2007 de hatasız çalışıyor backcolor yaparken iki üç farklı şekilde oluyor

hem yukarıdaki gibi
hem labelcolor = &HFFC0C0
hem de labelcolor = vbRed

gibi. &HFFC0C0 şeklinde deneyeyim olucak mı bakayım bi. hocam

 

[mustafaozudogru]

Kodlar bu haliyle normal çalışıyor. Ekrana gelen hata mesajını yazabilir misin?

 

[mustafaozudogru]

Kodlar çalışıyor. Hata mesajını yazabilir misiniz?

 

[nihattt]

method "Select" of object "Range" failed. diye bir uyarı veriyor. Her zaman vermiyor ama bir kaç kere yapınca hata verip kapanıyor otomatik kurtarma çalışıyor. Select olayına girmiyor hemen sanırım.

 

[merakli_72]

Bence uygulamayı F8 ile adım adım çalıştırıp hatayı hangi satırdan dolayı verdiğini bulmaya çalışın
Hata tahmininizin aksine yukarıdaki satırlardan kaynaklanmıyor olabilir

Her zaman hata vermiyor demişsinizki buda hatanın başka bir yerden kaynaklanma ihtimaini güçlendirir
Renklerle ilgili bir sıkıntı olsa her seferinde verirdi

 

[merakli_72]

Mesela uygulamanızda bir grafik sayfası varsa ve bu sayfa aktif iken kodu çalıştırdığınızda
CellsCells(ActiveCell.Row, "P") = 2
satırından dolayı bahsettiğiniz türde bir hata verebilir

 

[mustafaozudogru]

Benim tek tavsiyem, eğer çalışmanız aksamayacaksa, en başa bir Error Handler koymanız. Veya kodlama başlamadan hemen önce On Error Resume Next yazmanız.