"Ctrl+f" fonksiyonunu belli bir alanda kullanmak ?

[Gorarr]

Selamlar. "Ctrl+f" fonksiyonunu excelde sadece belli bir alan üzerinde kullanmak istiyorum. Belirttiğim alan dışındaki kısımları bulamasın. örnek dosyamda da açıkladım. Yardımlarınız için şimdiden çok teşekkür ederim.

 

[Gorarr]

Tekrar selamlar sorumda ve örnek dosyamda değişiklik yaptım. Kendim çözüm bulamıyorum. Yardımlarınızı bekliyorum..

 

[vimpir]

Sub arama()

Range("A1:K15").Select
Range("K15").Activate

End Sub

bu kodu bir denermisin istediğin böyle bir şeymi.

 

[Gorarr]

Malesef hayır. Yazdığınız kod sadece aralığı seçiyor. Benim istediğim aramanın sadece belirttiğim bu alanda olmasını sağlayan kod.

 

[mancubus]

arama yaptınız, buldunuz. bir çok değer. sonra ne yapmak istiyorsunuz?

örneğin aşağıdaki kod, bulunan bütün hücrelere not ekler.

Sub Find_Bold_Cat()
'http://www.ozgrid.com/VBA/find-method.htm


Dim lCount As Long
Dim rFoundCell As Range

Set rFoundCell = Range("A1")

For lCount = 1 To Application.CountIf(Range("A1:K15"), "J")
    Set rFoundCell = Range("A1:K15").Find(What:="J", After:=rFoundCell, _
        LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, _
        SearchDirection:=xlNext, MatchCase:=False)
    With rFoundCell
         .ClearComments
         .AddComment Text:="J harfi burada"
    End With
Next lCount

End Sub

 

[Gorarr]

Öncelikle teşekkür ederim. Aslında benim tam olarak istediğim şey. "Ctrl+f" in "değiştir" fonksiyonunu kullanmak. örneğin tüm A harflerini B harfi ile değiştirmem gerekiyor. tabi bunu sadece istediğim alan içerisinde yapması gerekiyor. Çünkü excel içerisinde bir çok yerde yazılar olucak ve onların bozulmaması gerekiyor. Tekrar değerlendirip yardımcı olursanız çok sevinirim....

 

[mancubus]

aslında forumda bu konuda bir çok örnek vardır. arama yaparak ulaşabilirsiniz.

ben kolaylık olsun diye aynı işi yapacak 3 alternatif vereyim.

Sub bul_degis1()

Range("A1:K15").Replace What:="eski", Replacement:="yeni", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False

End Sub

Sub bul_degis2()

Dim bul As String
Dim degis As String

bul = "eski"
degis = "yeni"

Range("A1:K15").Replace What:=bul, Replacement:=degis, LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False

End Sub

Sub bul_degis3()

Dim rng As Range

For Each rng In Range("A1:K15")
    If rng.Value = "eski" Then
        rng.Value = "yeni"
    End If
Next

End Sub

 

[Gorarr]

Teşekkür ederim emeğiniz için. Arama konusuda haklısınız ama bazen spesifik konuya yönelik bulmak ve modifiye etmek benim gibi yeni başlayan biri için çok zor olabiliyor , mesela verdiğiniz 3 örneğinde excelde modül içerisine koyup bir butona atadım ama yapmak istediğim şeyi yapamadım. Bu konuda da yardımcı olabilirmisiniz. Hatta örnek dosyam üzrine uygularsanız çok minnettar olurum..

 

[mancubus]

kodlardaki "eski" kelimesinin yerine değişmesini istediğiniz metni, "yeni" kelimesinin yerine de olmasını istediğiniz metni yazmış olduğunuzu farzediyorum.

bu kodu Alt+F11 tuşları ile açtığınız ile VBE penceresinde, insert-module ile eklediğiniz standart bir modüle kopyaladınız. exel'e dönerek, imleci sayfadaki Çerçeveli Alanda Arama ismini verdiğiniz düğmenin üzerine getirdiniz. sağ klik ile açılan kutudan "makro ata" seçeneğini tıkladınız. yine açılan pencerede modüle kopyaladığınınz makronun ismini seçerek tamam dediniz.

işlem tamamdır.

sizin dosyadaki J harflerini jjjjjjj ile değiştirmek için ekteki dosyaya bakınız.

 

[Gorarr]

Çok çok teşekkür ederim. Saygılar selamlar..

 

[mancubus]

rica ederim. iyi çalışmalar.