@feraz hocam kendimce aşağıdakine benzer bir formül kullandım, amacım offset fonksiyonunu kullanarak sütunları 2 kaydırıp satırları da satır numarasına göre yukarı kaydırmaktı ama sütun eklemede hata veriyor, nerede hata yapıyorum?
Not: offset yerine cell() kullanınca adresler doğru ama offsette neden hata veriyor onu anlamadım
Cll.Offset((3 - RngBul.Row), 2).Address buradaki ofset koduyla sütunu 2 sağa kaydırmam gerekiyor A için C yapıyor ama B için M yapıyor
https://resim.accesstr.net/do.php?img=10985

Sub FormatliAra(ByVal txtAranan As String)

Dim RngAra As Range

Dim RngSonuc As Range

Dim RngBul As Range

Dim RngBul2 As Range

Dim Cll As Range

Set RngAra = ThisWorkbook.Worksheets("IVL").Range("A:A")

    

    ' Clear previous formats and set new format

    Application.FindFormat.Clear

    Application.FindFormat.Font.Bold = True 'formatlı arama için gerekli kod



    Set RngBul = RngAra.Find(txtAranan, SearchFormat:=True)

    ThisWorkbook.Worksheets("Arama").Range("C2:L100").ClearContents 'Arama Sayfasını boşaltan kod

    If RngBul Is Nothing Then Exit Sub 'veri yoksa işlemi iptal etme

    

    Set RngAra = ThisWorkbook.Worksheets("IVL").Range("A" & RngBul.Row & ":A" & RngBul.Row + 100)

    Set RngBul2 = RngAra.Find("IVL No", SearchFormat:=True)

    

    Set RngSonuc = ThisWorkbook.Worksheets("IVL").Range("A" & RngBul.Row - 1 & ":L" & RngBul2.Row - 1)

    Debug.Print "RngBul2", RngBul2.Address(0, 0), RngSonuc.Address(0, 0)

    For Each Cll In RngSonuc

    Debug.Print Cll.Address(0, 0), ThisWorkbook.Worksheets("Arama").Range(Cll.Offset((3 - RngBul.Row), 2).Address(0, 0)).Address(0, 0), Cll.Value

    Next Cll

    Application.FindFormat.Clear

End Sub