Ctrl+V sonrası kalan satırları silmek

[o2l3m]

Kopayala yapıştır yapılan sayfamda arda kalan satırları sürekli manuel temizlemek zorunda kalıyorum
Bunun için kod mümkün müdür?

 

[o2l3m]

Lütfen yardım. Çok mu zor acaba?

 

[o2l3m]

Bu konuda destek verebilecek arkadaş yokmu?

 

[htsumer]

Silinecek alan değişken olabilir demişsiniz. Silinecek alandaki veriler yukardakilerle benzer. Sizin istediğiniz manuel olmaz..

 

[o2l3m]

Üzerine yapıştır diyorum. Altta seçilmemiş alan hiçbir şekilde işime yaramıyor. Ve bu içerik basit bir kod ile silinebilir diye düşünüyorum.

 

[Kenantu]

Kopyalama yapmadan önce sayfayı temizletin sonra kopyalama yapın. Tabii ki bu çok basit bir cevap oldu ama bana kopyalamayı nerden ve nasıl yaptığınızı anlatırsanız her türlü çözeriz basit cevap içinde kusuruma bakmayın ayrıntı olmayınca elimde bende en basit şekli ile cevapladım

 

[anemis]

yapıştırılan alan sabit mi peki? sürekli B2 : D23 alanına mı veri yapıştırıyorsunuz?

 

[o2l3m]

Yapıştırılan alan sürekli değişmektedir. Sütun sayıları sabit. Satırlarda artan satırlar olmaktadır.

 

[o2l3m]

Kopyalama yapmadan önce sayfayı temizletin sonra kopyalama yapın. Tabii ki bu çok basit bir cevap oldu ama bana kopyalamayı nerden ve nasıl yaptığınızı anlatırsanız her türlü çözeriz basit cevap içinde kusuruma bakmayın ayrıntı olmayınca elimde bende en basit şekli ile cevapladım

Kopyalanan excel Sap de açılan geçici bir excel sayfasıdır.
Yapıştırılan alan sürekli değişmektedir. Sütun sayıları sabit. Satırlarda artan satırlar olmaktadır.

 

[netzone]

Merhaba,

Yapıştırma işlemini yaptıktan sonra seçili alandan çıkmadan şunları yapabilirsiniz;

1 - SHIFT+TAB tuşlarına basın [Seçili alanın son hücresine odaklanacaktır.]
2 - "AŞAĞI OK" tuşuna basın [Seçili alandan çıkarak bir alt satıra geçecektir.]
3 - CTRL+SHIFT+"AŞAĞI OK" tuşlarına ve ardından CTRL+SHIFT+"SOL OK" tuşlarına basın [B-D sütununda Altta kalan dolu hücreleri seçecektir.]

Artık seçilen hücreler ne kadar uzun olursa olsun seçiminiz sağlanacağından silme işlemini bu yöntemle hızlı bir şekilde gerçekleştirebilirsiniz.

*Kod bilgim olmadığından Makro kaydet yolu ile yaptığımda hücreler sabit kaldığından revize edemedim.

Talep ettiğiniz kod yazılana kadar işlemlerinizi hızlı bir şekilde gerçekleştirebilmeniz için öneri olarak yazılmıştır.

iyi çalışmalar.

 

[o2l3m]

Merhaba
İnanın bu yaptığım bir işlem. Bu kopyala yapıştır sürekli yaptığım için kalan satırları silmek can sıkıcı bir hale geldi. Umarım kod desteği gelir.

 

[Kenantu]

Merhaba dostum
Kısa bir çalışmadan sonra sana makrolu bir çözüm buldum. VBA penceresine gir bir modül ekle aşağıdaki makroyu kopyala. Daha sonra istediğin veriyi kopyala ve bu dosyada istediğin bir yere kopyala , seçili alanı hiç bozmadan yani yapıştırma işlemini yaptıktan sonra her hangi bir hücre seçmeden direkt Alt+F8 tuşu ile makroyu çalıştır


Sub deneme()
Dim memory As Variant
memory = Selection.Value
Range("A:Z").ClearContents
Selection.Value = memory
End Sub

 

[o2l3m]

Ok bu bir çözüm oldu. Peki modül içeriğindeki bu kodları yapıştırma sonrası otomatik çalışmasını nasıl yapabilirim.
Ben bir kaç yöntem denedim başarılı olamadım.

Bunlar,
if, active sheet range,active sheet select value gibi yöntemlerle beceremedim.

 

[Korhan Ayhan]

Ekteki örnek dosyayı deneyiniz.

Yapıştırma işleminden sonra F12 tuşuna basıp sonucu gözlemleyiniz.

 

[o2l3m]

Korhan Bey
Teşekkür ediyorum. Ufak bir sorun var. Benim D Sütunundan sonraki sütunlarda formüller var.
D sütununa kadar satır silme yapılabilir mi?




Örnek deneme dosyasında sayfa2deki B230 aralığını sayfa1de C1 hücresine yapıştır gibi[/QUOTE]

Ekteki örnek dosyayı deneyiniz.

Yapıştırma işleminden sonra F12 tuşuna basıp sonucu gözlemleyiniz.

 

[Korhan Ayhan]

"Sil" makrosunu aşağıdaki gibi değiştirip deneyiniz.

Sub Sil()
    Satir = Evaluate("=MAX(ROW(" & Selection.Address & "))")
    If Satir > 1 Then Range("A" & Satir + 1 & ":D" & Rows.Count).Delete xlUp
End Sub

 

[o2l3m]

Korhan Bey;

Çok teşekkrüler. Dosyayı aşağıdaki şekilde revize ettim. Kodları sayfaya yazarak şu şekilde güncelledim.
Çok yararlı oldu. Umarım ihtiyacı olanlarında işine yarar.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [b2]) Is Nothing Then Exit Sub

    Satir = Evaluate("=MAX(ROW(" & Selection.Address & "))")
    If Satir > 1 Then Range("A" & Satir + 1 & ":D" & Rows.Count).Delete xlUp

End Sub