Butonla fazla boşlukları kırpmak

ASLAN7410

Altın Üye
Altın Üye
Katılım
15 Temmuz 2012
Mesajlar
2,790
Excel Vers. ve Dili
Ofis 2021 TR 64 Bit
Merhaba hayırlı akşamlar.

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

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

Ekli dosyalar

ÖmerBey

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2012
Mesajlar
4,091
Excel Vers. ve Dili
2007 Türkçe
Merhaba, şu şekilde deneyiniz.
Rich (BB code):
For Each ii In Range("F2:F" & [F2000].End(3).Row)
 

ASLAN7410

Altın Üye
Altın Üye
Katılım
15 Temmuz 2012
Mesajlar
2,790
Excel Vers. ve Dili
Ofis 2021 TR 64 Bit
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

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2012
Mesajlar
4,091
Excel Vers. ve Dili
2007 Türkçe
Rica ederim, bazen o küçücük harf insana saç baş yoldurtur...
İyi akşamlar, iyi çalışmalar...
 

ASLAN7410

Altın Üye
Altın Üye
Katılım
15 Temmuz 2012
Mesajlar
2,790
Excel Vers. ve Dili
Ofis 2021 TR 64 Bit
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.

Kod:
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?
 
Son düzenleme:

Ömer BARAN

Uzman
Katılım
8 Mart 2011
Mesajlar
13,002
Excel Vers. ve Dili
Office 2013 ( 32 bit ) TÜRKÇE
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

Altın Üye
Altın Üye
Katılım
15 Temmuz 2012
Mesajlar
2,790
Excel Vers. ve Dili
Ofis 2021 TR 64 Bit
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

Destek Ekibi
Destek Ekibi
Katılım
18 Kasım 2009
Mesajlar
5,102
Excel Vers. ve Dili
2013 64Bit
English
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

Altın Üye
Altın Üye
Katılım
15 Temmuz 2012
Mesajlar
2,790
Excel Vers. ve Dili
Ofis 2021 TR 64 Bit
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.
 

Ekli dosyalar

turist

Destek Ekibi
Destek Ekibi
Katılım
18 Kasım 2009
Mesajlar
5,102
Excel Vers. ve Dili
2013 64Bit
English
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

Altın Üye
Altın Üye
Katılım
15 Temmuz 2012
Mesajlar
2,790
Excel Vers. ve Dili
Ofis 2021 TR 64 Bit
Sayın turist, bu şekilde aralık verdiğim zaman orijinal dosyam kilitleniyor.
 

ASLAN7410

Altın Üye
Altın Üye
Katılım
15 Temmuz 2012
Mesajlar
2,790
Excel Vers. ve Dili
Ofis 2021 TR 64 Bit
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

Destek Ekibi
Destek Ekibi
Katılım
18 Kasım 2009
Mesajlar
5,102
Excel Vers. ve Dili
2013 64Bit
English
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

Altın Üye
Altın Üye
Katılım
15 Temmuz 2012
Mesajlar
2,790
Excel Vers. ve Dili
Ofis 2021 TR 64 Bit
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

Destek Ekibi
Destek Ekibi
Katılım
18 Kasım 2009
Mesajlar
5,102
Excel Vers. ve Dili
2013 64Bit
English
Rica ederim.
Hayırlı geceler...
 

gicimi

Altın Üye
Katılım
3 Şubat 2008
Mesajlar
594
Excel Vers. ve Dili
Office 2016 Eng. 64 Bit
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

Destek Ekibi
Destek Ekibi
Katılım
18 Kasım 2009
Mesajlar
5,102
Excel Vers. ve Dili
2013 64Bit
English
Sub KIRP()
For Each ii In ActiveSheet.UsedRange.Cells
ii.Value = WorksheetFunction.Trim(ii.Value)
Next
End Sub
şeklinde deneyin.
 

turist

Destek Ekibi
Destek Ekibi
Katılım
18 Kasım 2009
Mesajlar
5,102
Excel Vers. ve Dili
2013 64Bit
English
Sağolun.
 
Üst