• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

Çözüldü Excel'de Vba'dan panoyu boşaltma hk.

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

himmgarip

Excel Dostu
Katılım
27 Mar 2021
Mesajlar
797
Çözümler
96
Aldığı beğeni
882
Excel V
Office 2016 TR
Konu Sahibi
Merhaba,

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

ile normalde panoyu boşaltabiliyoruz. Yaptığım çalışmada sebebini anlamadığım bir durum var. Pano boşaltmayı yapamıyorum. Başka bir yöntemi var mıdır acaba?

Teşekkürler.
 
Varmış ,
Windows Pano'yu temizlemek için alt testClipboardClear'ı çalıştırın.
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Konu Sahibi
Nasıl kullandığınızı yada excel sürümüzün kaç bit olduğunu bilemediğim için bir şey diyemem. Excelin 64 bitse "Declare Function" böümlerini "Declare Ptrsafe Function" olarak değiştir( dinmi?).
Kopyalama / kesme ve yapıştırma işlemlerini tek satır bir ifade ile yapmayı deneyin bu tür işlemlerde pano kullanılmadığı için Application.CutCopyMode = False kodununa da gerek olmaz.
Kopyalama kesme yapıştırma kodlarını aşağıdaki gibi optimize edebilirsin (Kısaltabilirsin)
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
vb.
 
Konu Sahibi
Nasıl kullandığınızı yada excel sürümüzün kaç bit olduğunu bilemediğim için bir şey diyemem. Excelin 64 bitse "Declare Function" böümlerini "Declare Ptrsafe Function" olarak değiştir( dinmi?).
Kopyalama / kesme ve yapıştırma işlemlerini tek satır bir ifade ile yapmayı deneyin bu tür işlemlerde pano kullanılmadığı için Application.CutCopyMode = False kodununa da gerek olmaz.
Kopyalama kesme yapıştırma kodlarını aşağıdaki gibi optimize edebilirsin (Kısaltabilirsin)
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
vb.
@Suskun hocam,

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

Bu kod satırında bir yerde problem var. Application.CutCopyMode = False yapsam da görevini yapmıyor.
Sayfayı belli bir değere göre süzdürüp kayıtlarekranı sayfasına aktarıyorum. İşlemlerimi onun üzerinden yapıyorum.
 
Aşağıdaki Kodları
sp_sh.UsedRange.Copy
spd_sh.Range("A1").PasteSpecial xlPasteValuesAndNumberFormats
sp_sh.AutoFilterMode = False
Application.CutCopyMode = False

Bu kodları aşağıdaki gibi değiştirip denermisin?.

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Konu Sahibi
@Suskun hocam elinize sağlık. Problemsiz oldu. Teşekkürler.

Önceki kodun anlamı nedir? Bu verdiğiniz kodun anlamı nedir? Kısaca açıklar mısınız lütfen? (Öğrenme Amaçlı)
 
Önceki kod da alanı kopyalayarak Panoyu kullanıyorsunuz çıkışta Application.CutCopyMode = False kullanarak Bir hücre seçin entere basın uyarısından kurtulmanız gerekiyordu.
sonraki kod da Kullanılan alanların değerleri doğrudan hedefe aktarılıyor. Pano kullanılmadığı için CutCopyMode = False koduna gerek kalmamış oluyor
 
Konu Sahibi
Önceki kod da alanı kopyalayarak Panoyu kullanıyorsunuz çıkışta Application.CutCopyMode = False kullanarak Bir hücre seçin entere basın uyarısından kurtulmanız gerekiyordu.
sonraki kod da Kullanılan alanların değerleri doğrudan hedefe aktarılıyor. Pano kullanılmadığı için CutCopyMode = False koduna gerek kalmamış oluyor
@Suskun hocam,

Şimdi fark ettim. Alttaki kodda filtreleme yapıp aldırıyordum. Sizin verdiğiniz kod çok başarılı ama filtreleme olmamış gibi kopyalıyor şuan.

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
AutoFilter 'e bende dikkat etmedim.Bu kodları kaldırın
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.


Yerine Aşağıdaki kodları Kullanın
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Çözüm
Konu Sahibi
Teşekkür ediyorum. Ne güzel.
 
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst