M

Çözüldü Adları ve Soyadları Kırpma

  • Konuyu başlatan Konuyu başlatan MESKO
  • Başlangıç tarihi Başlangıç tarihi
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

MESKO

Normal Üye
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
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.
 
Çözüm
Merhabalar;
Örnek olarak şu kodları deneyiniz.
A sütununda olan isimleri B sütununa yazar.
VBA:
Görüntülemek için giriş yapmanız gerekmektedir.
(5 satır)

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.
VBA:
Görüntülemek için giriş yapmanız gerekmektedir.
(3 satır)

Sayfa aktif olduğunda A sütunundaki isimlerin fazla boşluklarını siler;
VBA:
Görüntülemek için giriş yapmanız gerekmektedir.
(3 satır)
Merhabalar;
Örnek olarak şu kodları deneyiniz.
A sütununda olan isimleri B sütununa yazar.
VBA:
Görüntülemek için giriş yapmanız gerekmektedir.
(5 satır)

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.
VBA:
Görüntülemek için giriş yapmanız gerekmektedir.
(3 satır)

Sayfa aktif olduğunda A sütunundaki isimlerin fazla boşluklarını siler;
VBA:
Görüntülemek için giriş yapmanız gerekmektedir.
(5 satır)

VBA:
Görüntülemek için giriş yapmanız gerekmektedir.
(5 satır)
 
Çözüm
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;
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

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.
 
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.
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst