Bul Değiştir Makrosuna küçük bir ilave

[Filose]

Merhaba,
Bu siteden bulduğum ekteki bul değiştir makrosuna sadece değişecek kelimeyi yazmadan önce değişik yapacağı hücreyi önce silsin sonra değiştirsin.

Şimdiden çok teşekkürler.

Ahmet

 

[fireman64]

Dosyanız ektedir.

 

[Filose]

Merhaba Fireman64,
Üstad, değişen kelimeyi hücreye koyuyor ama hücredeki eski uzun metnin devamı hala gözüküyor.
Makroyu çalıştırdığımda değiştir dediğim kelimeyi yerine koyduğu hücrenin önce tamamını silsin sonra değişecek kelimeyi yazsın.

Kısaca sadece değiştirdiği kelime hücreye konulsun. Eskisi silinsin.

Emeğinize ve elinize sağlık çok teşekkür ederim.
Saygılar,

Ahmet

 

[Filose]

Yardım edebilecek var mı lütfen.
Hücredeki eski tüm yazı silinsin yerine değişecek kelime konulsun.

Şimdiden yardımcı olabilecek tüm arkadaşlara çok teşekkürler.

Ahmet

 

[soneravci]

Columns(1).ClearContents

Columns(1) yerine istediğiniz hücrenin adını Cells(1, 5) şeklinde girin

 

[Filose]

Merhaba Soner bey,
Ekte bulunan makroda düzeltme istemiştim. Bahsettiğiniz komut ekteki dosyada yok.
Yardımcı olursanız çok sevinirim.
Saygılar,

 

[soneravci]

ClearContent istenilen alandaki veriyi boşaltmaya yarıyor fakat sizin formunuzda aranılan değer değişken olduğu için ve her değer farklı bir hücrede olduğu için yapamadım . yardımcı olamadığım için üzgünüm.

 

[Filose]

Teşekkür

Soner bey yine de teşekkür eder, başarılar dilerim.
Hoşçakalın

 

[Korhan Ayhan]

DEĞİŞTİR butonuna ait kodu aşağıdaki gibi değiştirip deneyiniz.

Private Sub CommandButton4_Click()
    Dim X As Long
    
    If TextBox1 = "" Then
        MsgBox "Lütfen aramak istediğiniz veriyi giriniz!", vbCritical
        TextBox1.SetFocus
        Exit Sub
    End If
    
    If TextBox2 = "" Then
        MsgBox "Lütfen yeni veriyi giriniz!", vbCritical
        TextBox2.SetFocus
        Exit Sub
    End If
    
    
    For X = 0 To ListBox1.ListCount - 1
        Sheets(ListBox1.List(X, 0)).Range(ListBox1.List(X, 1)) = TextBox2.Text
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[Filose]

Değiştir Sorunu Hakkında

Merhaba Korhan Bey,

Dediğiniz gibi Değiştir butonu altındaki makroyu sildim sizin yazdığınız kodları girdim. Çalıştırdığımda işlem tamam diyor. Ama değiştirmiyor ve hiç hata da vermiyor. Dilerseniz size örnek makroyu size göndereyim.

Her şey için teşekkür eder ellerinize sağlık diyorum.

Ahmet

 

[Korhan Ayhan]

İlk önce ARA butonu ile verileri buldurun. Sonra DEĞİŞTİR butonu ile değiştirme işlemini yapın.

 

[Filose]

Bul Değiştir hakkında

Merhaba Korhan Bey,

Makro sorunsuz çalıştı. Size çok teşekkür ederim.
Elleriniz dert görmesin.
Saygılar,

Ahmet