[ÇÖZÜLDÜ] Belirlenen sütundaki verilere göre satırların ilgili sayfalara aktarılması.

[enteresan]

Sevgili ve çok değerli excel'ci arkadaşlar. Öncelikle BERAT kandilinizi kutlar, bu gecenin hepinize hayırlara vesile olmasını temenni ederim.

EK'te gönderdiğim dosyada Userform ile oluşturduğum listeyi, yine userformdaki bir düğme yardımıyla, H sütunundaki veriler dikkate alınarak ilgili sayfalara aktarmak istiyorum. Buna dair örnekler sitede mevcut ama, benim soruma bakarsanız biraz değişik. Yani H sütununda iki ayrı değeri bir sayfaya, diğer değerleri de ayrı ayrı sayfalara aktarmak istedim.
Bu konuda yardımcı olacaklara minnettar olur, saygılar sunarım....

 

[Orion1]

Ekli dosyayaı inceleyiniz.
RAPOR tuşuna basınız o çalışır.

Sub rapor()
Dim i As Integer, j As Long, sat As Long, adr1 As String, adr2 As String, syf As String
Sheets("VERİ").Select
Application.ScreenUpdating = False
For i = 1 To Worksheets.Count
    If Sheets(i).Name <> "VERİ" Then
        Sheets(i).Range("A5:J65536").ClearContents
    End If
Next i
For j = 2 To Cells(65536, "A").End(xlUp).Row
    adr1 = Range(Cells(j, "A"), Cells(j, "J")).Address
    If Cells(j, "H").Value = "ELMA" Or Cells(j, "H").Value = "ARMUT" Then
        syf = "ELMA VE ARMUT"
        Else
        syf = Cells(j, "H").Value
    End If
    sat = Sheets(syf).Cells(65536, "A").End(xlUp).Row + 1
    adr2 = Range(Cells(sat, "A"), Cells(sat, "J")).Address
    Sheets(syf).Range(adr2).Value = Range(adr1).Value
Next j
Application.ScreenUpdating = True
MsgBox "RAPOR ÇIKARILDI..!!"
End Sub

 

[enteresan]

Sevgili orion2, çok teşekkür ederim. buraya küçük bir ilave yapabilirseniz daha çok sevinirim. ELMA veya ARMUT ise ELMA VE ARMUT sayfasına demişsiniz ya, devamına ÇİLEK ise ÇİLEK sayfasına, İNCİR ise İNCİR sayfasına şeklinde ilave yapabilir miyiz.
Saygılarımla...

 

[Seyit Tiken]

H sütunundaki verilerin yerleri sabit mi yoksa değişken midir? Örnek olarak : Elma ile igili satırlar.

 

[enteresan]

Sevgili hocam, buradaki değerler sabittir. Yani Elma ve Armut aynı kasada toplanacak, Çilek çilek kasasına, incir de incir kasasına birikecek. Önceki makroda Elma ya da armut ise Elma ve Armut sayfasına diğerlerini kendi sayfalarına şeklinde yazılmış ya, bu diğerlerini de isimlendirmek istiyorum. Yani ÇİLEK yazıyor ise ÇİLEK sayfasına, İNCİR yazıyor ise İNCİR sayfasına şeklinde makroyu değiştirmek istiyorum. Bilmem anlatabildim mi. Saygılarımla...

 

[Orion1]

Sevgili orion2, çok teşekkür ederim. buraya küçük bir ilave yapabilirseniz daha çok sevinirim. ELMA veya ARMUT ise ELMA VE ARMUT sayfasına demişsiniz ya, devamına ÇİLEK ise ÇİLEK sayfasına, İNCİR ise İNCİR sayfasına şeklinde ilave yapabilir miyiz.
Saygılarımla...

Merhaba.
Kod zaten öyle çalışıyor.
Çilek ve incir sayfalarını açın.Orada verilerin listelendiğini göreceksiniz.
Hatta bir tanede yeni bir karpuz sayfası ekleyin onada verilerin gidektir.

 

[enteresan]

Merhaba.
Kod zaten öyle çalışıyor.
Çilek ve incir sayfalarını açın.Orada verilerin listelendiğini göreceksiniz.
Hatta bir tanede yeni bir karpuz sayfası ekleyin onada verilerin gidektir.

Sevgili orion2 kardeşim.
Kodun çalıştığını biliyorum da, benim istediğim şu;Hücredeki değer ELMA ya da ARMUT ise ELMA VE ARMUT sayfasına diye yaptırdığınız yönlendirme gibi, diğer yönlendirmeleri de makronun içerisinde görmek istiyorum. Yani İNCİR olanları İNCİR sayfasına, ÇİLEK olanları ÇİLEK sayfasına, KARPUZ ve KAVUN olanları da KUBUKLULAR sayfasına gibi.....
Sizin yazdığınızda sadece 2 meyvenin sayfası belirlenmiş ve diğerlerinin ise genel olarak isimlerine ait olan sayfalara gitmesi belirtilmiş. Benim istediğim bunun biraz daha değişiği. Tabiii eğer değiştirebilirseniz. Yani o kadar da önemli değil. Sadece makronun ne şekilde değişeceğini merak ettiğim için sordum.

Saygılarımla....

 

[Orion1]

Sevgili orion2 kardeşim.
Kodun çalıştığını biliyorum da, benim istediğim şu;Hücredeki değer ELMA ya da ARMUT ise ELMA VE ARMUT sayfasına diye yaptırdığınız yönlendirme gibi, diğer yönlendirmeleri de makronun içerisinde görmek istiyorum. Yani İNCİR olanları İNCİR sayfasına, ÇİLEK olanları ÇİLEK sayfasına, KARPUZ ve KAVUN olanları da KUBUKLULAR sayfasına gibi.....
Sizin yazdığınızda sadece 2 meyvenin sayfası belirlenmiş ve diğerlerinin ise genel olarak isimlerine ait olan sayfalara gitmesi belirtilmiş. Benim istediğim bunun biraz daha değişiği. Tabiii eğer değiştirebilirseniz. Yani o kadar da önemli değil. Sadece makronun ne şekilde değişeceğini merak ettiğim için sordum.

Saygılarımla....

Benim yazdığım kodlarda yeni meyve sayfaları oluşturulduğunda kodlar otomatik olarak o sayfaları tanıyacaktır.Sizin dediğiniz şekilde yaparsam her yeni sayfa ve meyve eklendiğinde makroyu o şekline göre yeniden düzenlemek gerekecektir.O nedenle sizin dediğiniz şekilde kodları düzenlemeyi pratik görmüyorum.

 

[enteresan]

Benim yazdığım kodlarda yeni meyve sayfaları oluşturulduğunda kodlar otomatik olarak o sayfaları tanıyacaktır.Sizin dediğiniz şekilde yaparsam her yeni sayfa ve meyve eklendiğinde makroyu o şekline göre yeniden düzenlemek gerekecektir.O nedenle sizin dediğiniz şekilde kodları düzenlemeyi pratik görmüyorum.

Teşekkür eder, saygılar sunarım...

 

[Orion1]

Teşekkür eder, saygılar sunarım...

Rica ederim.
Saygılar benden.