Kırp ile ilgili yardım.

[demus35]

Merhaba arkadaşlar,
Bir çalışma formu oluşturdum alt alta bir çok satır yüklüyorum. (kopyalıyorum) Bir buton aracılığı ile F2+Enter uyguluyorum. Fakat hücrelerin sonunda boşluklar olduğu için hücrelere bağlı formüller çalışmıyor. Bende KIRP ile bunları temizliyorum. Ama ben butona tıkladığımda F2+Enter uygulattığım sütunlara KIRP fonksiyonu eklemek istiyorum. Aşağıda vereceğim kodda daha açık anlayabilirsiniz.

Butona tıkladığımda aşağıdaki işlemi yapıyor. Ben buraya bu işlemi yaptığı satırlara KIRP fonksiyonunu uygulatmak istiyorum. Bu mümkünmüdür. İlginiz için şimdiden teşekkürler.

Sub Düğme2_Tıklat()
For i = 1 To [A65536].End(3).Row
Cells(3, "a").Select
SendKeys "{F2}"
SendKeys "{ENTER}"

Next i
End Sub

 

[Necdet]

Merhaba,

Aşağıdaki kodları dener misiniz?

Sub Düğme2_Tıklat()
Dim i As Integer
For i = 1 To [A65536].End(3).Row
    Cells(i, "a").Select
    SendKeys "{F2}"
    SendKeys "{ENTER}"
    Cells(i, "a") = Trim(Cells(i, "A"))
Next i
End Sub

 

[levo26]

Alternatif olarak;
Seçili alandakileri aşağıdaki kod ile kırpabilirsiniz.

Sub Bosluklari_kirp()
For Each c In Selection.Cells
c.Value=Application.Trim(c.Value)
Next c
End Sub

 

[demus35]

Merhaba,

Aşağıdaki kodları dener misiniz?

Sub Düğme2_Tıklat()
Dim i As Integer
For i = 1 To [A65536].End(3).Row
    Cells(i, "a").Select
    SendKeys "{F2}"
    SendKeys "{ENTER}"
    Cells(i, "a") = Trim(Cells(i, "A"))
Next i
End Sub

Necdet Bey çok teşekkür ederim evet istediğim gibi oldu fakat örneğin 30 satır varsa döngü 30 sefer dönmesi gerekiyorken 60 sefer dönüyor yani eklediğim satırlar kadar boş satırları da sayıyor.

Ayrıca levo26 arkadaşım ilgi için teşekkür ederim. Necdet beyin verdiği kodlar tam istediğim kodlar.

 

[demus35]

Necdet Bey Temizle butonu eklediğimde bir hata oluştu. Daha ayrıntılı anlatabilmek için bir tane örnek dosyası ekledim. Dilerseniz oradan bakabilirsiniz. Teşekkür ederim

 

[demus35]

Konu güncel...