- Katılım
- 23 Mart 2006
- Mesajlar
- 303
- Excel Vers. ve Dili
-
Microsoft Office 2003
Excel 2003
Merhaba Arkadaşlar,
Ekli dosyadaki VBE bölünden çalıştırdığım dosyanın değiştir tuşu sadece ADSOYAD da değişiklik yapıyor diğerlerinde düzgün çalışmıyor bende mi bir hata var anlayamadım.Bilgisi olan arkadaşların desteğine ihtiyacım var takıldım kaldım.
Kullandığım kod aşağıdaki şekilde ;
Private Sub DEGISTIR_Click()
sor = MsgBox("Değiştirmek istediğinizden eminmisiniz?", vbYesNo)
If sor = vbNo Then Exit Sub
sonsat = ListBox1.ListIndex + 2
Cells(sonsat, 2) = ADISOYADI.Text
Cells(sonsat, 3) = GOREVI.Text
Cells(sonsat, 4) = SSKNO.Value
Cells(sonsat, 5) = TCKIMLIKNO.Value
Cells(sonsat, 6) = BIRIM.Text
Cells(sonsat, 7) = Format(ISEGIRIS, "dd.mm.yyyy")
Cells(sonsat, 8) = TELEFON.Value
Cells(sonsat, 9) = ADRES.Text
Cells(sonsat, 10) = ADRES1.Text
ListBox1.RowSource = "B2:J" & [B65536].End(xlUp).Row
MsgBox "DEĞİŞİKLİK YAPILMIŞTIR"
DEGISTIR.Visible = True
End Sub
Saygılar
Ekli dosyadaki VBE bölünden çalıştırdığım dosyanın değiştir tuşu sadece ADSOYAD da değişiklik yapıyor diğerlerinde düzgün çalışmıyor bende mi bir hata var anlayamadım.Bilgisi olan arkadaşların desteğine ihtiyacım var takıldım kaldım.
Kullandığım kod aşağıdaki şekilde ;
Private Sub DEGISTIR_Click()
sor = MsgBox("Değiştirmek istediğinizden eminmisiniz?", vbYesNo)
If sor = vbNo Then Exit Sub
sonsat = ListBox1.ListIndex + 2
Cells(sonsat, 2) = ADISOYADI.Text
Cells(sonsat, 3) = GOREVI.Text
Cells(sonsat, 4) = SSKNO.Value
Cells(sonsat, 5) = TCKIMLIKNO.Value
Cells(sonsat, 6) = BIRIM.Text
Cells(sonsat, 7) = Format(ISEGIRIS, "dd.mm.yyyy")
Cells(sonsat, 8) = TELEFON.Value
Cells(sonsat, 9) = ADRES.Text
Cells(sonsat, 10) = ADRES1.Text
ListBox1.RowSource = "B2:J" & [B65536].End(xlUp).Row
MsgBox "DEĞİŞİKLİK YAPILMIŞTIR"
DEGISTIR.Visible = True
End Sub
Saygılar