Başka kod satırlarında da eksik/hatalı sonuçlar almanız kuvvetle muhtemel gibi görünüyor.
-- VBA ekranını açın ve CTRL+G tuşlarına basın (VBA ekranında küçük bir alan şeklinde IMMEDIADE penceresi açılacak).
-- Hata aldığınız kod satırının hemen üstüne,
Debug.Print deg4
şeklinde bir satır ekleyin ve kodu çalıştırın.
Açılan IMMEDIATE penceresindeki sonucu buradan paylaşın ve sonuçta istediğiniz değerin tam olarak ne olması gerektiğini belirtin.
O satırdaki hata için muhtemelen basit bir
REPLACE eklemesi gerekir gibi görünüyor (1 ile çarpılan şey muhtemelen SAYI
DEĞİL).
Ayrıca; bir de, eklediğiniz örnek PDF belgedeki verilere göre olması gereken sonuçları ilk veri satırına göre
eksiksiz yazarak elle doldurun.
Bu haliyle excel belgesinin yenisi (olması gereken sonuçların eksiksiz yazıldığı haliyle) ekleyin.
Hatta elinizde bulunan başka PDF belgeler de eklemeniz gerekebilir. Çünkü excel belgesindeki tüm sütunlara ait bilgilerin olduğu PDF belge(ler) olmalı ki tüm alanların kontrol edilme imkanı olabilsin.
Zamanım ne kadar olur bilemiyorum, mümkün olursa bakmaya çalışırım.
