Soru Ad Soyad Kırpma

MESKO

New member
Üye
#1
Merhabalar;

Şöyle bir makro koduna ihtiyacım var. Yardımlarınızı rica edeceğim.

Sütunda isim ve soyisimler var.
1- İsim 2 boşluk Soyisim

2- İsim 1 boşluk İkinci isim 2 boşluk Soyisim

2 boşluğu 1 boşluğa çevirmek istiyorum.

Saygılar.
İyi Çalışmalar.
 

AhmetRasim

Destek Ekibi
Destek Ekibi
#2
Merhabalar;
Örnek olarak şu kodları deneyiniz.
A sütununda olan isimleri B sütununa yazar.
Kod:
Sub kırp_formulu()
For x = 2 To Cells(Rows.Count, "A").End(3).Row
Cells(x, "B") = Application.WorksheetFunction.Trim(Cells(x, "A"))
Next x
End Sub
Ek olarak; -İsimleri olduğu hücrelerde değiştirmek için;
Sayfada tıkladığınız hücrelerdeki fazla boşlukları silmek için şu şekilde de kullanabilirsiniz.
Kod:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target = Application.WorksheetFunction.Trim(Target)
End Sub
Sayfa aktif olduğunda A sütunundaki isimlerin fazla boşluklarını siler;
Kod:
Private Sub Worksheet_Activate()
For x = 1 To Cells(Rows.Count, "A").End(3).Row
Cells(x, "A") = Application.WorksheetFunction.Trim(Cells(x, "A"))
Next x
End Sub
Kod:
Sub kırp_formulu()
For x = 1 To Cells(Rows.Count, "A").End(3).Row
Cells(x, "A") = Application.WorksheetFunction.Trim(Cells(x, "A"))
Next x
End Sub
 
Son düzenleme:

MESKO

New member
Üye
#3
Merhabalar;
Örnek olarak şu kodları deneyiniz.
A sütununda olan isimleri B sütununa yazar.
Kod:
Sub kırp_formulu()
For x = 2 To Cells(Rows.Count, "A").End(3).Row
Cells(x, "B") = Application.WorksheetFunction.Trim(Cells(x, "A"))
Next x
End Sub
Sayın Ahmet Rasim Bey;
Çok teşekkür ederim.
Uygulamama adapte edeceğim.
 

MESKO

New member
Üye
#5
Merhabalar;
Rica ederim.
Saygılarımla, iyi çalışmalar.
Sayın Ahmet Rasim Bey;

Verdiğiniz kodu ADO ile kapalı dosyadan bilgileri çektikten sonra çalıştırdığımda doğru sonuç veriyor.

Fakat; Cells(i, 6) = Trim(rs("İSİM").Value) satırı ADO döngüsü içerisinde doğru sonuç vermiyor.

:unsure:
Saygılarımla.
 

AhmetRasim

Destek Ekibi
Destek Ekibi
#6
Merhabalar;
Kullandığınız kodları içeren ve çalışma dosyanıza uygun Örnek dosyaları ekler misiniz? İlk fırsatta bakmaya çalışırım, ya da arkadaşlar daha hızlı çözüm sunarlar. 😊
 

MESKO

New member
Üye
#7
Merhabalar;
Kullandığınız kodları içeren ve çalışma dosyanıza uygun Örnek dosyaları ekler misiniz? İlk fırsatta bakmaya çalışırım, ya da arkadaşlar daha hızlı çözüm sunarlar. 😊
Merhabalar
İlgili dosya ektedir.
F sütununda ADO döngüsü içerisinde trim çalışmıyor.

Saygılar.
İyi Çalışmalar.
 

Ekli dosyalar

AhmetRasim

Destek Ekibi
Destek Ekibi
#8
Merhabalar;
ADO ile kayıt aldığında denedim, bazı örnekleri de inceledim ama dediğiniz gibi olmadı.
Kırpma işlemi için ayrı bir döngü kurunca oluyor. İşlemin sonunda ya da satırlara kayıt alırken.

Örnek olarak, satırlara kayıt aldıkça kırpma işlemini yapması için;
For i = 2 To Cells(Rows.Count, 3).End(xlUp).Row satırından sonra For x = 1 To Cells(Rows.Count, "F").End(3).Row satrını;

Next i satırından öncede
Cells(x, "F") = Application.WorksheetFunction.Trim(Cells(x, "F"))
Next x
satırlarını ekleyiniz.

Her satıra kayıt aldığında işlem yapacağı için biraz zaman alabilir. Bu işlemin zaman almaması için döngü kayıtlardan sonra çalıştırılmalı.

ADO ile kayıt sırasındaki işlemde yardımcı olamadım kusura bakmayın. Konuya hakim arkadaşlar yardımcı olduğunda, sizin aracılığınız ile bende öğrenmiş olacağım.:)

Saygılarımla, iyi çalışmalar.
 

MESKO

New member
Üye
#9
Merhabalar;
ADO ile kayıt aldığında denedim, bazı örnekleri de inceledim ama dediğiniz gibi olmadı.
Kırpma işlemi için ayrı bir döngü kurunca oluyor. İşlemin sonunda ya da satırlara kayıt alırken.

Örnek olarak, satırlara kayıt aldıkça kırpma işlemini yapması için;
For i = 2 To Cells(Rows.Count, 3).End(xlUp).Row satırından sonra For x = 1 To Cells(Rows.Count, "F").End(3).Row satrını;

Next i satırından öncede
Cells(x, "F") = Application.WorksheetFunction.Trim(Cells(x, "F"))
Next x
satırlarını ekleyiniz.

Her satıra kayıt aldığında işlem yapacağı için biraz zaman alabilir. Bu işlemin zaman almaması için döngü kayıtlardan sonra çalıştırılmalı.

ADO ile kayıt sırasındaki işlemde yardımcı olamadım kusura bakmayın. Konuya hakim arkadaşlar yardımcı olduğunda, sizin aracılığınız ile bende öğrenmiş olacağım.:)

Saygılarımla, iyi çalışmalar.
Emeğinize , ilginize çok teşekkür ederim.
Biz daha yeniyiz sizlerden öğreneceğimiz çok şey var.

Saygılar
İyi çalışmalar.
 
Üst