ActiveX Commnad Button Hatası

[kadir78]

İyi günler. Aşağıdaki Activex CommandButton içinde bulunan makro kodunun kırmızı ile işaretlediğim yerinde Run-Time 1004 hatasını veriyor. Hatayı çözemedim. Yardımcı olur musunuz.

Private Sub CommandButton2_Click()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    CommandButton2.BackColor = 4210943
    Sheets("Kaynak").Activate
    
    [COLOR="Red"]Cells.Select[/COLOR]
    Selection.ColumnWidth = 16
    Selection.RowHeight = 21
    Range("A1").Select
        
    Columns("R:R").Delete Shift:=xlToLeft
    Columns("Q:Q").Delete Shift:=xlToLeft
    Columns("P:P").Delete Shift:=xlToLeft
    Columns("M:M").Delete Shift:=xlToLeft
    Columns("L:L").Delete Shift:=xlToLeft
    Columns("K:K").Delete Shift:=xlToLeft
    Columns("G:G").Delete Shift:=xlToLeft
    Columns("F:F").Delete Shift:=xlToLeft
    Columns("E:E").Delete Shift:=xlToLeft
    Columns("C:C").Delete Shift:=xlToLeft
    Columns("A:A").Delete Shift:=xlToLeft
    
    Range("A1").Select
     
    Sheets("Bilgiler").Activate
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    MsgBox "İŞLEM TAMAMLANDI.", vbInformation
End Sub

 

[antonio]

İyi günler. Aşağıdaki Activex CommandButton içinde bulunan makro kodunun kırmızı ile işaretlediğim yerinde Run-Time 1004 hatasını veriyor. Hatayı çözemedim. Yardımcı olur musunuz.

Private Sub CommandButton2_Click()
 ...
    Sheets("Kaynak").Activate
    
    [COLOR="Red"]Cells.Select[/COLOR]
    Selection.ColumnWidth = 16
    Selection.RowHeight = 21
    Range("A1").Select
   .....
End Sub

Mesajınızın alıntısı olarak yukarıda gösterdiğim kodları, kısaca

    Sheets("Kaynak").Cells.ColumnWidth = 16
    Sheets("Kaynak").Cells.RowHeight = 21

Şeklinde formüle edebilirsiniz.
Bu hem işlemciyi daha az yorar, hemde işlemi hızlandırır.
Ancak, bu yazdıklarım, sözünü ettiğiniz hatanın sebebi değildir. Tüm hücrelerin seçilmesi komutunda kod hata veriyorsa, bunu engelleyen bir durum var demektir. (Sayfada korumalı hücre bulunması, veri doğrulama kuralları gibi.)

 

[kadir78]

Sayın Antonio. Verdiğiniz kod çalıştı fakat Range("A1").Select satırında aynı hatayı verdi. Burada sanırım bütün "select" komutlarında hata veriyor. Nasıl çözeceğim bilmiyorum.

 

[antonio]

Sayfa korumalı ve A1 hücresi kilitli olabilir.

 

[kadir78]

Sayın Antonio. Kilitleri kaldırdım yine aynı sorun var. Birde Kaynak sayfasını Activate yapmıyor.
Sheets("Kaynak").Activate Çalışmıyor. Kaynak sayfasını Activate yapamadığı için Bilgiler sayfasından sütunları siliyor. Aynı satır hata da vermiyor. Çok anlamsız geliyor çözemedim.

 

[antonio]

Dosyanızda belirttiğiniz sorunu / sorunları gösteren örnek dosyanızı paylaşırsanız, cevap alma şansınız artar.

 

[kadir78]

Dosyayı ekledim. Range("A1").select hata veriyor.Run-time error 1004. Yardımcı olursanız sevinirim.

http://s8.dosya.tc/server5/201zsr/Kitap1.rar.html

 

[Ömer BARAN]

Merhaba.

Her iki düğmenin kodlarında da aşağıdaki kırmızı kısmı ekleyip deneyin.
.

[COLOR="Red"][B]ActiveSheet.[/B][/COLOR]Range("A1").Select

 

[kadir78]

Ömer Bey çok teşekkür ederim. Kod sorunsuz çalıştı. Sağolun elleriniz dert görmesin.

 

[Ömer BARAN]

Ömer Bey çok teşekkür ederim. Kod sorunsuz çalıştı. Sağolun elleriniz dert görmesin.

Kolay gelsin.
.