arama konusunda yardım

[albatros26]

arkadaslar merhaba 1 adet ana sayfam var 3 adette bilgileri yazdıgım sayfalar mevcut bilgileri girdim hepsine ana sayfamda bi şablon üzerine gerekli yerleri doldurdum tek sorun arama kısmına tc kimlik no yazıp arama butonuna basınca sadece 3 adet olan bilgilerim sayfasından 1 tanesine arama yaptırabiliyorum bunların hepsinde nasıl arama yaptırabilir tc no ile arama olucak hangi sayfada varsa o tc no lu kişi bilgileri ana sayfaya gelicek.

 

[Orion1]

Dosyanız ektedir.

Sub ara59()
Dim i As Integer, sat As Long
Sheets("Sayfa1").Select
Range("A2:I10").ClearContents
If Range("M5").Value = "" Then
    MsgBox "M5 Hücresi boş,bir işlem iptal oldu.", vbCritical, "U Y A R I"
    Exit Sub
End If
Application.ScreenUpdating = False
sat = 2
For i = 2 To Worksheets.Count
    Sheets(i).Range("C1").AutoFilter
    Sheets(i).Range("C1").AutoFilter field:=1, Criteria1:=Range("M5").Value
    Sheets(i).Range("C1").CurrentRegion.Offset(1, 0).Copy Range("A" & sat)
    Sheets(i).Range("C1").AutoFilter
    sat = Cells(10, "A").End(xlUp).Row + 1
Next i
Application.ScreenUpdating = True
MsgBox "İşlem tamamlanmıştır." & vbLf & "evrengizlen@hotmail.com", vbOKOnly + vbInformation
End Sub

 

[albatros26]

eline saglık hocam sorunsuz calışıyor her aramadan sonra filtreleme giriyor hocam devreye onu iptal edemiyormuyuz

 

[Orion1]

eline saglık hocam sorunsuz calışıyor her aramadan sonra filtreleme giriyor hocam devreye onu iptal edemiyormuyuz

2 numaralı mesajdan dosyayı tekrar indiriniz.

 

[albatros26]

Hocam Bu seferde sayfa 1 gelen bilgilerin alt tarafına yazdıgım yazılar kayboluyor tc kimlik no dan arama yapınca yazıyorum asagiya arama yapıyorum siliniyor yazılar böle bi sorun cıktı simdi

 

[Orion1]

Hocam Bu seferde sayfa 1 gelen bilgilerin alt tarafına yazdıgım yazılar kayboluyor tc kimlik no dan arama yapınca yazıyorum asagiya arama yapıyorum siliniyor yazılar böle bi sorun cıktı simdi

Bunu anlamadım.

 

[albatros26]

hocam sayfa 1 e b10 a yazı yazın herhangi bir yazı sonra tc no arama yapın o yazdıgınız yazı kayboluyor

 

[Orion1]

hocam sayfa 1 e b10 a yazı yazın herhangi bir yazı sonra tc no arama yapın o yazdıgınız yazı kayboluyor

Evet silinir.Çünkü ben butona basıldığı anda A2:X1040000 satıra kadar siliyorum.

 

[albatros26]

Hocam Onun Silinmemesi Gerekiyor Ama Alt tarafa Farklı Yazılar Gelicek. Hocam Butona Basınca Sadece Uygun Tc de bilgiler varsa gelsin silme felan olmassa süper olucak

 

[Orion1]

Hocam Onun Silinmemesi Gerekiyor Ama Alt tarafa Farklı Yazılar Gelicek. Hocam Butona Basınca Sadece Uygun Tc de bilgiler varsa gelsin silme felan olmassa süper olucak

silme olmaytacak.o zaman alt altamı eklenecek.her butona basışta sayfa1deki son satırın aldındanamı devam edecek kayıtlar.

 

[albatros26]

hocam arama işini yaptıktan sonra birde print butonu hazırlayıp print ettikten sonra oraya gelen verileri sildireceğim. yani her cıktıdan sonra temizlenecek. ve sorun ortadan kalkacak.

çünkü hocam 1 kişi eklenecek oraya ve alt tarafta onay kısmı olucak imza vs. gibi şeyler olucak sadece 1tc yani.

 

[Orion1]

Hocam Onun Silinmemesi Gerekiyor Ama Alt tarafa Farklı Yazılar Gelicek. Hocam Butona Basınca Sadece Uygun Tc de bilgiler varsa gelsin silme felan olmassa süper olucak

Dosyayı düzenledim.2 numaralı mesajdan indirebilirisiniz.

 

[Orion1]

hocam arama işini yaptıktan sonra birde print butonu hazırlayıp print ettikten sonra oraya gelen verileri sildireceğim. yani her cıktıdan sonra temizlenecek. ve sorun ortadan kalkacak.

çünkü hocam 1 kişi eklenecek oraya ve alt tarafta onay kısmı olucak imza vs. gibi şeyler olucak sadece 1tc yani.

imza ve onay kaçıncı satırda olacak onuda yazın.ben silinecek alanı bileyim.onlara dokunmayayım.

 

[albatros26]

A11 - A15 ARası hocam A Sutundan H Sutuna Kadar Birleştirip Tam Ortaya YAzıyorum.

 

[Orion1]

A11 - A15 ARası hocam A Sutundan H Sutuna Kadar Birleştirip Tam Ortaya YAzıyorum.

Bunu baştan söyleseydiniz 1 mesajda ve kotta bitecekti konu.
2 nolu mesajdan dosyanızı indirebilirsiniz.

 

[albatros26]

hocam butona basınca gelen verilerde ilk basta tc no da gelmesi gerekiyor gelmiyor direk ad soyad kısmı geliyor doğal olarak eksik geliyor yani birer sıra sag kayacak basına tc gelmesi gerekiyor oda geldimi tmdır baska sorun yok hocam senıde yordum aksam aksam

 

[Orion1]

hocam butona basınca gelen verilerde ilk basta tc no da gelmesi gerekiyor gelmiyor direk ad soyad kısmı geliyor doğal olarak eksik geliyor yani birer sıra sag kayacak basına tc gelmesi gerekiyor oda geldimi tmdır baska sorun yok hocam senıde yordum aksam aksam

Ama siz öyle tanzim etmişsiniz.bende ona göre yaptım.Sayfa1 deki durum öyle idi.

 

[Orion1]

hocam butona basınca gelen verilerde ilk basta tc no da gelmesi gerekiyor gelmiyor direk ad soyad kısmı geliyor doğal olarak eksik geliyor yani birer sıra sag kayacak basına tc gelmesi gerekiyor oda geldimi tmdır baska sorun yok hocam senıde yordum aksam aksam

Dosya 2 nolu mesajdadır.