Veriye Göre Sayfa Oluşturma,

[Utekiner]

Merhabalar,

A sütunu ile N sütunları arasında verilerim bulunmaktadır. Sizden ricam N sütunundaki verilerim Evet ve Hayır olarak satırlarda yazılı.
Toplam satır sayım 5.000 adet olup N sütununda Evet yazan satırları yeni bir sayfaya tüm satır bilgileri ile aktarmasını, Hayır olanları da farklı bir sayfaya tüm satır bilgileri ile aktarmaya çalışıyorum. Ancak başaramadım. Konu hakkında kod yardımında bulunabilir misiniz. Teşekkür ederim.

https://s2.dosya.tc/server10/dxzy17/Aktar.xlsx.html

 

[kulomer46]

Merhaba

Programınız hazır.

Selamlar...

https://s2.dosya.tc/server10/kjvcvd/a_Sayfayi_N_sutununa_gore_gruplayarak_Cogalt_Hazir.xlsm.html

 

[Utekiner]

Sn. @kulomer46 Bey ilginiz ve hazırlamış olduğunuz dosya için teşekkür ederim. Saygılar.

 

[kulomer46]

Sn. @kulomer46 Bey ilginiz ve hazırlamış olduğunuz dosya için teşekkür ederim. Saygılar.

: ) Selamlar...

 

[Ziynettin]

Alternatif

Sub dagıt()
a = Range("A2:N" & Cells(Rows.Count, "N").End(3).Row).Value
sat = UBound(a)
sut = UBound(a, 2)
ReDim b(1 To sat, 1 To sut)
    For Each s In Array("Evet", "Hayır")
        For i = 1 To sat
            If a(i, sut) = s Then
                say = say + 1
                For j = 1 To sut
                    b(say, j) = a(i, j)
                Next j
            End If
        Next i
        Sheets(s).Range("A2:N" & Sheets(s).Cells(Rows.Count, "N").End(3).Row) = ""
        Sheets(s).[A2].Resize(say, sut) = b
        say = 0
    Next s
End Sub

 

[Utekiner]

Sn. @Ziynettin Bey alternatif kodlar için teşekkür ederim. Verilerin bulunduğu sayfadaki başlıkların diğer sayfalarda olmadığını var sayarsak kodun kodun çalışması ile birlikte Diğer sayfalara da başlık yazması için hangi satırlarında değişiklik yapmamız gerekir.

 

[muhsar]

Merhaba

Programınız hazır.

Selamlar...

https://s2.dosya.tc/server10/kjvcvd/a_Sayfayi_N_sutununa_gore_gruplayarak_Cogalt_Hazir.xlsm.html

sn.hocam;yapmış olduğunuz çalışmada N sütunundaki gruplama göre yapıyor,bende bu çalışmayı kendime uyarlamaya çalışıyorum,E sütunundaki gruplamaya göre yapması için kodda nereyi değiştirmem gerekiyor.N sütununu işaret eden kod bölümünü bulamadım

 

[Ziynettin]

Sn. @Ziynettin Bey alternatif kodlar için teşekkür ederim. Verilerin bulunduğu sayfadaki başlıkların diğer sayfalarda olmadığını var sayarsak kodun kodun çalışması ile birlikte Diğer sayfalara da başlık yazması için hangi satırlarında değişiklik yapmamız gerekir.

Sub dagıt()
Sheets("sayfa1").Select
a = Range("A2:N" & Cells(Rows.Count, "N").End(3).Row).Value
sat = UBound(a)
sut = UBound(a, 2)
ReDim b(1 To sat, 1 To sut)
    For Each s In Array("Evet", "Hayır")
        For i = 1 To sat
            If a(i, sut) = s Then
                say = say + 1
                For j = 1 To sut
                    b(say, j) = a(i, j)
                Next j
            End If
        Next i
        Sheets(s).Range("A2:N" & Sheets(s).Cells(Rows.Count, "N").End(3).Row) = ""
        [A1:N1].Copy Sheets(s).[A1]
        Sheets(s).[A2].Resize(say, sut) = b
        say = 0
    Next s
End Sub

 

[muhsar]

sn.hocam;yapmış olduğunuz çalışmada N sütunundaki gruplama göre yapıyor,bende bu çalışmayı kendime uyarlamaya çalışıyorum,E sütunundaki gruplamaya göre yapması için kodda nereyi değiştirmem gerekiyor.N sütununu işaret eden kod bölümünü bulamadım

sorumun cevabını buldum.teşekkürler

 

[kulomer46]

sn.hocam;yapmış olduğunuz çalışmada N sütunundaki gruplama göre yapıyor,bende bu çalışmayı kendime uyarlamaya çalışıyorum,E sütunundaki gruplamaya göre yapması için kodda nereyi değiştirmem gerekiyor.N sütununu işaret eden kod bölümünü bulamadım

E sütununa göre işlem yapacaksak

1. Adım



2. adım

Sarı işaretli alanları ilgili sütun sırası yazılır. (E sütunu için ilgili sarı yerlere 5 yazılacak)





İşlem Tamam.

Selamlar...

 

[muhsar]

E sütununa göre işlem yapacaksak

1. Adım

Ekli dosyayı görüntüle 208976

2. adım

Sarı işaretli alanları ilgili sütun sırası yazılır. (E sütunu için ilgili sarı yerlere 5 yazılacak)


Ekli dosyayı görüntüle 208977


İşlem Tamam.

Selamlar...

teşekkür ederim,emeğinize sağlık.