VBA Bul Değiştir Uygulaması

[quote author=”- honestman”]

Merhaba,

Sub DEĞİŞTİR()
‘ALT SATIR BKD ON DEĞERİNI SİLER
Selection.Replace What:=”BKD ON”, Replacement:=”SLD”
‘ALT SATIR ETD DEĞERİNI SLD DEĞERİ İLE DEĞİŞTİRİR
Selection.Replace What:=”ETD”, Replacement:=”SLD”
End Sub

Yukarıda bul değiştir uygulaması var fakat benim yapmak istediğim bulunması gereken verileri ben buradan elle yazacağıma bir hücre aralığından alabilir mi?
Hatta değiştireceği veriyi de başka bir hücreden alabilirse çok iyi olur. Eğer olabilirse örnek dosyama uygulayıp size göndereceğim, teşekkürler…

[/quote]

VBA Bul Değiştir Uygulaması

Degisecek ve degistirilecek verilerin girildigi ve birer alanin bulunacagi ornek bir calisma yapmaya calistik. A sutunundaki verileri bulacak ve B sutunundaki veriler ile degistirecek.

Ornek calismamizda biz C sutununu hedef olarak belirledik; yani C sutununda A sutunu verilerini arayacak ve bulursa B sutunundaki veri ile degistirecek.

Uygulamanizda kullanilan kodlar;

 

Sub degistir()
Dim hedef, cell As Range
    Dim i, j As String
    i = 2
    j = 2
        Set hedef = Sheets("sheet1").Range(Range("C2"), Range("C65536").End(xlUp))
    For Each cell In hedef
        If cell.Value = Cells(i, "A") Then cell.Value = Cells(j, "B")
        i = i + 1
        j = j + 1
    Next cell
End Sub

Ornek uygulama yukaridaki gibi olacak, ornek dosyayi inceleyebilirsiniz..

VBA Bul Değiştir Uygulaması

 

Yazar: demo demo

2004 yilindan itibaren ozel bir sirketin finans departmaninda calismaktadir. Kendini excel, visual basic kullaniminda gelistirmis olan yazarimiz; Meslegi geregi SAP konusunda ileri derecede bilgilidir.

“VBA Bul Değiştir Uygulaması” için 1 yorum

  1. Merhabalar, excel vba da yeniyim, benim sorum şu: personel kayıt programı oluşturmaya çalışıyorum, personel bilgilerini girip bulma butonuna tıkladığımda listboxta bilgileri göstermek istiyorum. bunun için nasıl bir kod yazabilirim? data sayfasında veriler var “B” sütunundan “J” sütununa kadar.. TC no veya Adı Soyadı ile arama yapılacak ve bulunan değer userform üzerinde ki listboxta görünecek… şimdiden teşekkür ederim. Kolay gelsin herkese..

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir


2 + 7 =