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

Kullanıcı
Katılım
28 Tem 2022
Mesajlar
28
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: 
İndirmek için giriş yapmanız gerekmektedir.
(12 satır)
 
Userform kullanarak çizelgeye veri ekleme
Excelde makroyla otomatik mail gönderme

Ekli dosyalar

Tarihe göre sırala Oylamaya göre sırala
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: 
İndirmek 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: 
İndirmek 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

Oyla 0 Olumsuz oyla
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: 
İndirmek için giriş yapmanız gerekmektedir.
(19 satır)
 
Oyla 0 Olumsuz oyla
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
 
Oyla 0 Olumsuz oyla
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt