Sadece bir sutun icerisinde bul ve degistir yapmak (makro ile)

[mcdba]

Sadece bir sutun icerisinde bul ve degistir yapmak (makro ile) istiyorum.

Kod konusunda degerli yardiminizi rica ederim.

Tesekkurler

 

[ECYavuz]

Private Sub CommandButton1_Click()
Dim bul As String
Dim yap As String
On Error GoTo 10
bul = InputBox("ARANACAK")
yap = InputBox("DEĞİŞECEK")
st = Range("A1:A" & "A65536").Find(bul).Row
10 If st = 0 Then
MsgBox ("ARADIĞINIZ VERİ BULUNAMADI")
Exit Sub
End If
Range("A" & st).Select
Range("A" & st).Value=yap
End Sub

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak aşağıdaki kodu denermisiniz. Arama işlemini büyük-küçük harf duyarlı ve birebir eşleşen hücrelere göre yapar.

Sub BUL_DEĞİŞTİR()
    SÜTUN = Application.InputBox("Lütfen sütun bilgisi giriniz.", "SÜTUN SEÇİMİ", "A")
    If SÜTUN = "" Or SÜTUN = False Then Exit Sub
    ARANAN = Application.InputBox("Lütfen aradığınız veriyi giriniz.", "ARANAN VERİ")
    If ARANAN = "" Or ARANAN = False Then Exit Sub
    YENİ_DEĞER = Application.InputBox("Lütfen yeni veriyi giriniz.", "YENİ VERİ")
    If YENİ_DEĞER = "" Or YENİ_DEĞER = False Then Exit Sub
    Range(SÜTUN).Replace What:=ARANAN, Replacement:=YENİ_DEĞER, LookAt:=xlWhole, _
    SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
    ReplaceFormat:=False
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[mcdba]

Oncelikle tesekkur ederim yardimlariniz icin.

Verdiginiz bilgileri baska uygulamalarda kullanabilirim ancak benim yapmak istedigim:

Herhangi bir butondan bagimsiz olarak makro yardimiyla B1:B1000 araligindaki tum . lari / ye cevirmek.

Tekrar tesekkurler

 

[Korhan Ayhan]

Selamlar,

Oluşturulan makroyu çalıştırmak için buton kullanmak zorunda değiliz. İlgili sayfaya yazılacak bir kod ile bu işlem yapılabilir. Fakat makroyu tetikleyecek bir olay olması gerekiyor. Siz örnek dosyanızı eklerseniz ona göre çözümler üretilebilir.

 

[mcdba]

Merhaba,
Istedigim olay sadece B sutunundaki "." lari "/" ile degistirmek. (Herhangi bir msg box acilmadan)
Tesekkurler

 

[Korhan Ayhan]

Selamlar,

İşlemi yapmak istediğiniz sayfanın kod bölümüne aşağıdaki kodu uygulayıp denermisiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
    [B:B].NumberFormat = "dd\/mm\/yyyy"
End Sub