(20/02/2021, 16:53)userx yazdı: Sayın hturkavci03

Loop ile rs.Close arasına alttaki kodları ekleyerek dener misiniz?

            

Excl.Range("A" & i + 1).Value = " Pers.Md. " & Dlookup ("ADI_SOYADI", "IMZA", "YETKISI='PATRON-2'")

Excl.Range("G" & i + 3).Value = Dlookup ("ADI_SOYADI", "IMZA", "YETKISI='PATRON-1'")

Excl.Range("G" & i + 4).Value = Dlookup ("GOREVI", "IMZA", "YETKISI='PATRON-1'")

Excl.Range("G" & i + 5).Value = Dlookup ("YETKISI", "IMZA", "YETKISI='PATRON-1'")

        Excl.Range("G" & i + 3, "G" & i + 5).HorizontalAlignment = xlCenter

Oluyor ancak ben paraf ve imzalayan bilgilerini Tablo1 formundaki alanlardan çekmek istiyorum.
Ayrıca GAYRİ MEVCUT BEYANI listesindeki S.NO alanını ortalamak, MAZERETİ alanını sola yaslamak istiyorum.
Yanlış anlamayın, bu uygulamayı Access bilmeyen 3 kişi daha kullanacak, Paraf ve imzalayan değiştiğinde seçimlerle yapsınlar istiyorum.