ARABUL MAKRODA İSTEDİĞİM SİCİL YOKSA BİR SATIRA MSJ Y

[redje]

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

 

[Levent Menteşoğlu]

Aşağıdaki şekilde deneyin.

[vb:1:c10a11f8ba]Sub Sicil_çocuk_ara()
[g9:k17].ClearContents
Set s1 = Sheets("ALTIAYLIKLİSTE")
say=worksheetfunction.countif(s1.columns(2),[c2].value)
if say=0 then
msgbox ([C2].value & " SİCİL NOYA AİT BİLGİ BULUNAMADI")
exit sub
end if
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[/vb:1:c10a11f8ba]

 

[keniken]

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
Else
Cells(10, 7) = "Bu kişinin sicili yok!"
End If


Next

End Sub

 

[redje]

LEVENT BEY TEÞEKKÜR EDERİM BEN GÜZEL OLMUÞ BEN EKRANA UYARI MESAJI OLARAK DEÐİLDE HERHANGİ BİR SÜTUNA MESELA H15 SÜTUNUNA YAZSIN İSTİYORUM

keniken YAPMIÞ OLMUÞ FAKAT AÐIR ÇALIÞIYOR ARATMA YAPTIÐIM YERDE KAYIT BİLGİSİ ÇOK 2000 TANE VAR BU 5000 E KADAR ÇIKACAK DAHADA AÐIRLAÞIR


DAHA HIZLI ARAYIP MSJ YAZACAK FORMÜL VARMI

 

[redje]

PARDON Ã?ZÜR DİLERİM
ACELE YAZDIM

MANTIÐI ÇÃ?ZDÜM BU İÞ OLDU

TEÞEKKÜRLER

 

[redje]

TEKRAR SELAM AKLIMA GELMİÞKEN SORMAK İSTİYORUM
YUKARDAKİ ARABUL MAKROSUNDA ARANAN SİCİLİ BULUYOR EKRANA YAZIYOR
KİÞİNİN RESMİNİ BİRYERE GİRİP GETİRME ÞANSIMIZ VARMI
BAÞKA BİR YÃ?NTEMMİ UYGULAMAK GEREKİYOR
OLUYORSA EKLEMENİZ MÜMKÜNMÜ