VBA ✅ Ad Soyad Kırpma

MESKO · 9 Kas 2018

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 · 9 Kas 2018

Merhabalar;
Örnek olarak şu kodları deneyiniz.
A sütununda olan isimleri B sütununa yazar.

Kod:

Değerli ziyaretçimiz lütfen, içeriği görüntüleyebilmek için Giriş Yap veya Kayıt Ol anlayışınız için teşekkürler.

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:

Değerli ziyaretçimiz lütfen, içeriği görüntüleyebilmek için Giriş Yap veya Kayıt Ol anlayışınız için teşekkürler.

Sayfa aktif olduğunda A sütunundaki isimlerin fazla boşluklarını siler;

Kod:

Değerli ziyaretçimiz lütfen, içeriği görüntüleyebilmek için Giriş Yap veya Kayıt Ol anlayışınız için teşekkürler.

Kod:

Değerli ziyaretçimiz lütfen, içeriği görüntüleyebilmek için Giriş Yap veya Kayıt Ol anlayışınız için teşekkürler.

MESKO · 9 Kas 2018

AhmetRasim' Alıntı:
Merhabalar;
Örnek olarak şu kodları deneyiniz.
A sütununda olan isimleri B sütununa yazar.

Kod:

Değerli ziyaretçimiz lütfen, içeriği görüntüleyebilmek için Giriş Yap veya Kayıt Ol anlayışınız için teşekkürler.

Sayın Ahmet Rasim Bey;
Çok teşekkür ederim.
Uygulamama adapte edeceğim.

AhmetRasim · 9 Kas 2018

Merhabalar;
Rica ederim.
Saygılarımla, iyi çalışmalar.

MESKO · 10 Kas 2018

AhmetRasim' Alıntı:
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.

Saygılarımla.

AhmetRasim · 10 Kas 2018

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 · 11 Kas 2018

AhmetRasim' Alıntı:
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.

AhmetRasim · 12 Kas 2018

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 · 12 Kas 2018

AhmetRasim' Alıntı:
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.

AhmetRasim · 12 Kas 2018

Merhabalar;
Rica ederim, bende öğrenme aşamasındayım.

Hep birlikte öğrenmeye devam.

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

Ömer BARAN · 30 Nis 2019

Merhaba.
Alternatif olsun.
Basitçe, Ms.Excel'in CTRL+H işlemi de aynı sonucu vermez mi? Ayrıca bu işlem de zaman almaz.

Rich (BB code):

Değerli ziyaretçimiz lütfen, içeriği görüntüleyebilmek için Giriş Yap veya Kayıt Ol anlayışınız için teşekkürler.

bzace · 30 Nis 2019

Merhabalar,
Alternatif olarak deneyebilir misiniz?

Kod:

Değerli ziyaretçimiz lütfen, içeriği görüntüleyebilmek için Giriş Yap veya Kayıt Ol anlayışınız için teşekkürler.

bzace · 30 Nis 2019

Formül ile alternatif olsun.

Kod:

Değerli ziyaretçimiz lütfen, içeriği görüntüleyebilmek için Giriş Yap veya Kayıt Ol anlayışınız için teşekkürler.

PriveT · 30 Nis 2019

Merhaba,
Değiştirden (ctrl+H) aranan değere 2 boşluk, yeni değere 1 boşluk koyup hepsini değiştir demeyi denediniz mi?

PriveT · 30 Nis 2019

PriveT' Alıntı:
Merhaba,
Değiştirden (ctrl+H) aranan değere 2 boşluk, yeni değere 1 boşluk koyup hepsini değiştir demeyi denediniz mi?

@Ömer BARAN Bey de aynı öneride bulunmuş. Pardon görmemişim.

eren yüksek · 3 May 2019

MESKO · 11 May 2019

Emeği geçen herkese teşekkür ederim.
Yeni cevapları arşivime ekleyeceğim.

Hayırlı Ramazanlar.
Saygılarımla.

Sitemize Hoşgeldiniz

Sorun Cevaplayalım

Çözümlenmiş Sorular

Destek Ekibimiz Sizlerle

Sosyal Medyada Bizi Takip Edin

VBA ✅ Ad Soyad Kırpma

Yeni Üye

Forum Yönetimi

Yeni Üye

Forum Yönetimi

Yeni Üye

Forum Yönetimi

Yeni Üye

Ekli dosyalar

Forum Yönetimi

Yeni Üye

Forum Yönetimi

Kurucu

Yeni Üye

Yeni Üye

İlyas

İlyas

Yeni Üye

Yeni Üye

İlginizi Çekecek Benzer Konular

Sosyal Medyada Bizi Takip Edin

Hakkımızda

Neler Yeni

Çevrimiçi İstatistikleri