Çözüldü Diğer sayfadan komut düğmesiyle çalıştırma

[hakki83]

Merhaba

Sn Alicimri hocamın bugün paylaştığı bir kodu dosyama uyarlamak istedim, fakat doğru yapamadım.

Düğme komut düğmesi ve örnekteki gibi diğer sayfada olması gerekiyor.

Teşekkürler.

Çözüldü - Sayfanın sonuna ve sağa kadar sildirme

Merhaba Örnek dosyaya iki farklı şekilde şu kodları yazabilir miyiz, hangisi kullanışlı olursa onu kullanacağım. 1) B2'den itibaren aşağıya doğru son dolu satır ve sağa doğru son dolu sütuna kadar sildirme (ClearContents) 2) B2'den itibaren aşağıya doğru sayfanın sonuna kadar ve sağa doğru...

excelcozum.com

 

[TiOr]

Merhaba hakki83

Makroyu denersin;
Dosyana uygulamadım pratik yaparsın.
Boş bir modüle kodu kopyalarsın veya düğmenin kod kısmına kopyalar denersin.
Olumlu olumsuz dönüş yaparsın...

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[hakki83]

Hocam örnek dosyamdaki mevcut halde bulunan kodu, komut butonuyla çalışır hale getirebilir misiniz?

 

[TiOr]

Hocam örnek dosyamdaki mevcut halde bulunan kodu, komut butonuyla çalışır hale getirebilir misiniz?

Düzenledim ama sadece B2 yi siliyor.
Sadece B2 nin silinmesini istiyor isen ok.
Yok komple silsin diyorsan mesaj #2 deki kodu düğmeye uyarlayabilirim.
Dönüş yaparsın...

 

[Refaz]

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[hakki83]

Hocam ilginize teşekkürler, sanıyorum detayll bilgi vermem gerekiyor.

Alicimri hocamın kodu çalışıyor ve işimi görüyor. Hatta tam istediğim gibi diyebilirim.

Fakat ben kendi gerçek dosyama, yapmak istediğim şekilde (örnek dosyada göründüğü gibi) uyarlamak isteyince çalışmadı.

Yapmak istediğim, diğer sayfada bir komut düğmesiyle, söz konusu olan kod satırını, “ANASAYFA” da çalıştırabilmek.

 

[Alicimri]

Private Sub CommandButton1_Click()
Set s1 = Sheets("ANASAYFA")
s1.Range("B2:" & s1.Cells.SpecialCells(xlCellTypeLastCell).Address).ClearContents
s1.Activate
End Sub

 

[Alicimri]

Refaz arkadaşın koduda aynı işi görüyor.​

 

[hakki83]

Tior hocama, Refaz hocama ve AliCimri hocama teşekkürler. Emeğinize sağlık.
5 ve 7 nolu kodlar çalışmaktadır.

Fakat konu kilitlenmeden önce bir soru yönelteceğim değerli hocalarıma.


Dosyamda Anasayfada düğme koyacak yer kalmadığı için, mecburen bir sayfa ekleyip düğmeyi buraya yerleştirdim. Ve dosyadaki bütün düğmeler Command button olduğu için, hepsi Command olsun diye Makro buton kullanmadım.

Bu tip silme kodlarında (deneme yanılma kolay olsun diye) Clear yerine Select ile denemeler yapıyordum.

Bu iki kodda da ilk önce Select ile denemeler yapınca hata verdi. (Clear’da sorun yok)
Select ile denerken hata vermesinin sebebi ne olabilir?

 

[azraep]

Bildiğim kadarı ile select için önce o sayfayı seçmeniz gerekiyor
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Alicimri]

Select ifadesini Activate olan sayfada kullanabilirsiniz.
Aşağıda örnek kod
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[hakki83]

Değerli hocalarımız çok teşekkür ederim ilgilerinize. Konu çözülmüştür.

 

[Refaz]

xlCellTypeLastCell

Bu kod sıkıntı yapar abey söyleyeyimde.
Bunun için başka yöntem kullandım.

 

[Refaz]

Yani daha önce başıma geldiği için yazdım.Boş hücreyi bile dolu olarak algılayabiliyor dediğim kod abey.Tabii tercih meselesi.Kolay gelsin.