Soru Eski İsimi Ara Bul Yeni İsimle Değiştir

[mustafaayd]

merhabalr ek te maliyet son makrosunda yolu göstedirdim o istedipim yol üzerinde eski ismi arattırıp yanındaki yeni ismi 123 yapıştır yapmasını rica ediyorum nasıl bir yol izleyebiliririm. bahsettiğim eski isimlerde a sutununda yer almaktadır. konu hakkında desteklerinizi rica ederim.

kod :

Sub maliyetson()

yol = "C:\Users\maydin\Desktop\RAPOR\2022-KARLILIK\XX MALİYET 2022.xlsx"

a = 2

Workbooks.Open (yol)


Do Until Range("A" & a) = ""

ThisWorkbook.Activate

ActiveSheet.AutoFilterMode = False 'filtre kaldırma

no = Range("A" & a)

Range("A1").AutoFilter

son = Range("A1").End(xlDown).Row

Range("A2" & son).Copy

Windows("XX MALİYET 2022.xlsx").Activate

Sheets(2).Select

Dim ara As Range
Set ara = Range("A:A").Find("A2", LookIn:=xlValues)
If Not ara Is Nothing Then
Range("A" & ara.Row).PasteSpecial xlPasteFormulasAndNumberFormats
Else
MsgBox "veri yok"
End If

a = a + 1

ThisWorkbook.Activate 'kodu yazılan excele geçiş

Loop


ThisWorkbook.Activate

ActiveSheet.AutoFilterMode = False

MsgBox "İşlem tamamlandı. "


'sayfa 1 deki eski ismini belirttiğim yolda bulup yanındak, yeni isimle 123 yapıştır yapmasını istemektayim.
End Sub