Makro ile kırp

[ASLAN7410]

Merhaba arkadaşlar hayırlı akşamlar.

Excel sayfasında Sayfa1'den Sayfa2'ye geçtiğimde otomatik olarak Sayfa2'de kırp yapmasını istiyorum.

Forumda araştırdım ancak tam isteğim gibi bir şey bulamadım.

Yardım edecek arkadaşlara şimdiden teşekkürler.

 

[ÖmerBey]

Merhaba,
Sayfa2'nin worksheet_activate olayına kodlarınızı yazabilirsiniz.

 

[ASLAN7410]

Sayın Mucit77 ilginiz için çok teşekkür ediyorum, ancak elimde herhangi bir kod yok ki. Maalesef kod yazmayı da bilmiyorum.

 

[ÖmerBey]

Yukarıdaki sorunuza göre ben de ancak o kadar cevap yazabildim.
Maalesef sorunuzun diğer kısımlarını anlayamadım.

Sayfa2'de kırp yapmasını istediğiniz şey ne?
Kırp yapmak ne demek?
Nasıl yapılacak?
Veri nerden alınacak?
vs.

Bari bir örnek dosya falan ekleseniz...

 

[ASLAN7410]

Sayfa2'ye geçtiğimde hücrelerdeki kelimeler arasındaki fazla boşlukların silinmesini istemiştim.

 

[ÖmerBey]

Aşağıdaki kodu sayfa2'nin kod kısmına kopyalayınız.

Private Sub Worksheet_Activate()
For Each hücre In Sheets("Sayfa2").UsedRange
    hücre.Value = WorksheetFunction.Trim(hücre.Value)
Next
End Sub

Sayfa2'de kullanılan alandaki her hücredeki fazla boşlıkları siler.
Ancak formül kullanıyorsanız formülleriniz de değere dönüşür.

 

[ASLAN7410]

Sayın mucit77 çok teşekkür ederim, tam istediğim gibi olmuş elinize sağlık.

Formülleri değere dönüştürür ise kırpmak istediğim sütunları seçmem gerekecek.
Örneğin B-D-F-G sütunlarındaki kelimeleri kırpsın, bu sütunları kodun arasına nasıl yazarım?

 

[halit3]

Bu tür uygulamalar hiç de kullanışlı değil

sayfada atıyorum 40000 hücrede veri varsa ne olacak dosya kilitlenir

size tavsiyem hücrelere veri yazarken kontrol edilerek boşlukların alınması yoksa sayfaya her geldiğinde ne kadar çok hücrede veri varsa o kadar işlem yapması için zaman geçecektir.

 

[ASLAN7410]

Sayın Halit Bey, sayfada belirli bir aralık olsa örneğin B1 ile B1000 arası D1 ile D1000 arası F1 ile F1000 arası ve G1 ile G1000 arasını eklesek yine de sayfada kilitlenme olur mu?

 

[halit3]

Sayın Halit Bey, sayfada belirli bir aralık olsa örneğin B1 ile B1000 arası D1 ile D1000 arası F1 ile F1000 arası ve G1 ile G1000 arasını eklesek yine de sayfada kilitlenme olur mu?

Ben yukarıdaki mesajımda söyledim diyeceğimi
Siz sayfa2 ye her geçtiğinizde kod 3000 satırı tarayacak ne gerek var buna kontrolü veriyi hücreye yazarken hücreden çıkışta yapmak en doğrusu

başkada bir şey yazmayacağım tercih sizin iyi çalışmalar.

 

[ASLAN7410]

Anladım Halit Bey ilginize çok teşekkür ediyorum. Hayırlı geceler.

 

[ÖmerBey]

Kodu aşağıdaki şekilde değiştirirseniz formül içeren hücreler değişmez.

Private Sub Worksheet_Activate()
For Each hücre In Sheets("Sayfa2").UsedRange
    If Not hücre.HasFormula Then
        hücre.Value = WorksheetFunction.Trim(hücre.Value)
    End If
Next
End Sub

 

[ASLAN7410]

Sayın mucit77 çok teşekkür ediyorum tam istediğim gibi oldu, Allah razı olsun hayırlı geceler.

 

[stirra_ej]

Formülü b3: b500 hücresi aralığı için düzenlememe yardımcı olabilirmisiniz lütfen