Private Sub btn_EXCEL_Click()
On Error GoTo Err_btn_EXCEL_Click

'Excel'le ilgili koddan işlem yapabilmek için öncelikle Tools-Reference menüsünden,
'Microsoft Excel 1x.0 Object Library referansını işaretlemek gerekiyor.
'Forumda da anlattığım şekilde, boş bir Excel dosyasında makro kaydet'i seçip,
'yapmak istediğim işlemleri yaptım ve oluşan makroyu
'buraya kopyalayıp, üzerinde ufak tefek düzeltmeler yaptım.
'Yazılan kodlara biraz dikkat edersen, ne yaptığını anlıyorsun

    '---------------------------------------------------------------------------------------------------------
    'Excel açılıyor ve başlıklar ayarlanıyor
    '---------------------------------------------------------------------------------------------------------
    Set ExcelDosyasi = CreateObject("Excel.Application")
    
    With ExcelDosyasi
        .Application.Visible = True
        .UserControl = True
        .Workbooks.Open Filename:=CurrentProject.Path & "\data.xls"
        .Range("B4").Value = Me.adı
        .Range("B5").Value = Me.yaşı
    End With
    Set ExcelDosyasi = Nothing
       
'Excel hücreye değer atamayı bu şekilde kaydediyor
'        .Range("B4").Select
'        .ActiveCell.FormulaR1C1 = "DENEME"
'Hücreye değer atamayı sen bu şekilde yapabilirsin.
'       .Range("A1").FormulaR1C1 = "DENEME"
'Hücreye değer atamayı böyle yapabilirsin.
'       .Range("A1").Value = "DENEME"
'Hücreye değer atamayı böyle de yapabilirsin. (Satır ve Sütun numarası ile)
'        .Cells(1, 1) = "DENEME"
'Benim bilmediğim farklı yöntemlerde olabilir.

Exit_btn_EXCEL_Click:
    Exit Sub

Err_btn_EXCEL_Click:
    MsgBox Err.Description
    Resume Exit_btn_EXCEL_Click

End Sub