Private Sub Komut6_Click()
Dim exceldosyasi As Object
Set exceldosyasi = CreateObject("Excel.Application")
With exceldosyasi
.Workbooks.Open FileName:=CurrentProject.Path & "\deneme.xlsx"
.Cells(2, 3).Value = Me.AdSoyad
.Cells(4, 3).Value = Me.Cep
.Cells(6, 4).Value = Me.Ev_Tel
.Sheets("tel").PrintOut
.Workbooks.Close 'Burasını ekleyiniz...................................................
End With
End Sub
Şunu denermisiniz...
Please return your positive or negative ...