ARA-bul en basit şekilde

[bedocan]

elimde 2500-3000 satırlık 10 sutunluk bir veri mevcut ben bunu sadece ara bl olarak aratmak ve bulunan sonucu göstermek istiyorum excel de nası yapabilirim acil sayılır

sayfa 1 veriler olacak sayfa 2de arama işlemi olacak


şimdiden teşşkürler

 

[Orion1]

find komutunu kullanarak yapabilirsiniz.

 

[bedocan]

ctrl+f biliyorum ben aradım şahsın adını yazcam detaylarını gösterecek taplo içinde

 

[Orion1]

ctrl+f biliyorum ben aradım şahsın adını yazcam detaylarını gösterecek taplo içinde

VBA'da VBA'nın find komutunu kullannak kbir makro yazabilirsiniz.

 

[bedocan]

ah keşke yazabilsem bende onu diyorum o konuda y ardım istiyorum bayan olmakda zor olsa gerek yarım isteyince yanlış anlaşılıyor

 

[Orion1]

ah keşke yazabilsem bende onu diyorum o konuda y ardım istiyorum bayan olmakda zor olsa gerek yarım isteyince yanlış anlaşılıyor

Sorunuz ekisk.Bende bu şekilde cevap verdim.
*Hangi nesne içindeki veri arama kriteri olarak kullanılacak?
*Arama hangi sütunda olacak?

 

[nihatkr]

ah keşke yazabilsem bende onu diyorum o konuda y ardım istiyorum bayan olmakda zor olsa gerek yarım isteyince yanlış anlaşılıyor

Evren hoca sizi araştırmaya yoneltmek istemiş ama sanırım siz hazır kod istiyorsunuz.

Evren hoca aynısını daha önce yapmıştı. İsterseniz bakın

http://www.excel.web.tr/showthread.php?p=283957

 

[bedocan]

Bunu yaparsanız çok sevincem

içinde gerekli bilgiler ve veriler var dosya boyutu fazla olmasın diye örnek yazım ben bunun gibi binlerce telefon kaydı girilecek

 

[bedocan]

Evren hoca sizi araştırmaya yoneltmek istemiş ama sanırım siz hazır kod istiyorsunuz.

Evren hoca aynısını daha önce yapmıştı. İsterseniz bakın

http://www.excel.web.tr/showthread.php?p=283957

bU ORNEGE BAKTIM BU ŞEKİLDE DEĞİL

DÜN GECEDEN BERİ İNCELEDİM BANA ÜSTEDEKİ ÖRNEK ŞEKİLDE LAZIMDI FORMUDA BAYA KALDIM BAYADA REKLAM TIKLADIM HELP ME DİYORUM

 

[nihatkr]

bU ORNEGE BAKTIM BU ŞEKİLDE DEĞİL

DÜN GECEDEN BERİ İNCELEDİM BANA ÜSTEDEKİ ÖRNEK ŞEKİLDE LAZIMDI FORMUDA BAYA KALDIM BAYADA REKLAM TIKLADIM HELP ME DİYORUM

illa excel ilemi olmak zorunda ?

 

[Orion1]

içinde gerekli bilgiler ve veriler var dosya boyutu fazla olmasın diye örnek yazım ben bunun gibi binlerce telefon kaydı girilecek

Dosyanız hazır.

Sub SearchText()
Dim k As Range, ilk_adres As String, sat As Long, sut As Byte
Sheets("Arama Sayfası").Select
If MsgBox("[ " & Range("D4").Value & " ] İsimli sahısı aramak istiyormusunuz?", vbYesNo + vbQuestion, "ARAMA") = vbNo Then Exit Sub
Application.ScreenUpdating = False
Range("A11:F65536").ClearContents
sat = 11
Set k = Sheets("Veri Giris").Range("B2:B65536").Find(Range("D4").Value, , xlValues, xlWhole)
If Not k Is Nothing Then
    ilk_adres = k.Address
    Do
        Cells(sat, "A").Value = sat - 10
        For sut = 0 To 4
            Cells(sat, k.Offset(0, sut).Column).Value = k.Offset(0, sut).Value
        Next sut
        sat = sat + 1
        Set k = Sheets("Veri Giris").Range("B2:B65536").FindNext(k)
    Loop While k.Address <> ilk_adres And Not k Is Nothing
End If
Set k = Nothing
Application.ScreenUpdating = True
If sat > 11 Then
    MsgBox "Arama Tamamlandı..", vbOKOnly + vbInformation, Application.ScreenUpdating = True
End If

End Sub

 

[bedocan]

Evran KardeŞ OlmamiŞ ÇÜnkİ Arama Yapinca BÜtÜn Verİlerİ Sİlİyor Ve ÇaliŞmiyo RÇok Acele Yaptin Herhalde

 

[Orion1]

Evran KardeŞ OlmamiŞ ÇÜnkİ Arama Yapinca BÜtÜn Verİlerİ Sİlİyor Ve ÇaliŞmiyo RÇok Acele Yaptin Herhalde

Verileri Veri Girişi sayfasında B sütununda arıyor.
Arama Sayfası hücrelerini önce temizliyor.Sonrada Veri Girişi sayfasında bılduğu verileri Arama sayfasına listeliyor.Siz öyle istemişsiniz.

 

[bedocan]

Evran KardeŞ ELİNE SAĞLIK

ANCAK 1-2 DÜZELTME YAPABİLİRMİYİZ aRADIĞIMIZ KİŞİNİN DİYELİM ADI SOYADI ALİ VELİ

İSMİ ALİ İLE BAŞLAYANLARI YANİ ARADIĞIM KİRİTE UYAN KİŞİNİN İLK 3 KELİMESİNİ YAZINCA OTOMATİK ALTA LİSTELESİN BİRDE ARARKEN SORMASIN enter bastımı uYAN VARSA ÇIKSIN YOKSA üzgünüm KAYIT YOK DESİN YETER

BEN SANIRIM GERİSNİ DÜZENLEYEBİLİRİM ÇÜNKÜ BAY ABÜYÜK BİR VERTABINDA ARAYACAK

 

[Orion1]

Evran KardeŞ ELİNE SAĞLIK

ANCAK 1-2 DÜZELTME YAPABİLİRMİYİZ aRADIĞIMIZ KİŞİNİN DİYELİM ADI SOYADI ALİ VELİ

İSMİ ALİ İLE BAŞLAYANLARI YANİ ARADIĞIM KİRİTE UYAN KİŞİNİN İLK 3 KELİMESİNİ YAZINCA OTOMATİK ALTA LİSTELESİN BİRDE ARARKEN SORMASIN enter bastımı uYAN VARSA ÇIKSIN YOKSA üzgünüm KAYIT YOK DESİN YETER

BEN SANIRIM GERİSNİ DÜZENLEYEBİLİRİM ÇÜNKÜ BAY ABÜYÜK BİR VERTABINDA ARAYACAK

Aşağıdaki makroyo kullanınız.

Sub SearchText()
Dim k As Range, ilk_adres As String, sat As Long, sut As Byte
Sheets("Arama Sayfası").Select
Application.ScreenUpdating = False
Range("A11:F65536").ClearContents
sat = 11
Set k = Sheets("Veri Giris").Range("B2:B65536").Find(Range("D4").Value & "*", , xlValues, xlWhole)
If Not k Is Nothing Then
    ilk_adres = k.Address
    Do
        Cells(sat, "A").Value = sat - 10
        For sut = 0 To 4
            Cells(sat, k.Offset(0, sut).Column).Value = k.Offset(0, sut).Value
        Next sut
        sat = sat + 1
        Set k = Sheets("Veri Giris").Range("B2:B65536").FindNext(k)
    Loop While k.Address <> ilk_adres And Not k Is Nothing
End If
Set k = Nothing
Application.ScreenUpdating = True
If sat > 11 Then
    MsgBox "Arama Tamamlandı.." _
    & vbLf & sat - 11 & " Adet kişi bulundu..", vbOKOnly + vbInformation, Application.UserName
    Application.ScreenUpdating = True
    Else
    MsgBox "Üzgünüm ! !" & vbLf & "[ " & Range("D4").Value & " ] BULUNAMADI..!!" _
    , vbCritical, "BULUNAMADI.!"
End If

End Sub

 

[bedocan]

İlÇe Rehberİ

Evren kardeş çok sağol ben Ekteki osyayı gönderiyorum BAKARSAN SANA NOT YAZDIM halldersen çok sevincem baya reklam tıklıyorum bende

1. 1 Küçük bir ilçe için telefon rehberi
2. yaklaşık 20.bin kayıt sorgulayacak
3. 2 Arama kısmında BUL kısmını tıklamadan ENTER ile aratablirmiyiz
4. 3 Arama sayfası için Sadece arama kriteri yazılacak yer dışındaki diğer yerleri koruma altına alabilirmiyiz
5. 4 Arama Olayı Altarnatif olrak liste ekleyebilrmiyiz arama sayfasında Küçük bir liste olup tıklayınca listenin içeriğini gösterebilirmi
6. 5 Arama Sayfasına EN SON EKLENEN 10 kaydı gösterdebilirmiyiz

 

[Orion1]

Evren kardeş çok sağol ben Ekteki osyayı gönderiyorum BAKARSAN SANA NOT YAZDIM halldersen çok sevincem baya reklam tıklıyorum bende

1. 1 Küçük bir ilçe için telefon rehberi
2. yaklaşık 20.bin kayıt sorgulayacak
3. 2 Arama kısmında BUL kısmını tıklamadan ENTER ile aratablirmiyiz
4. 3 Arama sayfası için Sadece arama kriteri yazılacak yer dışındaki diğer yerleri koruma altına alabilirmiyiz
5. 4 Arama Olayı Altarnatif olrak liste ekleyebilrmiyiz arama sayfasında Küçük bir liste olup tıklayınca listenin içeriğini gösterebilirmi
6. 5 Arama Sayfasına EN SON EKLENEN 10 kaydı gösterdebilirmiyiz

Dosyanız Ekte.
Yalnız son maddeyi anlayamadım.

Sub SearchText()
Dim k As Range, ilk_adres As String, sat As Long, sut As Byte
Sheets("Arama Sayfası").Select
Application.ScreenUpdating = False
ActiveSheet.Unprotect "evren"
Range("A11:G65536").ClearContents
sat = 11
Set k = Sheets("Veri Giris").Range("B2:B65536").Find(Range("D4").Value & "*", , xlValues, xlWhole)
ReDim myarr(1 To 7, 1 To 1)
If Not k Is Nothing Then
    ilk_adres = k.Address
    Do
        ReDim Preserve myarr(1 To 7, 1 To sat)
        myarr(1, sat - 10) = sat - 10
        For sut = 0 To 5
            myarr(sut + 2, sat - 10) = k.Offset(0, sut).Value
        Next sut
        sat = sat + 1
        Set k = Sheets("Veri Giris").Range("B2:B65536").FindNext(k)
    Loop While k.Address <> ilk_adres And Not k Is Nothing
End If
Set k = Nothing
Application.ScreenUpdating = True
If sat > 11 Then
    [A11].Resize(sat - 11, 7) = Application.Transpose(myarr)
    'UserForm1.ListBox1.Clear
    'UserForm1.ListBox1.Column = myarr
    MsgBox "Arama Tamamlandı.." _
    & vbLf & sat - 11 & " Adet kişi bulundu..", vbOKOnly + vbInformation, Application.UserName
    Else
    MsgBox "Üzgünüm ! !" & vbLf & "[ " & Range("D4").Value & " ] BULUNAMADI..!!" _
    , vbCritical, "BULUNAMADI.!"
End If
ActiveSheet.Protect "evren"
End Sub

 

[bedocan]

Merhaba 1 kaç gündür İş aradığım için siteye girmedim Önceki iş yerinden Şutlandım yeni iş buldum bklaım nasıl oalcak Evran kardeş ekde bri dosya Gönderiyorum örnek Bakabilirmisin vaktin olunca RİCA ETSEM

İçinde açıklamlar vs yazıyor

 

[Orion1]

Form açılacak Forma kayıt girlecek kayıt düzencek silinecek aranacak AMA HERŞEY Bir Forum İçinde olacak şekilde ayarlayabilirmiyiz Excelde mümkünmü bu

Bu söylediğiniz başlı başına bir program yapmak olacaktır.
Bilmiyorum ilgilenen arkadaşlar olursa yaparlar.
İyi çalışmalar.

 

[bedocan]

forum derken excel sayfası içinde extra bri forum açılmaycak