(13/05/2020, 22:07)m_demir yazdı: Hocam raporda rakamlar yok.

Alttaki yerleri kontrol edin örnek y5 yanlış bence

.Cells(.Range("A" & Rows.Count).End(3).Row + 1, 1) = Sheets(Z).[a1].Value

 .Cells(.Range("A" & Rows.Count).End(3).Row, 2) = Sheets(Z).[G5].Value

 .Cells(.Range("A" & Rows.Count).End(3).Row, 3) = Sheets(Z).[y5].Value

 .Cells(.Range("A" & Rows.Count).End(3).Row, 4) = Sheets(Z).[K4].Value