CheckBox işaretlendiğinde bütün personele yazsın

[Hacı Bayram ÖZKAN]

Sevgili arkadaşlar veya Halit3 abi; sizin sayenizde ekte hazırladığım, maaş kesinti dosyasında UserForm2'de bulunan TextBox3'e yazılan veri (değer) CheckBox1 bütonu işaretlendiğinde KAYDET dediğim zaman (yani CommandButton3 tıklanınca) bütün personele BB3 sütunundan başlayarak herkese aynı yazmasını istiyorum, herkese teşekkür ederim.

 

[ynmcan]

Syn. tarzanhaci ;
ekteki dosyayı inceleyin. İstediğiniz bumu ?

 

[Hacı Bayram ÖZKAN]

abi eline sağlık aynen isteğim bu... teşekkürler sizler eksik olmayın. bu durumda halit3 abiye zahmet etmedik. Onunda bu dosyada çok emeği geçti. Emeği geçen herkese teşekkürler. Burda personel ekleyince satır 113'te kalıyor bu nasıl ayarlanır. Yani personel eklendikce herkese yazsın

 

[Hacı Bayram ÖZKAN]

Sayın: ynmcany dosyanızı aldım güzel olmuş ancak yukarıda da söylediğim gibi burda personel artınca 113. satırdan sonra yazmıyor buna bakarmısın,
If CheckBox1 <> False Then
For i = 3 To 113
Sayfa1.Cells(i, 54).Value = TextBox3.Value
Next
galiba burası değişecek 113 sabit olmayacak eklenen her personel için yapmasıını istiyorum. Teşekkürler

 

[Hacı Bayram ÖZKAN]

Sayın arkadaşlar bu dosyaya bir bakarmısınız

 

[halit3]

isim belli etmeseydiniz belki birileri yardımcı olurdu ben tesatüfen mesajınızı okudum.
aşağıdaki kodu denermisiniz.

Private Sub CommandButton3_Click()
If IsNumeric(TextBox3.Text) = False Then
MsgBox "Sayısal bir değer girmelisiniz.", vbCritical, "UYARI"
Exit Sub
End If
sat = ComboBox1.ListIndex + 2
If CheckBox1.Value = True Then
For i = 3 To Worksheets("MAAŞ").Cells(Rows.Count, "C").End(3).Row
Sheets("MAAŞ").Cells(i, "BB").Value = "#,##0.00"
Sheets("MAAŞ").Cells(i, "BB").Value = TextBox3.Text * 1
Next
TextBox3.Value = ""
MsgBox "Aktarım yapıldı.", vbInformation, "DURUM"
Else
Sheets("MAAŞ").Cells(sat, "BB").Value = "#,##0.00"
Sheets("MAAŞ").Cells(sat, "BB").Value = TextBox3.Text * 1
End If
End Sub

 

[Hacı Bayram ÖZKAN]

abi deneyeceğim teşekkürler