userform da yardım

[damra2005]

ekli dosyada bulanan userform da ;
1- Scrollbar la yaptığım kayıtlar arasında gezinti yapmak için örnek kod,
2- Sil butonuna tıklandığında arşiv sayfasında bulunan çizelgeye silinen personelin tüm bilgilerini atmak ve herhangi bir satırda bulunan personelin kayıtları silindikten sonra, arada boşluk bırakmaksızın personel kayıtlarını sıralama
3- kapat butonuna tıklandığında hem aktif sayfayı, hemde userformu kapatma,

konularında acil yardıma ihtiyacım var. Lütfen yardım

 

[xxrt]

damra2005,

Konu Başlığınızı sorunuzu daha iyi tanımlıyacak bir başlık ile değiştiriniz..

 

[Levent Menteşoğlu]

Dosyanızı inceledim. İlk iki sorunuzun çözümü için textboxların isimlerini değiştirmeniz gerekiyor, aşağıda scrollbar için bir kod hazırladım, fakat textbox isimleri txt1,txt2,.......txt38 şeklinde gitmelidir.

1.sorunuz

[vb:1:b225c47933]Private Sub ScrollBar1_Change()
For a = 1 To 38
Controls("txt" & a) = Sheets("Personel Girişi").Cells(ScrollBar1.Value + 6, a).Value
Next
End Sub
[/vb:1:b225c47933]

2.sorunuz için sil butonu sileceği veri bilgisini nereden alacak bunu belirtmeniz gerekli.

3.sorunuz

[vb:1:b225c47933]Private Sub kapat_Click()
Unload Me
Application.Quit
End Sub
[/vb:1:b225c47933]

 

[damra2005]

2. soruda mesala bir personele ait bulanan verilerin hepsi silinecek