excelde arama yapmak

[subutayı]

excel çalışma kitabımda sayfa1 ve sayfa2 de verilerim var. her iki sayfada da B sütünu TC Kimlik nosu girili. macro ile veya arama ile 1.ve 2. sayfada aradığım TC kimlik nosu varsa o satıra gitsin yoksa yok desin.
ilginize teşekürler.

 

[İhsan Tank]

merhaba
sizin istediğinizi ctrl+f fonksiyonu yapmaktadır.
iki sayfayı seçin ardından istediğiz tc noyu girin sonrakini bul derseniz buluyor yok ise böyle bir veri yoktur diye hata veriyor.

 

[subutayı]

teşekürler. küçük makrolu bir arama yaptırabilseydik daha iyi olurdu.

 

[subutayı]

mesela 1.safanın en üst tarafında bir hücreyi tc kimlik noyu arama yeri yapsak çok güzel olur
teşekürler

 

[uzmanamele]

merhaba

bu işinizi görür mü?

=KÖPRÜ("[kitap1.xls]"&(EĞER(EHATALIYSA(ADRES(KAÇINCI(A1;Sayfa1!B:B;0);2;1;1;"Sayfa1"));ADRES(KAÇINCI(A1;Sayfa2!B:B;0);2;1;1;"Sayfa2");ADRES(KAÇINCI(A1;Sayfa1!B:B;0);2;1;1;"Sayfa1")));"atla")

ek dosyayı inceleyiniz.
daha kısa bir formül yazılabilir diye düşünüyorum.

 

[subutayı]

teşekürler.

 

[yenilik025]

Excelde Arama Yapmak

Metin ile ilgili hücrede arama yapabiliyor ancak
metin yerine sayısal bir ifade yazdığımızdda örnek Kimlik No o zaman aradağımız kimlik nosunu bulamıyor ne yapmamız gerekir.


Sub TextBox2_Change()
'Textbox1 yazar ismi ile arama
'Application.ScreenUpdating = False
On Error Resume Next
ARAMAK = TextBox2.Value
Set FC2 = Range("A2:E65000").Find(What:=ARAMAK)
Application.Goto Reference:=Range(FC2.Address), _
Scroll:=False
Selection.AutoFilter field:=4, Criteria1:="*" & TextBox2.Value & "*"
If ARAMAK = "" Then
Selection.AutoFilter field:=4
End If
End Sub

 

[ZorBey_]

Sayın yenilik025 iyi geceler.
İnceleyiniz.
http://www.excel.web.tr/f133/metin-kutusu-textbox-ile-bazy-veri-turlerini-suzme-t16264.html