DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
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
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