Herhangi Bir Verinin Bulunduğu Hücreye gitme

[savas_145]

Merhabalar yaklaşık numara ve isimlerden oluşan 1000 satırlık bir excel dosyam var. C de numaralar D de isim E de soyisim ler var. C deki numaraların tamamı birbirinden farklı ancak ardışık değiller ve karışık biçimde
forumda biraz araştırma yaptım fakat aradığımı tam olarak bulamadım.

Sorum Şu

mesela ayarlanmış bir hücreye atıyorum 123 yazıp git dediğimde yada git gibi bir buton olmasına da gerek yok. Numarayı yazıp Eenter dediğimde numarası 123 olan kişinin satırına gitmiş olmak istiyorum. bunu nasıl yapabilirim?

 

[Orion1]

Linkteki dosyayı inceleyiniz.

DOSYAYI İNDİR

Private Sub Worksheet_Change(ByVal Target As Range)
Dim k As Range
If Intersect(Target, [E2]) Is Nothing Then Exit Sub
Set k = Range("A:A").Find(Target.Value, , xlValues, xlWhole)
If Not k Is Nothing Then Range("A" & k.Row).Select
Set k = Nothing
End Sub

 

[hlojan]

dim r as Range
Set r = worksheets("Sayfa1").Cells.Find(What:=" & Worksheets("Sayfa1").range("a1") &")

If not r is nothing then
    r.Select '// Hücreye gider. 
Else
    msgbox "Hücre bulunamadı"
End if

 

[sakman26]

selam,
alternatif olarak
link ile verilen eki inceleyiniz..
kolay gelsin..


link : http://s3.dosya.tc/server7/hy6p99/savas145.zip.html

 

[savas_145]

tesekkür ederim attıklarınızı inceleyeceğim

 

[savas_145]

Linkteki dosyayı inceleyiniz.

DOSYAYI İNDİR

Private Sub Worksheet_Change(ByVal Target As Range)
Dim k As Range
If Intersect(Target, [E2]) Is Nothing Then Exit Sub
Set k = Range("A:A").Find(Target.Value, , xlValues, xlWhole)
If Not k Is Nothing Then Range("A" & k.Row).Select
Set k = Nothing
End Sub

kardeş teşekkür ederim çok işime yaradı. kodda sadece sadece numarayı girdiğim satırdaki tek kutucuğu seçiyor. ben bunu kendime göre C olarak düzenledim. peki burda sadece A değilde mesela A J arasını seçtirmek için nasıl düzenlemem gerekir. birkaç şey denedim ama hata verdi.

 

[savas_145]

selam,
alternatif olarak
link ile verilen eki inceleyiniz..
kolay gelsin..


link : http://s3.dosya.tc/server7/hy6p99/savas145.zip.html

çok teşekkür ederim ama sizinkisi beni biraz aştı daha yeniyim excelde

 

[Orion1]

kardeş teşekkür ederim çok işime yaradı. kodda sadece sadece numarayı girdiğim satırdaki tek kutucuğu seçiyor. ben bunu kendime göre C olarak düzenledim. peki burda sadece A değilde mesela A J arasını seçtirmek için nasıl düzenlemem gerekir. birkaç şey denedim ama hata verdi.

ilgili satırı aşağıdaki ile değiştirin.

If Not k Is Nothing Then Range("A" & k.Row & ":J" & k.Row).Select

 

[savas_145]

ilgili satırı aşağıdaki ile değiştirin.

If Not k Is Nothing Then Range("A" & k.Row & ":J" & k.Row).Select

çok teşekkürler halloldu

 

[Orion1]

çok teşekkürler halloldu

Rica ederim.
İyi çalışmalar.

 

[semira_]

Birsey sorabilir miyim excelmde file is not found hatsi veriyor ama hersey harfiyen dogru bu hata neden cikti

 

[Orion1]

Birsey sorabilir miyim excelmde file is not found hatsi veriyor ama hersey harfiyen dogru bu hata neden cikti

dosya bulunamamış.

 

[semira_]

Ama dosyam klasorde var bugun kac kere baktikk bulamdikk hata olmamalii .sanmam

 

[semira_]

Do ... loop yaprken sadece ilk dosyayi okuyor digerlrrini okumuyor cok defa baktimm filename bu hatayi veriyor error 53 hatasi

 

[Orion1]

Ama dosyam klasorde var bugun kac kere baktikk bulamdikk hata olmamalii .sanmam

Dosya yolunu yanlış yada eksik yazmış olabilirsiniz.

 

[semira_]

Bunu bir yerden kopyaladim oradaki calisiyorr

 

[semira_]

Kopyaladigim yere baktim birebir aynisini aldimm hepsi harfiyen aynii

 

[Orion1]

Dosya uzantılarıda yanlış yazılmış olabilir.mesela xls ile xlsx ayrı dosyalar.Excel dosyası ama uzantıları farklı.xlsm de öyle

 

[semira_]

Dosyam txt uzantili bunlara baktik dogruu uzanti aynen boyle ilk dosyayi okudu digerlerini okumadii. Bu arada bu uzantilar aradaki fark nedirr

 

[Orion1]

Dosyam txt uzantili bunlara baktik dogruu uzanti aynen boyle ilk dosyayi okudu digerlerini okumadii. Bu arada bu uzantilar aradaki fark nedirr

yani dosya uzantıları değişik demek istedim.
Dosya adları değişik olabilir.