arama makrosunda ilave

[redje]

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

 

[excelvba]

kodlarınızın içine aşağıdaki mavi renkli satırı ilave edin.

[vb:1:1627192071]If [B2].Value = s1.Cells(a, 2).Value Then
c = c + 1
if c=1 then [b4]=cells(a,...).value '.... olan yere çocuğun nosunun bulunduğu sütun nosunu yazın.
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
[/vb:1:1627192071]

 

[redje]

denedim hiç bişi yazmıyor çoçuk arada f11 sütununa ilk çocuğun sicilini bulup yazıyor noktalı yere f11 yazdığım zaman hata veriyor
1 yazdığım zaman hiç bişi yazmıyor biraz daha açıklayıcı yazarsan sevinirim

 

[excelvba]

F sütunu olduğuna göre 6 yazmanız gerekiyor. [b4]=cells(a,6).value

 

[redje]

HEPSİNİ DENEDİM Bİ TÜRLÜ OLMADI BU MAKRO ALTIAYLIKLİSTE BÃ?LÜMÜNDE TÜM ÇOCUKLAR KAYITLI BURDAN ARANAN ÇOCUKLAR
MAKROYLA TARATIP BULUP

(sayfa1) F11 DEN BAÞLAYARAK KAÇTANE ÇOÇUK VARSA SAYFA 1 E YAZIYOR BENDE İLK ARADÐIM KİÞİNİN BULUNAN ÇOCUÐUN YANİ İLK ÇOCUÐUNUN NOSUNUN B4 SÜTUNUNA GETİRİP YAZSIN İSTİYORUM