damga(10)'ları kırpma

[peleryn]

Merhaba;

A sütununda 1000 e yakın hücre içerisinde bazıları fazladan chr(10) damgası taşıdığından hücre içerisinde fazladan boş satırlar oluşuyor.Bunları kırp formülü ya da trim komutu ile temizleyemedim.Başka bir yol öneren olur mu?

 

[Ömer]

Merhaba,

ctrl h ile yapabilirsiniz.

Aranan değere: Alt + 0160 ve tümünü değiştir.

.

 

[peleryn]

Ömer hocam malesef uygulayamadım.eşleşen veri bulunamadı diyor.Şu an örnek dosya yükleyemiyorum özür dilerim

 

[Ömer]

Kopyalama yolunu deneyiniz.

Önce hücredeki fazladan oluşan bölümü yani damga(10) bölümü fare ile seçip kopyalayın ve aranan değere yapıştırın sonra tümünü değiştir.

.

 

[Ömer]

Yine olmazsa,

Cells.Replace Chr(10), ""

komutu makro ya bağlayarak çalıştırınız.

.

 

[peleryn]

Ömer hocam önerilerinizi denedim teşekkür ederim.Ufak bir sorunum var.Ekli dosyada da göreceğiniz gibi kodu ya da diğer yönemleri uyguladığımda bozulmasını istemediğim satırlar var.Yani eğer hücre içinde damga 10 varsa ve damga 10 un bulunduğu satırda veri varsa o damga silinmeyecek.

 

[Orion1]

Aşağıda yaptığım ktf işinizi görür.
İyi çalışmalar.
KIRPE KTF

 

[peleryn]

Evren Hocam Merhabalar;

Öncelikle uzun zamandır sizi göremiyordum tekrar bir konuma katılmanız beni fazlasıyla hoşnut etti bunu belirtmek istedim.

Hocam ktf yi modüle ekledim b2 hücresine =kırpe(a2;0) formülünü girdim ancak AD# hatası aldım.Nerede yanlış yapıyorum acaba?

 

[peleryn]

Hocam sayfaya formülü girerken "kırpe(" şeklinde küçük harfle başlatmıştım onu büyük harf yaptım ve formül çalıştı.arkasından artık küçük te girsem çalışıyor.

İlk olarak işlem yapmadı ama chr(160) ları chr(10) olarak değiştirince ihtiyaç duyduğum işi de yaptı.

Peki bu chr(10) ları yerinde bu şekilde silmek için ne yapabilirim evren hocam?

 

[Orion1]

Evren Hocam Merhabalar;

Öncelikle uzun zamandır sizi göremiyordum tekrar bir konuma katılmanız beni fazlasıyla hoşnut etti bunu belirtmek istedim.

Hocam ktf yi modüle ekledim b2 hücresine =kırpe(a2;0) formülünü girdim ancak AD# hatası aldım.Nerede yanlış yapıyorum acaba?

Çalışma sayfası modülüne eklemeyin
class modülede eklemeyin
standart modüle ekleyin
birde ktf de yazan ad ile sizin yazdığınız aynimi ona bakın
burada formülü tanımıyor AD# o demek.
Kolay gelsin.

 

[peleryn]

Dim deg As Range
For Each deg In Range("a2:a2000")
If Len(deg) > 0 Then
Do While Left(deg, 1) = " " Or Left(deg, 1) = Chr(10)
deg = Right(deg, Len(deg) - 1)
Loop
End If
If Len(deg) > 0 Then
Do While Right(deg, 1) = " " Or Right(deg, 1) = Chr(10)
deg = Left(deg, Len(deg) - 1)
Loop
End If
Next

Teşekkürler Evren Hocam

 

[Orion1]

Hocam sayfaya formülü girerken "kırpe(" şeklinde küçük harfle başlatmıştım onu büyük harf yaptım ve formül çalıştı.arkasından artık küçük te girsem çalışıyor.

İlk olarak işlem yapmadı ama chr(160) ları chr(10) olarak değiştirince ihtiyaç duyduğum işi de yaptı.

Peki bu chr(10) ları yerinde bu şekilde silmek için ne yapabilirim evren hocam?

o sorun i İ ı I sorundan kaynaklanıyor.
Ben onu küçük harfla yazsaydım
kırpe yazmazdım kirpe yazardım.
öteki konu:
döngüye girin.
ve ktf'yi kullanın.ben denemedim ama aşğıdaki gibi bir kodlama işiniz görürür.
mesela
a1:a10 da

for i = 1 to 10
cells(i,"A").value=KIRPE("A" & i,0)
next

 

[peleryn]

Hocam 11 nolu mesajım belki gözünüzden kaçtı gibi geldi.12 nolu mesajınızla zamanları çok yakın.orada kurmuş olduğum döngü gördüğüm kadarıyla sorunsuz bir şekilde yerinde temizliği yapıyor.Ellerinize sağlık tekrar teşekkürler.

 

[Orion1]

Hocam 11 nolu mesajım belki gözünüzden kaçtı gibi geldi.12 nolu mesajınızla zamanları çok yakın.orada kurmuş olduğum döngü gördüğüm kadarıyla sorunsuz bir şekilde yerinde temizliği yapıyor.Ellerinize sağlık tekrar teşekkürler.

Evet gördüm.
Bunu yapacağınız kanaatindeydim zaten.
Tebrik ederim.
Yalnız benim verdiğim kodlamayıda inceleyin.Oda çalışır.
ayriyetten bir fonksiyonu vba ile nasıl kullanabilirsinizi gösteriyor.
Kendinize bazı özel fonksiyonlar yapıp vba kodlama içinde kullanarak defalarca kod yazmak yerine tek satırda bir çok işlemi yapabilirsiniz.VBA yı ne kadar sıklıkta kullandığınız bilmiyorum ama benim işime bu fonksiyonlar çok yarıyor.VBA kodlamada çok büyük esneklik sağlıyorlar bana.
Kolay gelsin.İyi çalışmalar.

 

[peleryn]

Evet gördüm.
Bunu yapacağınız kanaatindeydim zaten.
Tebrik ederim.
Yalnız benim verdiğim kodlamayıda inceleyin.Oda çalışır.
ayriyetten bir fonksiyonu vba ile nasıl kullanabilirsinizi gösteriyor.
Kendinize bazı özel fonksiyonlar yapıp vba kodlama içinde kullanarak defalarca kod yazmak yerine tek satırda bir çok işlemi yapabilirsiniz.VBA yı ne kadar sıklıkta kullandığınız bilmiyorum ama benim işime bu fonksiyonlar çok yarıyor.VBA kodlamada çok büyük esneklik sağlıyorlar bana.
Kolay gelsin.İyi çalışmalar.

Önerdiğiniz döngünün hoşluğu ve sadeliği dikkatimi çekmişti ama açıkçası sorunumu halletmiş olduğum için siz şu son açıklamaları yapmasaydınız üzerinde durmadan geçecektim evren hocam.Sizin gibi üstadlarla aramızdaki en büyük fark buradan kaynaklanıyor belki de..Siz daha iyisini nasıl yapabilirim diye düşünürken ben ve benim gibi kullanıcılar sorunumu nasıl hallederim'e odaklanıyoruz.Bu farkındalığı sağlamanız bile sanırım büyük bir katkı.Yardımlarınız için tekrar teşekkür ediyorum.

 

[erkanfun]

Teşekkürler...