Hakediş dosyasına kayıt

[argo619]

Değerli üstatlarım; yapmaya çalıştığım bu hakediş düzenleme dosyasında şimdilik takıldığım konu şu:

1 Nolu hakedişte S2 Sayfasındaki E10 hücresinin değeri 0 TL olacak olup, 2. hakedişte ise ilgili hücrenin değeri toplam sayfasındaki 1. hakediş değeri olan 322.207,69 TL. olacak. Yanı Toplam sayfası her ay güncellenecek olup yukarıdaki E10 hücresine bir önceki ayın toplamı görünecek.

Yardımlarınız için şimdiden teşekkürler

 

[argo619]

Değerli üstatlarım bu işin yapılabilirliliği yok mu acaba

 

[argo619]

DEĞERLİ ÜSTATLARIM
Olumlu yada olumsuz bir yorum yapacak yok mu
yardımlarınızı esirgemeyin lütfen
teşekkürler

 

[Ayhan Ercan]

DEĞERLİ ÜSTATLARIM
Olumlu yada olumsuz bir yorum yapacak yok mu
yardımlarınızı esirgemeyin lütfen
teşekkürler

Merhaba,
Ek dosyanız içerisinde "Güncelle" kodunuzunu aşağıdaki gibi revize ederek deneyiniz...

Not: Kalın yazılı ilk satır ilave edilmiştir.

Private Sub CommandButton1_Click()
[B]Sheets("S2").Range("E10") = Sheets("TOPLAM").Range("E24")[/B]
For i = 1 To 16
Sheets("toplam").Cells(i + 7, 3) = Sheets("toplam").Cells(i + 7, 3) + Sheets("sayfa2").Cells(i + 2, 7)
Next
End Sub

 

[argo619]

tşk

Değerli Ayhan Hocam Öncelikle ilgi ve alakanıza teşekkürlerimi arz ederim
Vardiya usulu çalıştığım için dün PC ye giremedim ve size teşekkürde geciktim. bu konuda öncelikle özür diliyorum
yukarıda verdiğiniz kodu revize ettim ama ilgili bölümü güncelleyince yine bir önceki toplam gelmedi
açıklama dosyamda var
ilgi ve alakanıza tekrar teşekkür eder saygılarımı arz ederim

 

[argo619]

Ayhan ERCAN ve diğer hocalarım ilginizi bekliyorum

 

[argo619]

Değerli üstatlarım yardımlarınızı bekliyorum

 

[Ayhan Ercan]

Tekrar Merhaba sn argo619

Private Sub CommandButton1_Click()
Sheets("S2").Range("E10") = Sheets("TOPLAM").Range("E24")
For i = 1 To 16
Sheets("toplam").Cells(i + 7, 3) = Sheets("toplam").Cells(i + 7, 3) + Sheets("sayfa2").Cells(i + 2, 7)
Next
End Sub

Yukarıdaki kodu modüle değil, Sayfa2 nin kod penceresine yazarak deneyiniz....

 

[argo619]

Değerli üstadım sizlere nasıl teşekkür edebilirim acaba
çok sağolun allah razı olsun
canü gönülden teşekkürlerimi arz ederim

 

[Ayhan Ercan]

Değerli üstadım sizlere nasıl teşekkür edebilirim acaba
çok sağolun allah razı olsun
canü gönülden teşekkürlerimi arz ederim

Rica ederim.
İyi Çalışmalar....

 

[haksal]

dostum dosyanın son şeklini foruma koyarsanız bilginizden biz de faydaanmış olacağız. Eğer mümkünse. İlginize şimdiden teşekkür ederim...