Butonla fazla boşlukları kırpmak

[ASLAN7410]

Merhaba hayırlı akşamlar.

Ekte gönderdiğim excel dosyamda kırp kodunu çalıştıramadım, yardımcı olur musunuz?

Sub KIRP()
For Each ii In Range("F2" & [F2000].End(3).Row)
ii.Value = WorksheetFunction.Trim(ii.Value)
Next
End Sub

 

[ÖmerBey]

Merhaba, şu şekilde deneyiniz.

For Each ii In Range("F2:F" & [F2000].End(3).Row)

 

[ASLAN7410]

Sayın Ömer Bey, valla kod yazmayı bilmeyince böyle oluyor, küçük bir harf neler yapıyor işte.

Çok teşekkür ederim, hayırlı akşamlar, hayırlı çalışmalar diliyorum.

 

[ÖmerBey]

Rica ederim, bazen o küçücük harf insana saç baş yoldurtur...
İyi akşamlar, iyi çalışmalar...

 

[ASLAN7410]

Sayın Ömer Bey, bu kodu belirli bir aralık için nasıl yapabiliriz? Aşağıdaki gibi yaptım, çalışmadı.
Yani C2 ile Q sütunu son dolu hücreye kadar bu aralıkta çalışmasını istiyorum.

Sub KIRP()
For Each ii In Range("C2:Q" & [Q2000].End(3).Row)
ii.Value = WorksheetFunction.Trim(ii.Value)
Next
End Sub

Yardımcı olur musunuz?

 

[Ömer BARAN]

Sayın adaşım şu an çevrimiçi değil sanırım.

Sanıyorum işlemin sadece C sütununda yapılmasını ama
son satır numarasının C sütununa göre değil Q sütununa göre tespit edilmesini istiyorsunuz.
Eğer durum bu ise ilgili kısmı Range("C2:C" & [Q..... şeklinde değiştirin.

 

[ASLAN7410]

Sayın Ömer Bey, ilginiz için çok teşekkür ediyorum.

Yapmak istediğim C2 ile Q sütunu en son dolu hücreye kadar, bu aralıktaki hücrelerin kırpmasını istemiştim.

 

[turist]

Sub KIRP()
For Each ii In Range("C2:Q" & Cells(Rows.Count,"Q").End(xlUp).Row)
ii.Value = WorksheetFunction.Trim(ii.Value)
Next
End Sub
şeklinde deneyin.

 

[ASLAN7410]

Sayın turist ilginiz için çok teşekkür ediyorum, verdiğiniz kodu ekte gönderdiğim excel dosyasına ekledim, hiç bir şey yapmadı.
Dosya ekte.

 

[turist]

Sayın @ASLAN7410
Q sütununda hiçbir veri yok. Bu nedenle Q sütununun son dolu satırı bulunamaz.
Q50 hücresine her hangibir şey yazıp çalıştırın, netice alırsınız.
Veya;
Sub KIRP()
For Each ii In Range("C2:Q1000)
ii.Value = WorksheetFunction.Trim(ii.Value)
Next
End Sub
şeklinde yazıp deneyin.

 

[ASLAN7410]

Sayın turist, bu şekilde aralık verdiğim zaman orijinal dosyam kilitleniyor.

 

[ASLAN7410]

Sayın turist Q sütununda hiçbir veri yok. Bu nedenle Q sütununun son dolu satırı bulunamaz. bu dediğiniz hiç aklıma gelmedi.

Valla süpersiniz, ellerinize sağlık çok teşekkür ediyorum, hayırlı geceler diliyorum.

 

[turist]

Kod içinde yer alan:
Range("C2:Q" & Cells(Rows.Count,"Q").End(xlUp).Row)
açıklaması:
C2den başlayıp, Q sütununda en son dolu satıra kadar olan alanı tanımlar.
Yani Q sütununda en son dolu olan hücre örneğin 150.ci satırda ise;Makronun işlem yapacağı alan;
C2 ile Q150 arasındaki bütün hücrelerdir.
C2:C150...D2 : D150.....Q ya kadar ve Q2:Q150 bütün sütünların içindeki hücrelerde işlem yapar.

 

[ASLAN7410]

Açıklamalar için çok teşekkür ediyorum, inanın kod yazamadığım için böyle sorularım bazan saçma gelebilir. Kusura bakmayın.

Hayırlı geceler diliyorum.

 

[turist]

Rica ederim.
Hayırlı geceler...

 

[gicimi]

Sub KIRP()
For Each ii In Range("C2:Q" & Cells(Rows.Count,"Q").End(xlUp).Row)
ii.Value = WorksheetFunction.Trim(ii.Value)
Next
End Sub
şeklinde deneyin.

Sn. @turist Paylaşmış olduğunuz kodu tüm sayfa ve satırlar için nasıl güncelleyebiliriz.

 

[turist]

Sub KIRP()
For Each ii In ActiveSheet.UsedRange.Cells
ii.Value = WorksheetFunction.Trim(ii.Value)
Next
End Sub
şeklinde deneyin.

 

[gicimi]

@turist teşekkür ederim. Kolaylıklar.

 

[turist]

Sağolun.