listedeki bazı verilerin ilgili sayfalara aktarılması

[velostar]

Öncelikle iyi günler diliyorum,

forumda aradım, veri aktarımı ile ilgili örnekler buldum ancak kendi çalışmama uyarlayamadım. benim yapmak istediğim tüm satırdan ziyade liste sayfasındaki verilerden c sütununda yer alanlarını ilgili sayfanın d sütunun en son dolu hücresinin bir altındaki boş hücresine yazdırmak.

liste sayfasında da açıklama bulunmakta.

şimdiden teşekkürler.

 

[uzmanamele]

merhaba

bu kod işinizi görür mü?

Sub aktar()
Set s1 = Sheets("Liste")
For i = 2 To Range("a65536").End(3).Row
sayfa_adi = Cells(i, 1).Text
ss = Sheets(sayfa_adi).Range("d65536").End(3).Row
Sheets(sayfa_adi).Cells(ss + 1, "d") = s1.Cells(i, "c")
Sheets(sayfa_adi).Cells(ss + 1, "e") = Now
Next
End Sub

 

[velostar]

sayın uzmanamele,

ilginiz için çok teşekkür ederim. gayet net ve güzel iş gördü. sayenizde izin takip dosyamı tamamlamış oldum.

faydalanmak isteyen olursa diye aşağı ekliyorum dosyayı.

dosya içerisinde :
- sayfaların belli hücrelerinden birinci sayfaya liste oluşturan kod
- liste sayfasından sayfalara bilgi aktaran kod (yukarıda sayın uzmanamlenin yazdığı kod)
- comboboxtan seçilen sayfaya götüren, comboboxtan seçilen sayfayı silen kodlar
- userform üzerinden yeni sayfa açıp isimlendiren kod
- sayfaları alfabetik sıralayan kod
- spreadsheet ile veri süzüp sayfaya rapor oluşturmaya ilişkin bir uygulama mevcut.

ayrıca çalıştığım yer dolayısıyla, izin süresi pazar hariç hesaplanmakta ve hakediş ilk beş yıl için 22 sonraki yıllar için 32 gün olarak hesaplanmaktadır. d2 hücresinde buna ilişkin formül mevcuttur.

yeni personel için personel ekle düğmesi ile personel izin durumu doğrudan takip edilmeye başlanabilir ancak eski personel için d3 hücresine elle değer girmek gerekmektedir. bunun için de formdaki excel tuşu ile excel uygulamasına geçebilirsiniz.

umarım faydalanan arkadaşlar olur. iyi ramazanlar.