aidat takibi

[önder34]

yeni dosya ekte arkadaşlar

 

[N.Ziya Hiçdurmaz]

yanıt

Sub KAYDET()
Set SV = Sheets("VERİ GİRİŞ")
For I = 2 To Sheets.Count
If Sheets(I).Name = Sheets("VERİ GİRİŞ").[C3].Value Then
SONSAT = Sheets(I).[B65536].End(3).Row + 1
Sheets(I).Range("B" & SONSAT) = SV.[C2]
Sheets(I).Range("C" & SONSAT) = SV.[C4]
Sheets(I).Range("D" & SONSAT) = SV.[C6]
End If
Next
   For I = 2 To Sheets.Count
   For SAT = 5 To 7
   If Sheets(I).Name = Sheets("VERİ GİRİŞ").[C3].Value And Sheets(I).Cells(2, SAT).Value = Sheets("VERİ GİRİŞ").[C7].Value Then
   SONSAT = Sheets(I).[B65536].End(3).Row - 2
   Sheets(I).Cells(SONSAT + 2, SAT) = SV.[C5]
   End If
   Next
   Next
End Sub
Sub SIL()
[C2:C7] = ""
End Sub
Sub BUL()
Set SV = Sheets("VERİ GİRİŞ")
If SV.[C4] = "" Then
MsgBox "Önce aranılan öğrenciyi giriniz", vbInformation
Exit Sub
End If
For I = 2 To Sheets.Count
For SUT = 2 To Sheets(I).[C65536].End(3).Row
If Sheets(I).Range("C" & SUT) = Sheets("VERİ GİRİŞ").[C4].Value Then
Sheets(I).Select
End If
Next
Next
End Sub