Bu hata (1004) nasıl giderilir?

[Tevfik_Kursun]

Merhaba Arkadaşlar,
Adsız.png deki hatayı alıyorum. Nasıl giderebilirim?

Sub Birlestir_Makro()
        For i = 11 To Cells(Rows.Count, "I").End(3).Row
            If Cells(8, "I") <> "" Then
                metin = metin & Cells(i, "I")
            End If
        Next i

        Range(Cells(6, "I")) = metin
        metin = ""
    Range("J6").Select
End Sub

Saygılarımla

 

[Zeki Gürsoy]

Kod içindeki ilgili satırı aşağıdaki iki şekilde düzeltebilirsiniz.

Range(Cells(6, "I").Address) = metin

veya

Cells(6, "I") = metin

 

[Tevfik_Kursun]

Sayın Zeki Gürsoy Hocam,
İlginize çok teşekkür ederim. Hemen deneyeceğim.
Saygılarımla