Sitemize Hoşgeldiniz

Türkiye'nin en geniş özeliklere sahip forumu olan ExcelDestek.Com üzerinde soru sorabilmek, daha önceki sorulan sorulara, açılan konulara cevap yazabilmek, puan kazanabilmek, kazandığınız puanlar ile dosya indirebilmek ve çok daha fazla özellikten yararlanabilmek için sitemize üye olunuz.
Hemen Üye Ol ya da Giriş Yap

Sorun Cevaplayalım

Excel'e dair sorularınızı sorun, cevaplayalım.

Çözümlenmiş Sorular

Kullanıcılarımızın sorularını ve sunduğumuz çözümleri inceleyin.

Destek Ekibimiz Sizlerle

Ücretli destek ve özel hizmet talep edebilirsiniz.

Makrolar Çözüldü Ad Soyad Kırpma

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

MESKO

Yeni Üye
Kullanıcı
Katılım
2 Eki 2018
Mesajlar
32
Excel Versiyonu, Dili
Excel 2003 TR

Reputation:

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 Takımı
Destek Ekibi
SMS Onaylı
Katılım
15 Eki 2018
Mesajlar
70
Excel Versiyonu, Dili
Excel 2019 TR

Reputation:

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.
 
Son düzenleme:

MESKO

Yeni Üye
Kullanıcı
Katılım
2 Eki 2018
Mesajlar
32
Excel Versiyonu, Dili
Excel 2003 TR

Reputation:

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

Destek Takımı
Destek Ekibi
SMS Onaylı
Katılım
15 Eki 2018
Mesajlar
70
Excel Versiyonu, Dili
Excel 2019 TR

Reputation:

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

MESKO

Yeni Üye
Kullanıcı
Katılım
2 Eki 2018
Mesajlar
32
Excel Versiyonu, Dili
Excel 2003 TR

Reputation:

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 Takımı
Destek Ekibi
SMS Onaylı
Katılım
15 Eki 2018
Mesajlar
70
Excel Versiyonu, Dili
Excel 2019 TR

Reputation:

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

Yeni Üye
Kullanıcı
Katılım
2 Eki 2018
Mesajlar
32
Excel Versiyonu, Dili
Excel 2003 TR

Reputation:

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 Takımı
Destek Ekibi
SMS Onaylı
Katılım
15 Eki 2018
Mesajlar
70
Excel Versiyonu, Dili
Excel 2019 TR

Reputation:

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

Yeni Üye
Kullanıcı
Katılım
2 Eki 2018
Mesajlar
32
Excel Versiyonu, Dili
Excel 2003 TR

Reputation:

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

Destek Takımı
Destek Ekibi
SMS Onaylı
Katılım
15 Eki 2018
Mesajlar
70
Excel Versiyonu, Dili
Excel 2019 TR

Reputation:

Merhabalar;
Rica ederim, bende öğrenme aşamasındayım. :)
Hep birlikte öğrenmeye devam. :)(y)
Saygılarımla, iyi çalışmalar.
 

Ömer BARAN

Kurucu
Yönetici
Kurucu
SMS Onaylı
Katılım
11 Nis 2019
Mesajlar
392
Excel Versiyonu, Dili
2013 (32) TR

Reputation:

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

Yeni Üye
Kullanıcı
Katılım
30 Nis 2019
Mesajlar
9
Excel Versiyonu, Dili
Excel 2019 TR

Reputation:

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.
 

PriveT

İlyas
Destek Ekibi
SMS Onaylı
Katılım
26 Nis 2019
Mesajlar
239
Yaş
41
Web Sitesi
www.candiyet.net
Excel Versiyonu, Dili
Excel 2016 TR

Reputation:

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?
 

MESKO

Yeni Üye
Kullanıcı
Katılım
2 Eki 2018
Mesajlar
32
Excel Versiyonu, Dili
Excel 2003 TR

Reputation:

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

Hayırlı Ramazanlar.
Saygılarımla.
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst