Adları ve Soyadları 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.

VBA:

İndirmek 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:

İndirmek için giriş yapmanız gerekmektedir.
(3 satır)

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

VBA:

İndirmek için giriş yapmanız gerekmektedir.
(5 satır)

VBA:

İndirmek için giriş yapmanız gerekmektedir.
(5 satır)

MESKO · 9 Kas 2018

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

Kod:

İndirmek için giriş yapmanız gerekmektedir. (5 satır)

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.

VBA:

İndirmek için giriş yapmanız gerekmektedir.
(1 satır)

bzace · 30 Nis 2019

Merhabalar,
Alternatif olarak deneyebilir misiniz?

VBA:

İndirmek için giriş yapmanız gerekmektedir.
(6 satır)

bzace · 30 Nis 2019

Formül ile alternatif olsun.

Kod:

İndirmek için giriş yapmanız gerekmektedir.
(1 satır)

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

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

yuksekeren · 3 May 2019

=YERİNEKOY(F2;" ";"")

İnceler misiniz?

MESKO · 5 Şub 2024

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

Saygılarımla.

	Adları Küçük Soyadları Büyük Yazmak YasarPiskin 5 Ocak 2022 Makro Soruları
	Ad ve Soyadları Büyük Harf Yapma YasarPiskin 12 Eki 2023 Makro Soruları
	Cari Hesap Adlarını Sıralaması YasarPiskin 2 Nis 2021 Makro Soruları
	Ay Adlarına Göre Tarih Kriterli Veri Listeleme Feyzullah 11 Mar 2025 Makro Soruları
	Ay Adlarına Göre Sayfa Ekleme cakarem 15 Haz 2024 Makro Soruları