Çözüldü 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:

Görüntülemek için giriş yapmalısınız.
(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ş yapmalısınız.
(3 satır)

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

VBA:

Görüntülemek için giriş yapmalısınız.
(5 satır)

VBA:

Görüntülemek için giriş yapmalısınız.
(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:

Görüntülemek için giriş yapmalısınız. (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:

Görüntülemek için giriş yapmalısınız.
(1 satır)

bzace · 30 Nis 2019

Merhabalar,
Alternatif olarak deneyebilir misiniz?

VBA:

Görüntülemek için giriş yapmalısınız.
(6 satır)

bzace · 30 Nis 2019

Formül ile alternatif olsun.

Kod:

Görüntülemek için giriş yapmalısınız.
(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.

Y	Çözüldü Ad ve Soyadları Büyük Harf Yapma YasarPiskin 12 Eki 2023 Excel Makro Soruları
Y	Çözüldü Adları Küçük Soyadları Büyük Yazmak zompcu80 5 Ocak 2022 Excel Makro Soruları
Y	Çözüldü Cari Hesap Adlarını Sıralaması zompcu80 2 Nis 2021 Excel Makro Soruları
S	Çözüldü Ay Adlarına Göre Tarih Kriterli Veri Listeleme Feyzullah 19 Tem 2020 Excel Makro Soruları

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

Gizliliğinize önem veriyoruz,