e" sutunundaki değere göre yeni liste

[ramazan kuyumcu]

Arkadaşlar

a-b-c-d-e sutunlarından oluşan uzun bir listede "e" sutunundaki değere göre diğer sayfalarda yeni listeler oluşturmak istiyorum ancak mesai bitecek ben daha işin içinden çıkamadım. çok özür dileyerek ACİL YARDIMINIZA ihtiyacım var

Not : "e" sutununda üç ayrı değer var bu değerler "1" "2" ve "boş hücre" yani üç yeni liste oluşturulucak ilki boş olanlar ikincisi 1 üçüncü liste 2 değerlerine göre

Şimdiden çok teşekkürler.

DOYA EKTEDİR.

 

[N.Ziya Hiçdurmaz]

yanıt

Sub listeyap()
Dim sat, s, ss, sss As Long
Sayfa2.[a3:e10000].Clear
Sayfa3.[a3:e10000].Clear
Sayfa4.[a3:e10000].Clear
s = 3: ss = 3: sss = 3
    For sat = 3 To Sayfa1.Cells(65536, "a").End(xlUp).Row
        If Sayfa1.Cells(sat, "e") = 0 Then
            Range(Sayfa1.Cells(sat, "a"), Sayfa1.Cells(sat, "e")).Copy Sayfa2.Cells(s, "a")
            s = s + 1
        End If
        If Sayfa1.Cells(sat, "e") = 1 Then
            Range(Sayfa1.Cells(sat, "a"), Sayfa1.Cells(sat, "e")).Copy Sayfa3.Cells(ss, "a")
            ss = ss + 1
        End If
        If Sayfa1.Cells(sat, "e") = 2 Then
            Range(Sayfa1.Cells(sat, "a"), Sayfa1.Cells(sat, "e")).Copy Sayfa4.Cells(sss, "a")
            sss = sss + 1
        End If
        Next
End Sub

 

[ramazan kuyumcu]

Hacam çok teşekkürlar ancak;
elimdeki listeyi sizin eklediğiniz sayfaya kopyaladım ancak 0-1-2 sayfaları boş görünüyor. yani sayfa birdeki listeye veri girildiğinde diğer sayfalardaki listelere eklenmiyor.

 

[cegg1970]

Selam,

Acil Yardım!!!

Veri doğrulama > Liste ile oluşturulan açılan hücrede, değerleri alındığı hücreler aralığındaki boş hücreler nasıl yoksayılarak bu listede görülmemesi sağlanır.

Lütfen Yardım.


Ayrıca e-mail atarsanız sevinirim.
caneresin@hotmail.com