RFEX bulduğu satırın üstüne satır eklemek

[turkanet]

merhaba,

H sütununda RFEX bulduğu satırı kopyalayıp, satırın bir üstüne ekleyip, yeni eklenen satırdaki RFEX i STFSHP olarak değiştirecek makroya ihtiyacım var

şimdiden tşk

 

[turkanet]

aşağıdaki makroyla üste satır ekletebildim ama rfex yazanı kopyalatıp stfshp olarak değiştiremiyorum

Sub SatirEkle()
Dim i As Long
Dim adet As Integer
Application.ScreenUpdating = False
For i = [A65536].End(3).Row To 2 Step -1
If Cells(i, "H") = "RFEX" Then
Rows(i).Insert
Range("A" & i).Copy Range("A" & i)
End If
Next i
End Sub

yardımınız rica ederim

 

[turkanet]

değerli yardımınızı rica ederim