Sütundaki dolu hücreleri başka sayfaya listelemek

[mkaraoglu25]

Merhaba arkadaşlar resimde görmüş olduğunuz üzere A sütunundaki dolu hücreleri başka bir sayfada yer alan sütuna sırasıyla listelemek istiyorum. Yalnızca dolu olan hücreler lazım. Şimdiden teşekkürler.

Üyemizin talebi üzerine görseller kaldırılmıştır.

 

[YUSUF44]

Cepten baktığımdan şu anda tam çözümü veremem ancak ön bilgi olarak şunu hatırlatmak isterim :

Asıl listenizde hücre birleştirme yapmamışsınız, tek sütundan oluşuyor. Ancak diğer tablonuzda Cinsi sütunu 4 hücrenin birleşiminden oluşuyor. Zorunlu değilse o birleştirmeyi iptal edip asıl listeniz gibi tek hücreye dönüştürmenizi öneririm.

 

[mkaraoglu25]

Bu bir evrak olacağı için ve birleştirmek zorunda olduğum için tek hücreye indirgeyemiyorum.

 

[YUSUF44]

Siz bilirsiniz tabi ki ama bir evrağın excelde kaç sütun olduğunun önemli olduğunu hiç sanmıyorum. Anladığım ve gördüğüm kadarıyla birleştirilen tüm sütunların aynı genişlikte olması nedeniyle bunun zorunlu bir düzenleme olmadığını düşünüyorum.

 

[mkaraoglu25]

Yok Yusuf bey bu tablo 7 sayfa birleştirmeler diğer sayfalar için .

 

[mkaraoglu25]

Güncel

 

[YUSUF44]

Aşağıdaki makroyu deneyin. Cepten baktığımdan ve örnek dosya olmadığından deneyemedim:

Sub aktar()
Set s1=Sheets("Hazırlama Sayfası")
Set s2 =Sheets("Tutanak")

son=s1.Cells(Rows.Count, "A").End(3).Row
sat =99
For i=4 to son
if s1.Cells(i,"A") <>"" Then
s2.Cells(sat,"A")=s1.Cells(i,"A")
sat=sat+1
End if
Next
End sub

 

[mkaraoglu25]

Maalesef olmadı Yusuf bey. Ya da ben yapamadım. Örnek dosya paylaşıyorum. Yardımcı olursanız minnettar olurum.

Üyemizin talebi üzerine dosya kaldırılmıştır.

 

[YUSUF44]

Sizin veriler Hazırlama sayfası değil, agfilter sayfasındaymış, ekran görüntüsünden fark edemedim. Sayfa adını düzeltince makro çalışıyor:

Sub aktar()
Set s1 = Sheets("agfilter")
Set s2 = Sheets("Tutanak")

son = s1.Cells(Rows.Count, "A").End(3).Row
sat = 99
For i = 4 To son
    If s1.Cells(i, "A") <> "" Then
        s2.Cells(sat, "A") = s1.Cells(i, "A")
        sat = sat + 1
    End If
Next
End Sub

Bir de aklınızda bulunsun, verilen çözüm dosyanızda olmadı ya da yapamadıysanız hatanın nerede olduğunu anlayabilmemiz için dosyayı çözümün uygulandığı (hatalı) haliyle paylaşmanızı tavsiye ederim.