Hücrede Aranılan Bir Değer Bulunduğunda, Hücrenin Tümünü Yeni Değer ile Değiştirmek

[canerr]

Merhaba,



Soru(nu)m şöyle:

DÜZEN --> DEĞİŞTİR ile sadece hücre(ler)deki değer(ler) değiştirilebiliyor.

Yapmak istediğim ise, aranan değer bir hücrede bulunduğunda,
HÜCRENİN TÜMÜNÜN yeni değer ile değiştirilmesi.

Örneğin,
Aranan Değer : "Cam"
Yeni Değer : "ARZUM ELEK. TİC AŞ FT" olsun. "Cam" değerinin bulunduğu hücrelerde, HÜCRENİN TÜMÜ "ARZUM ELEK. TİC AŞ FT" değeri ile değiştirilsin.


İlgili örnek dosya ektedir.
Yardımınız için, şimdiden teşekkür eder, başarılarla dolu günler dilerim.

 

[Orion1]

Dosyanız ektedir.

Sub bul()
Dim k As Range, adr As String
Set k = Range("B2:B65536").Find(Range("H3").Value, , xlValues, xlPart)
If Not k Is Nothing Then
    adr = k.Address
    Do
        k.Value = Range("H2").Value
        Set k = Range("B2:B65536").FindNext(k)
    Loop While Not k Is Nothing And k.Address <> adr
    MsgBox "Veriler değiştirildi"
End If
End Sub

 

[cemşit1]

merhaba

arama için *cam* şeklinde yazarsanız ve değiştirilecek kısmınada istediğinizi yazdığında sonuç çıkar sanırım

 

[canerr]

Dosyanız ektedir.

Sub bul()
Dim k As Range, adr As String
Set k = Range("B2:B65536").Find(Range("H3").Value, , xlValues, xlPart)
If Not k Is Nothing Then
    adr = k.Address
    Do
        k.Value = Range("H2").Value
        Set k = Range("B2:B65536").FindNext(k)
    Loop While Not k Is Nothing And k.Address <> adr
    MsgBox "Veriler değiştirildi"
End If
End Sub

Evren Hocam,

Doğrusu bu kadar hızlı cevap beklemiyordum:aha:
Emeğiniz için, çok teşekkür ediyorum:dua2:
Bu işlemi kodsuz yapmanın yolu var mıdır:dusun:
Selamlar:hey:

 

[canerr]

arama için *cam* şeklinde yazarsanız ve değiştirilecek kısmınada istediğinizi yazdığında sonuç çıkar sanırım

Sayın Cemşit,
Cevabınız için, teşekkür ederim ancak yapmak istediğim, farklı birşeydi çözümünü aldım.

 

[canerr]

Aranan değer ve yeni değer hücrelerini doldurup, BUL ve DEĞİŞTİR butonuna tıkladığımda aşağıdaki hatayı alıyorum:

Run-ime error '91':
Object variable or With block variable not set




Debug tıkladığımda ise, şu kod satırını işaret ediyor:

Loop While Not k Is Nothing And k.Address <> adr

Bunu nasıl düzeltebilirim?

 

[AYHAL]

Sayısal değerleri nasıl değştirebiliriz.
Mesela: Bir sayfada yalnızca "1" yazan hücreleri değiştirmek istiyorum ancak 10,11,12,13 veya 1110 gibi 1 ile başlayan tüm hücreleride değiştiriyor.

 

[Orion1]

Sayın Cemşit,
Cevabınız için, teşekkür ederim ancak yapmak istediğim, farklı birşeydi çözümünü aldım.

Birleştirilmiş hücreniz varsa hata verir.