M

Çözüldü Makro ile birleştirme ve veri alma

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

muyat

Normal Üye
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Merhabalar.
isimler isminde bir dosya ekledim.
Dosyada "kisiler"isimli sayfada 07,P7 VE Q7 hücrelerinde kişilerin ad soyadları ve tcleri yazılı.
İsimlerin sayısı değişken fakat her zaman 7.satırdan başlayacak..
İstedigim şey şu:
Bu isimleri 2.sayfadaki f9 hücresine aktarırken aşagıda şekilde aktarılsın nistiyorum:
ALİ YILMAZ(12345678901), AHMET KORKMAZ(23456789012), MEHMET ÇİÇEK(34567890123), SERKAN ÖZDEMİR (45678901234)
Aktarırken tabi virgülden sonra boşluk da olcak ve ve hücreye sığması için de metni otomatik kaydıracak.
Başlangıç olarak aşagıdaki kodlardan sonra devamını getiremedim.Yardımcı olur musunuz?

Kod:
Görüntülemek için giriş yapmanız gerekmektedir.
(12 satır)
 

Ekli dosyalar

Selamlar,
İsteğinizin karşılığı olamayacaktır. Şimdiden, isteğinize alternatif bir çözüm olarak,
Resimden de görüleceği üzere,
Kullanıcı Tanımlı Fonksiyon (KTF) ile ve de office 2019 ve 365 için geçerli olan METİNBİRLEŞTİR işlevi ile çözüm örneği vermek isterim.

1614128289441.webp


KTF, mevcut KTF kodlarının sizin durumunuza göre uyarlanması ile yapıldı.
İsimler kolonu baz alındı ve isimlere soy isimlerle TC No birleşimleri yapıldı.

Module deki KTF Kodu

Kod:
Görüntülemek için giriş yapmanız gerekmektedir.
(9 satır)

KTF kullanımı ise, isimlerin olduğu kolon ve sembol (isteğinize göre virgül ve boşluk idi) kullanımı ile

Kod:
Görüntülemek için giriş yapmanız gerekmektedir.
(1 satır)

şeklindedir.
Dosya ektedir.... İncelersiniz....

Mesajınızda belirttiğiniz kodlar ise benim makro bilgimi aşmakta. Umuyorum ki, bu konuda "Üstat" lar destek verecektir.
 

Ekli dosyalar

Moderatörün son düzenlenenleri:
Merhaba,
Sn. @52779 hocam çözüm vermiş. Alternatif olarak yazdığının kodların devamı olacak nitelikte olacak şekilde kodlarınız aşağıdadır.

CSS:
Görüntülemek için giriş yapmanız gerekmektedir.
(19 satır)
 
Feyzullah Hocam çok teşekkür ederim.
Yalnız şunu sormak istiyorum
birlestir = IIf(birlestir = "", birles, birlestir & ", " & birles)

Burda IIf anlamı nedir.?
If ,else then karar yapılarını inceledigimde böyle bir kod göremedim...Bu kod aynı işi yapacak başka bir kodun kısa yazılmışı ise uzun halini de yazar mısınız
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst