Listeyi Sayfalara Aktar

[met07]

Selam Excel ailesi. Forumdan aldığım kodları kullanarak verileri sayfalara aktarmaya çalıştım. Ama bilmeyince tıkandım.
1-Listeye sonradan ek yapıp sayfaya aktar deyince hata veriyor. Anlayamadım. Mükerrer kayıt olmadan eklenen yada değişen verileri gücelleyebilirmiyiz.
2-Ana listeye ve sayfalara sıra numarası ekleyebilirmiyiz.
Mümkünse yardımlarınızı bekliyorum. İyi çalışmalar.

 

[met07]

Merhabalar;

Arkadaşlar affınıza sığınarak tekrar yazıyorum. O kadar uğraşıp aramama rağmen bi çıkış bulamadım. Yardımlarınızı istirham ediyorum. Bilenle bilmeyen bir olmuyor. Ümitle beklemeye devam edeceğim... Şimdiden teşekkürler...

 

[met07]

Arkadaşlar formu tekrar taradım ama yine muvaffak olamadım. Bulduğum kodlar Listeyi sayfalara dönüştürüyor. Ama kayıtlarda değişiklik yapınca hata veriyor. Sıra No başa ekleyince hepten karışıyor. Liütfen yardım...

 

[Levent Menteşoğlu]

İkinci sorunuzu biraz daha açarmısınız.

 

[met07]

Üstat tekrar ekledim. Sanırsam daha açık oldu. İlginize teşekkürler.

 

[Levent Menteşoğlu]

Aşağıdaki kodu denermisiniz.

Sub ekle()
Application.ScreenUpdating = False
Set s1 = Sheets("veri")
For a = 3 + s1.[z1] To s1.[b65536].End(3).Row
If WorksheetFunction.CountIf(s1.[z:z], s1.Cells(a, "b")) > 0 Then GoTo 10
sat1 = s1.[z65536].End(3).Row + 1
s1.Cells(sat1, "z") = s1.Cells(a, "b")
Sheets.Add.Move After:=Sheets(Sheets.Count)
Set s2 = Sheets(Sheets.Count)
s2.Name = s1.Cells(a, "b")
s1.[a:h].Copy s2.[a:h]
s2.Rows("3:65536").ClearContents
10 Set s2 = Sheets(s1.Cells(a, "b").Value)
sat = s2.[a65536].End(3).Row + 1
s2.Cells(sat, "a") = sat - 2
s2.Range("b" & sat & ":h" & sat) = s1.Range("b" & a & ":h" & a).Value
Next
s1.[z1] = s1.[b65536].End(3).Row - 2
MsgBox "Aktarma işlemi tamamlanmıştır."
End Sub

 

[met07]

Ellerin dert görmesin bu kodlar tamam. Ama bi ayrıntı var.
Mesela 2. satırdaki Veliyi Ahmet olarak değiştirince bu değişikliği yansıtmıyor. Bunu Velinin sayfasından silip Ahmetin sayfasına aktarabilirmiyiz.

 

[Merhum İdris SERDAR]

Selam Excel ailesi. Forumdan aldığım kodları kullanarak verileri sayfalara aktarmaya çalıştım. Ama bilmeyince tıkandım.
1-Listeye sonradan ek yapıp sayfaya aktar deyince hata veriyor. Anlayamadım. Mükerrer kayıt olmadan eklenen yada değişen verileri gücelleyebilirmiyiz.
2-Ana listeye ve sayfalara sıra numarası ekleyebilirmiyiz.
Mümkünse yardımlarınızı bekliyorum. İyi çalışmalar.

http://www.excel.web.tr/showthread.php?t=20271

Buradaki dosyaları inceleyin.

 

[AS3434]

Sn. yurttaş

Verdiğiniz link

Geçersiz Dosya Eki belirttiniz.

diye uyarı mesajı veriyor.

 

[Merhum İdris SERDAR]

Sn. yurttaş

Verdiğiniz link

Geçersiz Dosya Eki belirttiniz.

diye uyarı mesajı veriyor.

Yukarıda linki düzelttim. Teşekkürler.

 

[Levent Menteşoğlu]

Ellerin dert görmesin bu kodlar tamam. Ama bi ayrıntı var.
Mesela 2. satırdaki Veliyi Ahmet olarak değiştirince bu değişikliği yansıtmıyor. Bunu Velinin sayfasından silip Ahmetin sayfasına aktarabilirmiyiz.

Yukarıda vermiş olduğum kod, aslında kullanım amacınıza hiç uygun değil, bu kod örneğin bir seferliğine listedeki isimlere ait bir sayfa oluşturmak için kullanılabilir. Listedeki bir değişikliği bu kod aktarmak sözkonusu değildir, bunu yaptırmanın en pratik yolu tüm sayfaları silip, kodu baştan çalıştırmaktır ki buda programcılık mantığına hiç uymaz.

Size veriyi kaydeden,silen,değişiklik yapan bir program yapısı gerekir. Bununla ilgili örnek uygulamaların bulunduğu bir başlık zaten forumumuzda mevcuttur bu başlığı incelemenizi öneririm.

Veri Yönetimi Uygulamaları

 

[met07]

hepinize teşekkür ederim. dosyaları inceleyip kendime uyarlamaya çalışacağım. iyi çalışmalar dilerim. Saygılar...