sayfalar arasından bilgi seçip sayfaya kopyala

[gelen gecer mdmx]

merhabalar ekteki dosyada her sayfada o insana ait haftalık program var. her kişi kendi programını dolduracak ve kurumun genel sayfasında belli saatte ve günde eğer bir kişi kendi sayfasından randevu eklediyse genel sayfada gözüksün istiyorum. Evet biraz karışık bir cümle oldu ama kısaca çalışanlar bir haftalık program dolduracak mesela ben salı günü 10.00-12.00 arasını doldurdum bunun şirketin haftalık programında salı 10.00-12.00 arasında benim adım gözüksün istiyorum.zor belki biraz ama yapabilen olursa çok sevinirim.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu isim olan sayfalarınıza uygulayıp denermisiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Son
    If Intersect(Target, [B11:H19]) Is Nothing Then Exit Sub
    If Target <> "" Then
    Sheets("genel").Range(Target.Address) = Sheets("genel").Range(Target.Address) & Chr(10) & ActiveSheet.Name & Chr(10) & Target
    End If
Son:
End Sub

 

[gelen gecer mdmx]

teşekkür ederim ama aynı anda iki kişininde programı varsa sadece birinin ismi yazıyor. aynı gün ve saatte iki kişinin de programı varsa ikisinin de ismi gözükebilir mi "genel" de?

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki kodu güncelledim. İncelermisiniz.

 

[gelen gecer mdmx]

hocam elininize sağlık ama sayfayı yenilemek için sizce ne kullanayım. açıp kapatmam gerekiyor genel sayfasını. bir command buttona ne yazarsam o sayfayı günceller? çünkü genel sayfasında önceki sayfalardaki eski bilgilerde yazıyor. Güncelle diye bir tuş olsa mesela? bir nevi F5

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

Genel isimli sayfaya GÜNCELLE butonu eklenmiştir.

 

[gelen gecer mdmx]

çok sağolun iyi günler iyi çalışmalar