Belirli aralığı kod ile değiştirmek

[ASLAN7410]

Merhaba herkese hayırlı akşamlar.

Ekte gönderdiğim excel dosyamın sayfa1'de C1 ile I20 aralığında bazı yıllar var, bunları Ctrl+H ile yapıyorum ama, yıllar hep farklı olduğu için bunları tek tek yapmaya çalışıyorum, bu da zaman alıyor.

Yapmak istediğim bu aralıktaki yılları 2020'den farklı olanları topluca değiştirmek istiyorum. Makro kaydet yöntemi ile yapmaya çalıştım olmadı.

Yardımcı olur musunuz?

 

[turist]

Deneyin.

Sub Makro1()
For Each a In Range("C1:I20")
    If a.Value <> 2020 Then
    Range("C1:I20").Replace What:="*", Replacement:="2020", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False
    End If
Next
End Sub

 

[ASLAN7410]

Sayın turist, ilginiz için çok teşekkür ediyorum, bu aralıktaki verilerdeki yazılarıda yıla çeviriyor.

Sub Makro1()
For Each a In Range("C1:I20")
    If a.Value <> Range("L1") Then
    Range("C1:I20").Replace What:="*", Replacement:=Range("L1"), LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False
    End If
Next
End Sub

 

[Ömer BARAN]

Merhaba.
Alternatif olsun.

Sub DEGISTIR()
For Each hcr In [C1:I20]
    If IsNumeric(hcr.Value) And hcr <> "" And hcr <> "2020" Then hcr.Value = "2020"
Next
End Sub

 

[askm]

Sub askm()
Application.ScreenUpdating = False
For i = 3 To 9
    For x = 1 To 20
        If Cells(x, i) <> "" And Cells(x, i) <> 2020 Then
            Cells(x, i) = 2020
        End If
    Next x
Next i
Application.ScreenUpdating = True
MsgBox "İşlem tamam...", vbInformation
End Sub

 

[Ömer BARAN]

Hücrede METİN olması durumunu düzelterek önceki cevabımı güncelledim, sayfayı yenileyerek dener misiniz?

 

[ASLAN7410]

Cevap veren tüm arkadaşlar kodlar gayet güzel çalışıyor ellerinize sağlık ama istediğim sonucu alamıyorum.

Ekte gönderdiğim excel dosyasındaki formül içerisindeki yılı değiştirmek istiyorum aslında, kodları uyguladığımda formülleri iptal ediyor.

 

[Ömer BARAN]

Aşağıdaki gibi deneyin isterseniz.

Sub FORMUL_DEGISTIR()
Application.Calculation = xlCalculationManual
Application.DisplayAlerts = False
On Error Resume Next
For Each hcr In [C1:I20]
    If hcr.HasFormula Then
        hcr.Formula = Replace(hcr.Formula, Mid(hcr.Formula, WorksheetFunction.Search("[", hcr.Formula) + 1, 4), [L1])
    End If
Next
Application.Calculation = xlCalculationAutomatic
Application.DisplayAlerts = True
End Sub

 

[turist]

Deneyin.

Sub Makro2()
For Each a In Range("C1:I20")
If a.HasFormula = True Then
    Range("C1:I20").Replace What:="2018", Replacement:=Range("L1"), LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False
    End If
Next
End Sub

 

[ASLAN7410]

Sayın Ömer Bey, 8. mesajınızdaki kodlar işimi gördü ellerinize sağlık, çok teşekkür ediyorum.
Hayırlı geceler diliyorum.

 

[ASLAN7410]

Sayın turist, 9.mesajınızdaki kodlar gayet güzel çalışıyor, ellerinize sağlık, burada 2018 sabit olmadığı için, L1'deki yıla göre değiştirmek istiyorum.