Degerli arkadaslar yapmis oldugum personal listesinde is ten cikarma olayi fazla yer tutugu icin baska bir sayfa actim sorunum personal sayfasindan
kisinin nosunu yazdigimda bilgilerin gelmesi kod lar asagida
kisinin nosunu yazdigimda bilgilerin gelmesi kod lar asagida
Nasil Bir degisiklik yapmam gerekirPrivate Sub CommandButton1_Click()
Dim yer, i, mesaj As Integer
yer = 2
While Sheets(1).Cells(yer, 1) <> ""
yer = yer + 1
Wend
yer = yer - 1
For i = 2 To yer
If TextBox1 = Sheets(1).Cells(i, 1) Then
mesaj = MsgBox("Personelin Isine Son Vermek Üzeresiniz Eminmisiniz?", 4 + 32 + 256, "Uyari")
If mesaj = 6 Then
Sheets(1).Cells(i, 24) = TextBox5
ThisWorkbook.Save
TextBox1 = "": TextBox2 = "": TextBox3 = "": TextBox4 = "": TextBox5 = ""
Else
Cancel = True
End If
End If
Next i
End Sub
Private Sub TextBox1_Change()
TextBox2 = "": TextBox3 = "": TextBox4 = "": TextBox5 = ""
Dim yer, i As Integer
yer = 2
While Sheets(1).Cells(yer, 1) <> ""
yer = yer + 1
Wend
yer = yer - 1
For i = 2 To yer
If TextBox1 = Sheets(1).Cells(i, 1) Then
TextBox2 = Sheets(1).Cells(i, 3)
TextBox3 = Sheets(1).Cells(i, 4)
TextBox4 = Sheets(1).Cells(i, 19)
TextBox5 = Sheets(1).Cells(i, 24)
If TextBox5 <> "" Then
MsgBox TextBox5 & Chr(13) & "Bu Personel Zaten Isten Çikarilmi s"
TextBox1 = "": TextBox2 = "": TextBox3 = "": TextBox4 = "": TextBox5 = ""
End If
End If
Next i
End Sub