ssk bordrosu

[talatcd]

Slm arkadaşlar kolay gelsin. Bir ssk bordrosu yapmaya çalışıyorum. bu bordroda bazı sorunlarım var aşağıya sıralıyorum.
1- Kuruş hesaplaması yaptırmıştım. Nolduysa şu an bir türlü uğraşmama rağmen yaptıramıyorum.
2- Userform1 (ANA MENÜ den) Bordro menüsüne giriyorum ve buradan bordro ulştur yapıyorum. burada Parametre sayfasındaki son veriye kadar bordro oluşturabilirmişiz. Şu an elle Makrodan sayı giriyorum ki o sayıya kadar hesaplama yaptırsın. Bunu giderebilirmiyiz.
3- Oluşturulan bodronun sonuna otomatik toplam aldırabilirmiyiz.
4- Bir de Ana Menüde hesaplama butonuna clik yapınca hesaplamasını istiyorum. Şimdi 3 defa clik yapmam gerekiyor.
Yardımlarınızı bekliyorum. şimdiden teşekkürler. herkese kolay gelsin

 

[talatcd]

1. soru olan Kuruş hesaplamasını hallettim.
4. soruyu da hallettim
2 ile 3. soru için yardımlarınızı bekliyorum. Bu arada ben de uğraşıyorum.

 

[Recep İpek]

2.soruda elle sayı giriyorum derken bordro hesaplanacak kişi sayısını mı
istiyorsunuz?

Eğer bu ise,

a = WorksheetFunction.CountA(Sheets("Parametre").Range("B2:B65536"))

formülü ile kişi sayısını buldurabilirsiniz.

 

[Ali]

Sn Talat Userform3 içindeki
Private Sub CommandButton3_Click()
End Sub
içindeki kodlarınızı aşağıdaki gibi değiştirirseniz Userform1 diye oluşturduğunuz anamenüden Bordro menüsü geçip baskı önizleme almanız sağlıklı olacaktır.

Private Sub CommandButton3_Click()
sor = MsgBox("Ön İzleme Yapmak İstediğinizden Eminmisiniz?", vbYesNo)
If sor = vbNo Then Exit Sub
Me.Hide
UserForm1.Hide
Sheets("Bordro").Select
ActiveWindow.SelectedSheets.PrintPreview
Me.Show
UserForm1.Show
End Sub