Merhaba arkadaşlar,
aynı kişinin dört sayfada bilgileri var , kişi sil dedigimde kimlik sayfasındaki ismi ve diger sayfadaki adına kayıtlı olan kaç tane kayıt varsa hepsini silmesini istedim ama yapamadım,
en fazla birer satırı silebiliyor, ben o kişiye ait diger 4 sayfada kaç tane kayıt varsa silsin istiyorum
Çalıştığım kod aşağıda;
Private Sub CommandButton3_Click()
On Error Resume Next
If T2.Value = "" Then
MsgBox " Ã?nce Silmek İstediginiz Ã?ğrenciyi Seçmelisiniz...", vbDefaultButton1, "AKD.YAZILIM..."
Exit Sub
End If
lig = Sheets("kimlik").Columns(1).Find(T1.Value, [a1], , , xlByRows).Row
Sheets("kimlik").Cells(lig, 1).Select
Selection.EntireRow.Delete
lig = Sheets("egitsel_gelişim").Columns(1).Find(T1.Value, [a3], , , xlByRows).Row
Sheets("egitsel_gelişim").Cells(lig, 1).Select
Selection.EntireRow.Delete
lig = Sheets("ücret_durumu").Columns(1).Find(T1.Value, [a2], , , xlByRows).Row
Sheets("ücret_durumu").Cells(lig, 1).Select
Selection.EntireRow.Delete
lig = Sheets("yıllık_rapor").Columns(1).Find(T1.Value, [a2], , , xlByRows).Row
Sheets("yıllık_rapor").Cells(lig, 1).Select
Selection.EntireRow.Delete
T2.SetFocus
End Sub
Sayğılar...
aynı kişinin dört sayfada bilgileri var , kişi sil dedigimde kimlik sayfasındaki ismi ve diger sayfadaki adına kayıtlı olan kaç tane kayıt varsa hepsini silmesini istedim ama yapamadım,
en fazla birer satırı silebiliyor, ben o kişiye ait diger 4 sayfada kaç tane kayıt varsa silsin istiyorum
Çalıştığım kod aşağıda;
Private Sub CommandButton3_Click()
On Error Resume Next
If T2.Value = "" Then
MsgBox " Ã?nce Silmek İstediginiz Ã?ğrenciyi Seçmelisiniz...", vbDefaultButton1, "AKD.YAZILIM..."
Exit Sub
End If
lig = Sheets("kimlik").Columns(1).Find(T1.Value, [a1], , , xlByRows).Row
Sheets("kimlik").Cells(lig, 1).Select
Selection.EntireRow.Delete
lig = Sheets("egitsel_gelişim").Columns(1).Find(T1.Value, [a3], , , xlByRows).Row
Sheets("egitsel_gelişim").Cells(lig, 1).Select
Selection.EntireRow.Delete
lig = Sheets("ücret_durumu").Columns(1).Find(T1.Value, [a2], , , xlByRows).Row
Sheets("ücret_durumu").Cells(lig, 1).Select
Selection.EntireRow.Delete
lig = Sheets("yıllık_rapor").Columns(1).Find(T1.Value, [a2], , , xlByRows).Row
Sheets("yıllık_rapor").Cells(lig, 1).Select
Selection.EntireRow.Delete
T2.SetFocus
End Sub
Sayğılar...