Çözüldü Mesai saatlerini puantaja aktarma

Merhaba,
Hata nedir tam bilmiyorum ama bu şekilde dener misiniz.
HTML:

Ali ÖZ' Alıntı:

Merhaba,
Hata nedir tam bilmiyorum ama bu şekilde dener misiniz.
HTML:

Kod: Kodları Kopyala

İçeriği görebilmek için Giriş yap ya da Üye ol.

Genişletmek için tıkla...

Hocam bu kodu başka yerden buraya uyarlamaya çalıştım. Onu başaramadım.
Userformdaki mesai penceresindeki personeli seçtikten sonra mesai saat ve günlerini yazdıktan sonra puantaj sayfası
AU - Pazar
AV - Bayram
BF - Cumartesi
BG -Saat
Kayıt yapılacak.
Not;Eklediğiniz kodu denedim olmadı

Sayın talip21
aranan değişkenini tcc textbox ından tanımladım.
Diğer textboxları nasıl doldurduğunuzu bilemediğimden
saat hariç metin girdim. Saat hücresini kısa saat olarak
formatladım. Görünen oldu gibi.
Dener misiniz ?
Kolay gelsin.

excelcan' Alıntı:

Sayın talip21
aranan değişkenini tcc textbox ından tanımladım.
Diğer textboxları nasıl doldurduğunuzu bilemediğimden
saat hariç metin girdim. Saat hücresini kısa saat olarak
formatladım. Görünen oldu gibi.
Dener misiniz ?
Kolay gelsin.

Genişletmek için tıkla...

Hocam hayırlı akşamlar. Hocam Cuma günüdendir köye gitmiştim. Bilgisayar yoktu kusura bakmayın cevap yazamadım.
Hocam kodu asıl dosyaya ekleyince hat oluştu.

Hata veren yer
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [AV5]) Is Nothing Then Exit Sub
Call tumu
End Sub

Ayrıca aktar butonu ile aktardığımda
S2.Range("B11:F50").ClearContents

S2.Cells(11, "B").Resize(saY, 5).Value = Application.Transpose(arR)
End If

Call tumu

Sayın Talip21 ben tumu makrosunu
zaten pasife almıştım. Sizin dosyanızda
tumu diye bir makro yok. Olmayınca pasife almıştım.
Bu dosyaya baktım. Bu dosyada da yok.

İkinci husus
S2.Cells(11, "B").Resize(saY, 5).Value = Application.Transpose(arR)
kod cümlesinin ne benle ne sizin sorunuzla alakası var.
Sizin sorunuz mesai penceresindeki kayıtları puantaj sayfasına
gönderememekti. Ordaki sıkıntı da sizin sat değişkenini yanlış tanımlamanızdan
kaynaklanıyordu. Ben kaydet butonunda yazılı olan kod bloğunda birkaç revizyon
yaptım hepsi bu. Ve revize kodlar doğru çalışıyor.
Sıkıntı tumu diye bir makro olmamasından kaynaklanıyor.
Pasife aldım. Kodlar çalıştı.
Ve ısrarla bir kez daha yazıyorum.
Sayfa modülü kodları kafa ağrıtır.
Uzak durun. Bakın ne güzel form yapmışsınız.
Formdan devam edin.
Kolay gelsin.

excelcan' Alıntı:

Sayın Talip21 ben tumu makrosunu
zaten pasife almıştım. Sizin dosyanızda
tumu diye bir makro yok. Olmayınca pasife almıştım.
Bu dosyaya baktım. Bu dosyada da yok.

İkinci husus
S2.Cells(11, "B").Resize(saY, 5).Value = Application.Transpose(arR)
kod cümlesinin ne benle ne sizin sorunuzla alakası var.
Sizin sorunuz mesai penceresindeki kayıtları puantaj sayfasına
gönderememekti. Ordaki sıkıntı da sizin sat değişkenini yanlış tanımlamanızdan
kaynaklanıyordu. Ben kaydet butonunda yazılı olan kod bloğunda birkaç revizyon
yaptım hepsi bu. Ve revize kodlar doğru çalışıyor.
Sıkıntı tumu diye bir makro olmamasından kaynaklanıyor.
Pasife aldım. Kodlar çalıştı.
Ve ısrarla bir kez daha yazıyorum.
Sayfa modülü kodları kafa ağrıtır.
Uzak durun. Bakın ne güzel form yapmışsınız.
Formdan devam edin.
Kolay gelsin.

Genişletmek için tıkla...

Hocam hayırlı akşamlar.
Hocam önerileriniz benim için çok değerli ve önemsiyorum.
Bende en kullanışlı nasıl yapabilirim diye siz değerli hocalarım desteği ile dosyamı bitirmek istiyorum.
Hocam
-"Formdan devam edin" demekle bu mesai ve izinleri kaydetmek için çözüm öneriniz- varsa çok memnun olurum.
Hocam şu an ki konu çözümüne gelirsek. Evet dediğiniz gibi mesai penceresindeki kayıtlar puantaj sayfasına yaptığınız şekilde gidiyor.
Ama bu kod eklenmeden önce form üzerindeki aktar butonu ile tüm kayıtlar aktarılıyordu. Şimdi aktar butonuna bastığımda Yukarı da bahis ettiğimiz
S2.Cells(11, "B").Resize(saY, 5).Value = Application.Transpose(arR)
End If
Call tumu sorunu çıkıyor onun için bunu size sorun olarak yazdım . Çözüm önerinizi bekliyorum sayın hocam.
Çok teşekkür ederim.

Sayın talip21
bu dosyada tumu diye bir makro yok.
Call tumu yazan satırı da iptal ettim.
Şimdi dosyayı yeniden dener misiniz.
Kolay gelsin.

excelcan' Alıntı:

Sayın talip21
bu dosyada tumu diye bir makro yok.
Call tumu yazan satırı da iptal ettim.
Şimdi dosyayı yeniden dener misiniz.
Kolay gelsin.

Genişletmek için tıkla...

Hocam iyi çalışmalar. Bu şekilde mesailer kayıt yapılıyor. Konumuz bu şekilde hal oluyor.
Ama bu sefer dönem değişikliği yaptıpımız da aktar tuşu ile aktarma yaptığımızda puantaj bilgileri hep sabit kalıyor AV 6 daki dönem değişiyor ama tarih ve diğer bilgiler değişmiyor.

Sayın talip21 soruyu tam anladığımı söyleyemem.
Fakat aktar butonunu çalıştırdığımda ÇALIŞILAN GÜNLER
sekmesinde tatil günlerinin değişmediğini farkettim.
AKTAR butonuna trh_listelE makrosunu kaydettim.
Şimdi çalışıyor.
Benim gördüğüm YEVMİYE sekmesinde bir değişim olmuyor.
Bu sekmeye veriler nerden geliyor makrolarda da onu göremedim.
Bu hususa ilişkin bilgilendirme yaparsanız onu da çözmeye çalışırım.
Kolay gelsin.

excelcan' Alıntı:

Sayın talip21 soruyu tam anladığımı söyleyemem.
Fakat aktar butonunu çalıştırdığımda ÇALIŞILAN GÜNLER
sekmesinde tatil günlerinin değişmediğini farkettim.
AKTAR butonuna trh_listelE makrosunu kaydettim.
Şimdi çalışıyor.
Benim gördüğüm YEVMİYE sekmesinde bir değişim olmuyor.
Bu sekmeye veriler nerden geliyor makrolarda da onu göremedim.
Bu hususa ilişkin bilgilendirme yaparsanız onu da çözmeye çalışırım.
Kolay gelsin.

Genişletmek için tıkla...

Hocam şimdi oldu. Emeğinize sağlık Allah razı olsun.
Üstte belirttiğiniz yevmiye Personel Bilgisi sayfası L sütunundan aktarılıyor hocam onunla ilgili dediğiniz gibi bi çalışma yok onu da çözerseniz bu konuya inşalllah kapatabiliriz.

excelcan' Alıntı:

Sayın talip21
Bu oldu gibi.
Puantaj sayfasında sütun AN:AS arası
formüllerden kurtulmaya bakın.
Bu konuyu kapatın. Ayrı bir başlık altında
formüllerden kurtulma sorusu sorun.
Yarısı formüllü yarısı makrolu dosya olmaz.
Kolay gelsin.

Genişletmek için tıkla...

Hocam hayırlı akşamlar. Hocam yevmiyelerde geliyor çok teşekkür ederim. Allah razı olsun. İyi ki varsınız.
Önerinize göre hareket edeceğim.