Aşağıdaki komutta kırmızı ile belirtilen satırın değerini nasıl aldırtabilirim. Yani sayfaya direk formülü yazıp excelin bulması yerine önce değeri vba da buldurup, sonra s1.cells(r,n) hücresine yazdırmak istiyorum.
Set s1 = Sheets("Sayfa1")
s1.Range("a2:cd65536").ClearContents
deg = "'C:\[Araç Takip Rapor Programı 1.0 Veri Girişi.xls]V.TABANI'!R"
On Error Resume Next
r = WorksheetFunction.CountA(Worksheets("Sayfa1").Range("A2:A65000")) + 2
For i = 2 To 5 'satır sayısı
n = 1
For j = 1 To 82 'sutun sayısı
s1.Cells(r, n) = "=" & deg & i & "C" & j
If s1.Cells(r, 1) = "" Then GoTo 1
n = n + 1
Next j
r = r + 1
Next i
1:
MsgBox "İşlem tamam"
Set s1 = Sheets("Sayfa1")
s1.Range("a2:cd65536").ClearContents
deg = "'C:\[Araç Takip Rapor Programı 1.0 Veri Girişi.xls]V.TABANI'!R"
On Error Resume Next
r = WorksheetFunction.CountA(Worksheets("Sayfa1").Range("A2:A65000")) + 2
For i = 2 To 5 'satır sayısı
n = 1
For j = 1 To 82 'sutun sayısı
s1.Cells(r, n) = "=" & deg & i & "C" & j
If s1.Cells(r, 1) = "" Then GoTo 1
n = n + 1
Next j
r = r + 1
Next i
1:
MsgBox "İşlem tamam"