ARABUL MAKRODA ÃSTEDÃÃÃM SÃCÃL YOKSA BÃR SATIRA MSJ Y
MERHABALAR ALTTAKİ ARABUL MAKROSUNDA ARADIÃIM Bİ SİCİL
VARSA BİLGİLERİ YAZIYOR.
YOKSA MESELA G10 SÜTUNUNA BU KİÃİNİN SİCİLİ YOK DİYE
BİR MSJ YAZSIN İSTİYORUM
YARDIMCI OLURSANIZ SEVİNİRİM
ALTTAKİ MAKRONUN İÇİNE YERLEÃTİRİM Ã?RNEK YAZARSANIZ SEVİNİRİM
Sub Sicil_çocuk_ara()
[g9:k17].ClearContents
Set s1 = Sheets("ALTIAYLIKLİSTE")
For a = 2 To s1.Cells(65536, 2).End(xlUp).Row
If [C2].Value = s1.Cells(a, 2).Value Then
c = c + 1
Cells(c + 9, 7) = s1.Cells(a, 1).Value
Cells(c + 9, 8) = s1.Cells(a, 5).Value
Cells(c + 9, 9) = s1.Cells(a, 8).Value
End If
Next
End Sub
MERHABALAR ALTTAKİ ARABUL MAKROSUNDA ARADIÃIM Bİ SİCİL
VARSA BİLGİLERİ YAZIYOR.
YOKSA MESELA G10 SÜTUNUNA BU KİÃİNİN SİCİLİ YOK DİYE
BİR MSJ YAZSIN İSTİYORUM
YARDIMCI OLURSANIZ SEVİNİRİM
ALTTAKİ MAKRONUN İÇİNE YERLEÃTİRİM Ã?RNEK YAZARSANIZ SEVİNİRİM
Sub Sicil_çocuk_ara()
[g9:k17].ClearContents
Set s1 = Sheets("ALTIAYLIKLİSTE")
For a = 2 To s1.Cells(65536, 2).End(xlUp).Row
If [C2].Value = s1.Cells(a, 2).Value Then
c = c + 1
Cells(c + 9, 7) = s1.Cells(a, 1).Value
Cells(c + 9, 8) = s1.Cells(a, 5).Value
Cells(c + 9, 9) = s1.Cells(a, 8).Value
End If
Next
End Sub