Formül Hatası

[ozuberk]

Merhaba aşağıdaki kodu çalıştırdığımda hata alıyorum. Konu hakkında yardımlarınızı rica ederim.


Sheets("Sayfa 1").Select
Dim sat As Long, i As Long
sat = Sheets("Sayfa 1").Cells(65536, "A").End(xlUp).Row
sat = Sheets("Sayfa2").Cells(65536, "A").End(xlUp).Row
For i = 2 To sat
Sheets("Sayfa 1").Cells(i, "D").Formula = "=IF(ISBLANK(RC[-4]),"""",R[-1]C[1])"
Sheets("Sayfa 2").Cells(i, "D").Formula = "=IF(ISBLANK(RC[-4]),"""",R[-1]C[1])"
Next i

 

[Ömer]

Merhaba,

Sorunuzla ilgili küçük bir örnek dosya ekleyerek açıklama yapınız. Ayrıca konu başlığını sorunuzun içeriğine uygun olacak şekilde belirlemenizi rica ederim.

.

 

[security]

Merhaba aşağıdaki kodu çalıştırdığımda hata alıyorum. Konu hakkında yardımlarınızı rica ederim.


Sheets("Sayfa 1").Select
Dim sat As Long, i As Long
sat = Sheets("Sayfa 1").Cells(65536, "A").End(xlUp).Row
sat = Sheets("Sayfa2").Cells(65536, "A").End(xlUp).Row
For i = 2 To sat
Sheets("Sayfa 1").Cells(i, "D").Formula = "=IF(ISBLANK(RC[-4]),"""",R[-1]C[1])"
Sheets("Sayfa 2").Cells(i, "D").Formula = "=IF(ISBLANK(RC[-4]),"""",R[-1]C[1])"
Next i

örnek dosyayı inceleyiniz
kolay gelsin...