bu arada sonucu düzgün görmek için yukarıdaki koda TestDz(Soru, 4) = "Boş" satırı eklemiştim unutmuşum silmeyi, silinmeli dosyadaki koddan da

(01/06/2021, 14:09)berduş yazdı:         TestDz(Soru, 1) = Soru
        TestDz(Soru, 2) = sht.Cells(SozlukColl(KelimSira), Hdf + 2) 'Ana Kelimeyi diziye atama
        TestDz(Soru, 3) = sht.Cells(SozlukColl(KelimSira), -1 - Hdf + 2) 'Cevabı diziye atama
        TestDz(Soru, 4) = "Boş"'<<== bu satır Silinecek

@berduş hocam yarın deneyip bilgi vereceğim. Teşekkür ederim.

@berduş Hocam. Sorunsuz çalışıyor ellerinize sağlık. Kafamdakileri gerçekleştirip bitirdiğimizde siz ve @feraz hocam sayesinde Foruma güzel bir eğitim seti kazandırmış olacağız. Tekrar teşekkürler. Konuyu taşıyabilirsiniz.