Ekstre Rapor almak word dosyasına

[kykbt]

Arkadaşlar Merhaba

Örnek dosyada firma listesi ve firmaların evraklarının var olup olmadığı belirtilmiş durumda.
Yapmak istediğim firma üzerini tıkladığımda bana word dosyasına firmanın eksik evrak listesini dökmesidir.

 

[kykbt]

Arkadaşlar Merhaba

Aşağıdaki kodda aramayı satırın tamamında değilde "E" den "I" ya kadar yapmasını ister isek nasıl değiştirmeliyiz.

Sub satırda_ara()
Dim sht As Worksheet, i As Integer
Set sht = Sheets("ÜYE OLANLAR")
If Not sht.Rows(i).Find("yok", , , 1) Is Nothing Then
Else
End İf
End Sub