xl.Sheets("Sayfa1").Select
With xlsheet
xl.Range("B13") = Dlookup ("[adi]", "Tablo1", "[Kimlik]=" & Me.Id)
xl.Range("B14") = Dlookup ("[soyada]", "Tablo1", "[Kimlik]=" & Me.Id)
End With
kodu yerine aşağıdakine benzer bir kod kullanmayı deneyebilirsiniz. hangi alan hangi sayfanın hangi hücresine gidecek belirleyebilirsiniz
xlwkbk.Sheets("sayfa1").Range("B13") = Dlookup ("[adi]", "Tablo1", "[Kimlik]=" & Me.Id)
xlwkbk.Sheets("sayfa2").Range("B13") = Dlookup ("[soyada]", "Tablo1", "[Kimlik]=" & Me.Id)