run-time error '1004': hatası

[üveyin]

arkadaşlar vba'lı dosyamda bu hatayı alıyorum end desem bir sıkıntı olmuyor ama dosya her seferinde bu hata mesajı ile açılıyor.
application-defined or object-defined error

 

[Muzaffer Ali]

Merhaba.
Dosyanızı ekleyin kontrol edelim.
Bu hatanın bir çok sebebi var.

 

[üveyin]

ana sayfa butonuna tıklayınca yada ölçü listesi butonuna tıklayınca alıyorum.

 

[YUSUF44]

Ölçü listesi düğmesine basınca aşağıdaki satırda hata veriyor:

ActiveCell.End(xlDown).Offset(1, 0).Select

Bu işlem A10 hücresindeyken CTRL+Alt Ok tuşuna basılınca gidilen hücrenin bir altındaki hücrenin seçilmesini sağlıyor. Ancak CTRL+Alt ok ile zaten en son hücreye gidildiği ve altında başka hücre olmadığı için doğal olarak makro "hangi hücreyi seçeceğini" bilemiyor ve hata veriyor. Burdaki amacınız sayfadaki ilk boş hücreyi seçmekse o makroyu aşağıdaki gibi kullanmanız gerekir:

Sub Makro2()
'
' Makro2 Makro
'

'
    Sheets("KESİM").Select
    
    Cells(Cells(Rows.Count, "A").End(3).Row + 1, "A").Select
 
End Sub

Ana Sayfa butonuna tıklayınca bende hata vermedi. Zaten o butonda bir makro da ayarlamamışsınız. Düğmeye köprü eklemişsiniz, o köprüyü açıyor.

 

[Muzaffer Ali]

Alternatif.

Sub Makro2()
    Sheets("KESİM").Select
    Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Select
End Sub

 

[üveyin]

Alternatif.

Sub Makro2()
    Sheets("KESİM").Select
    Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Select
End Sub

evet doğru diyorsunuz ölçü listesine basınca hatayı alıyordum yukardaki makro çözüm oldu hatayı almıyorum tşk ederim.

 

[YUSUF44]

Benim önerdiğim makro çözüm olmadı mı? Hata mı verdi? Verdiyse nasıl bir hata verdi?

 

[üveyin]

Benim önerdiğim makro çözüm olmadı mı? Hata mı verdi? Verdiyse nasıl bir hata verdi?

verdiğiniz makro çözüm oldu tşk ederim.

 

[üveyin]

yusuf bey
benim makrolu bir dosyam var ekte paylaşıyorum bu dosya şirketimdeki ağda açılırken aşağıdaki hatayı veriyor. dosya dışarı atıyor beni sonra tekrar deneyince açılıyor. bu konuda yardımcı olurmusunuz tşk ederim.

Run-time error '380':
Could not set the RowSource property.Invalid property value.

 

[YUSUF44]

Dosyanızda "en nefret ettiğim" özellik olan "userformun açılıp, excelin gizlenmesi" özelliği var. Bu özellik nedeniyle tüm açık excel dosyalarım gizlendi ve makronun verdiği hatalar nedeniyle de ne yaptıysam görünür hale getiremedim ve exceli sonlandırmak zorunda kaldım.

Lütfen başkalarıyla paylaşacağınız dosyalarda bu özelliği ya kullanmayın ya da kullanıyorsanız pasifleyin. Ya da hiç olmazsa önceden uyarın, "dosyamda bu özellik var" diye.

Bu sorun nedeniyle verilen hatayı düzeltmek ya da kaynağını anlamak için uğraşamadım çünkü excel dosyanızı göremedim, userform da hata nedeniyle açılmadı.

Yalnız verilen hatanın combobox ya da listboxun veri kaynağının bulunamaması ya da hatalı belirlenmesiyle ilgili olduğunu söyleyebilirim.

 

[üveyin]

kusura bakmayın bende bu konulara çok hakim değilim dediğiniz gibi dosyayı userform direk açılma makrosunu sildim öyle kaydettim. benim bahsettiğim hata sadece bende oluyor başka bilgisayarlarda denedim dosya problemsiz açılıyor. tekrardan kusura bakmayın ((((