ilgili kodu alttaki gibi yaptım önceden yazdığım olay için başlık.
Kod:
With syfFirmalar
.Select
If WorksheetFunction.CountA(.Range("A4:A" & Rows.Count)) = 0 Then
.Rows("1:1").Copy .Range("A4")
.Rows(4).Replace What:="Örnek", Replacement:=Firma, LookAt:=xlPart
Else
.Rows("1:1").Copy .Range("A" & Rows.Count).End(3)(2, 1)
satir = .Range("A" & Rows.Count).End(3).Row
.Rows(satir).Replace What:="Örnek", Replacement:=Firma, LookAt:=xlPart
End If
.Range("A" & Rows.Count).End(3)(2, 1).Select
End With
Kendi dosyanıza uyarlarken Sabitler sayfası B1 hücresindeki yolu değiştirin.