Kullanıcıya Göre Kayıtları Virgülle Tek Hücrede Birleştirme

  • Konuyu başlatan Konuyu başlatan ekrmy
  • Başlangıç tarihi Başlangıç tarihi

ekrmy

Kullanıcı
Katkı: %0
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Merhabalar,

Formül ile bu ihtiyacı karşılayabiliyorum ancak makro ile daha hızlı sonuç almam gerekiyor. Ek olarak paylaştığım dosyada;
  • H hücresi boşsa
  • AH hücresinde yazan kullanıcıyı bir kez yazacak
  • A hücresinde yer alan kayıtları aralarına virgül ekleyerek tek hücrede yazacak
  • AH hücresi #YOK veya "-" varsa listeye eklenmeyecek.
Örnek dosya ekledim. Desteğiniz için teşekkürler.
 

Ekli dosyalar

Tarihe göre sırala Oylamaya göre sırala
Ömer BARAN' Alıntı:
Önceki cevabımda verdiğim kodu güncelledim.
Sayfayı yenileyerek önceki cevabımı tekrar kontrol edin.

.
Genişletmek için tıklayın ...

Merhaba Üstad,

#YOK olduğunda;

1627940748493.webp


Şu hatayı veriyor, listede #YOK sildiğimde çalışıyor Ömer Hocam.
 
Oyla 0 Olumsuz oyla
Ömer Hocam Selamlar,
Atama alanı boş olan kayıtlarıda random isimlere yazdırabiliyor. Bu hatayı tespit etmek için kurcalıyorum. Şuan bir hata almaya başladım;

1628512557201.webp

1628512522820.webp

Desteğinizi rica ederim. İyi çalışmalar.
 

Ekli dosyalar

Oyla 0 Olumsuz oyla
AhmetRasim' Alıntı:
Merhabalar Sn. @ekrmy
Sayın @Ömer BARAN Hocam şuan çevrim içi değil. Müsaadesi ile;
İlgili kodları aşağıdaki şekilde değiştiriniz.
Kod:
Bu kodu görmek için giriş yapmanız gerekmektedir (23 satır). Giriş Yap
Genişletmek için tıklayın ...
Merhaba Ahmet Bey,

İlginç bir hata alıyorum. Dosya olarak paylaştım.

makroyu olduğu gibi çalıştırdığınızda aşağıdaki hatayı alacaksınız. Fakat A sütununu Renge göre sıraladığınızda çalışıyor. Neyden kaynaklı olduğunu anlayamadım. Desteğinizi rica ederim.

1628519152893.webp

Cevap için ayrıca teşekkür ederim.
İyi çalışmalar.
 

Ekli dosyalar

Oyla 0 Olumsuz oyla
ekrmy' Alıntı:
Merhaba Ahmet Bey,

İlginç bir hata alıyorum. Dosya olarak paylaştım.

makroyu olduğu gibi çalıştırdığınızda aşağıdaki hatayı alacaksınız. Fakat A sütununu Renge göre sıraladığınızda çalışıyor. Neyden kaynaklı olduğunu anlayamadım. Desteğinizi rica ederim.

1628519152893.webp

Cevap için ayrıca teşekkür ederim.
İyi çalışmalar.
Genişletmek için tıklayın ...

Yukarıdaki dosyada atanan AH1 boşluğunu doldurduğumda çözülüyor. Ek olarak paylaştığım dosyada hata devam ediyor bu hatanın sebebini bulamadım :)
 

Ekli dosyalar

Oyla 0 Olumsuz oyla
Sanırım hataların sebebi AH sütununda boşluklardan kaynaklanıyor. ilk satırlardaki boşluğu doldurduğumda hata ortadan kalktı. Güncel olarak tespitlerimi dosyada belirtiyorum. Teşekkür ederim.
 

Ekli dosyalar

Oyla 0 Olumsuz oyla
Bence sorun H sütununda BOŞ gibi görünen hücrelerin gerçekten boş olmamasıyla ilgili.
For..... satırının hemen altına aşağıdaki satırı ekleyerek deneyin.

Ayrıca son taraftaki;
Application.... satırındaki FALSE değerini TRUE, xlCalculationManual kısmını da xlCalculationAutomatic şeklinde değiştirin 'unutulmuş anlaşılan)

Kod:
Bu kodu görmek için giriş yapmanız gerekmektedir (1 satır). Giriş Yap
 
Oyla 0 Olumsuz oyla
Ömer BARAN' Alıntı:
Bence sorun H sütununda BOŞ gibi görünen hücrelerin gerçekten boş olmamasıyla ilgili.
For..... satırının hemen altına aşağıdaki satırı ekleyerek deneyin.

Ayrıca son taraftaki;
Application.... satırındaki FALSE değerini TRUE, xlCalculationManual kısmını da xlCalculationAutomatic şeklinde değiştirin 'unutulmuş anlaşılan)

Kod:
Bu kodu görmek için giriş yapmanız gerekmektedir (1 satır). Giriş Yap
Genişletmek için tıklayın ...
Üstad cevap için teşekkür ederim. Belirttiğiniz gibi kodu güncelledim düzeldi. Fakat ekteki gibi güncelleyince hata devam ediyor.
 

Ekli dosyalar

Oyla 0 Olumsuz oyla
If Not IsEmpty(a.Cells(sat, 8)) Then GoTo atla
satırını şöyle değiştirin.
If Not IsEmpty(a.Cells(sat, 8)) Or IsEmpty(a.Cells(sat, 34)) Then GoTo atla

Aslında kodlar gereksiz uzadı gibi geliyor bana sıfırdan düşünmek lazım belki de.
 
Oyla 1 Olumsuz oyla
Yanıt için giriş yapmanız veya üye olmanız gerekir.

Benzer konular Benzer kaynaklar Benzer dosyalar

Geri
Üst