formüllü değeri kopyalamıyor

[igultekin2000]

iyi akşamlar, oluşturduğum makroda formülle oluşmuş sayı değerleri kopyalanmıyor.

Sub Aktar_Rapor()

Dim a(), b(), i As Long, Say As Long
Dim S1 As Worksheet, S2 As Worksheet
Set S2 = Sheets("Sayfa3")
Set S1 = Sheets("Sayfa2")
Application.ScreenUpdating = False: Application.Calculation = xlCalculationManual

    son = S1.Range("A" & Rows.Count).End(3).Row
    a = S1.Range("A3:K" & son).Value
   ReDim b(1 To UBound(a), 1 To 12)
        For i = 1 To UBound(a)
            Say = Say + 1
            b(Say, 1) = a(i, 1)
            b(Say, 2) = a(i, 3)
            b(Say, 4) = a(i, 5)
            b(Say, 5) = a(i, 6)
            b(Say, 6) = a(i, 7)
            b(Say, 7) = a(i, 8) ' formülle gelen değer
            b(Say, 9) = a(i, 10) ' formülle gelen değer
            b(Say, 10) = a(i, 9) ' formülle gelen değer
            
            If Len(a(i, 4)) > 1 Then
                b(Say, 3) = a(i, 4)
            Else
                b(Say, 3) = a(i, 11)
            End If
        Next i
    S2.Range("a3:K" & son).ClearContents
    S2.[a3].Resize(Say, 8) = b
    Application.ScreenUpdating = True: Application.Calculation = xlCalculationAutomatic
End Sub

Sayfa2' 8-9-10 sütunlar formülle oluşan değerler onları Rapor sayfasına almaya çalışıyorum. bu satırlar hariç diğerleri sorunsuz geliyor. teşekkürler

 

[Ziynettin]

S2.[a3].Resize(Say, 8) = b

Kod satırındaki 8 yerine 10 yazıp deneyiniz.

 

[igultekin2000]

sorun çözüldü

S2.[a3].Resize(Say, 8) = b

Kod satırındaki 8 yerine 10 yazıp deneyiniz.

teşekkürler, şimdi düzeldi