Sub Sicil_çocuk_ara()
[F8:k18].ClearContents
Set s1 = Sheets("ALTIAYLIKLİSTE")
say = WorksheetFunction.CountIf(s1.Columns(2), [B2].Value)
If say = 0 Then
Cells(11, 7) = "Bu Çalışana ait!"
Cells(13, 7) = "Çocuk Kaydı yok!"
Exit Sub
End If
For a = 2 To s1.Cells(65536, 2).End(xlUp).Row
If [B2].Value = s1.Cells(a, 2).Value Then
c = c + 1
Cells(c + 10, 6) = s1.Cells(a, 1).Value
Cells(c + 10, 7) = s1.Cells(a, 5).Value
Cells(c + 10, 8) = s1.Cells(a, 8).Value
End If
Next
End Sub
bu makroda aynı kişinin kaç çocuğu varsa kayıtları bulup yazıyor ben ilk bulduğu çocuk nosunu b4 satırına yazsın istiyorum eklerseniz sevinirim
[F8:k18].ClearContents
Set s1 = Sheets("ALTIAYLIKLİSTE")
say = WorksheetFunction.CountIf(s1.Columns(2), [B2].Value)
If say = 0 Then
Cells(11, 7) = "Bu Çalışana ait!"
Cells(13, 7) = "Çocuk Kaydı yok!"
Exit Sub
End If
For a = 2 To s1.Cells(65536, 2).End(xlUp).Row
If [B2].Value = s1.Cells(a, 2).Value Then
c = c + 1
Cells(c + 10, 6) = s1.Cells(a, 1).Value
Cells(c + 10, 7) = s1.Cells(a, 5).Value
Cells(c + 10, 8) = s1.Cells(a, 8).Value
End If
Next
End Sub
bu makroda aynı kişinin kaç çocuğu varsa kayıtları bulup yazıyor ben ilk bulduğu çocuk nosunu b4 satırına yazsın istiyorum eklerseniz sevinirim