Kod:
Set rs1 = CurrentDb.OpenRecordset("Select tblpersonel.id,tblpersonel.sicil,tblpersonel.ad_soyad,tblpersonel.rutbe,tblpersonel.birim from tblpersonel")Kod:
Dim i
i = 3
Do Until rs1.EOF
excl.Range("A4") = excl.Range("A" & i).Value = rs1(0)
excl.Range("B4") = excl.Range("B" & i).Value = rs1(1)
excl.Range("C4") = excl.Range("C" & i).Value = rs1(2)
excl.Range("D4") = excl.Range("D" & i).Value = rs1(3)
' excl.Range("E").value = DLookup("birim", "tblpersonel")
i = i + 1
rs1.MoveNext
Loop
rs1.Close