Hücreleri Virgül ile Birleştirip Yazdırmak

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

ekrmy

Kullanıcı
Katılım
5 Ağu 2021
Mesajlar
138
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.
 
Pdf leri tek tek ayırma yapılırmı
Doğum Günlerini Koşula Göre Hatırlatma

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.
VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(23 satır)
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)

VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(1 satır)
 
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)

VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(1 satır)
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
Ömer BARAN' Alıntı:
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.
Genişletmek için tıklayın ...
Belirttiğiniz gibi düzelttiğimde hata almadım. Teşekkür ederim Ömer Bey emeğinize sağlık.
 
Oyla 0 Olumsuz oyla
Yanıt için giriş yapmanız veya üye olmanız gerekir.
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt