Merhaba arkadaşlar, kurumdan yapılan ödemeleri excele kayıt etmemiz gerekiyor. Her ay sonunda ve yıl sonlarında döküm almamız gerekiyor. İstatistikleri kontrol etmek vs. Makam onayına sunmamız gerekiyor. Her yıl aynı çileyi çekiyoruz. Kolay olması açısından excelden makrolar yardımı ile bir uygulama oluşturdum. Fakat bu uygulamaya yazdığım bilgiler excele geçmiyor :/ Ve programdaki bazı klasik yerleri açılır pencere yapıp seçmesini sağlamam gerekiyor. Fakat ne yaptım ne ettimse bir türlü yapamadım.
Yardımcı olabilecek varmı?
Teşekkürler

Private Sub CommandButton1_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Sayfa1")

'find first empty row in database
iRow = ws.Cells.Find(What:="*", SearchOrder:=xlRows, _
    SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1

'check for a Name number
If Trim(Me.TextBox1.Value) = "" Then
  Me.TextBox1.SetFocus
  MsgBox "Lütfen Formu Doldurun"
  Exit Sub
End If

'copy the data to the database
ws.Cells(iRow, 1).Value = Me.TextBox1.Value
ws.Cells(iRow, 2).Value = Me.TextBox2.Value
ws.Cells(iRow, 3).Value = Me.TextBox3.Value
ws.Cells(iRow, 4).Value = Me.TextBox4.Value
ws.Cells(iRow, 1).Value = Me.TextBox5.Value
ws.Cells(iRow, 2).Value = Me.TextBox6.Value
ws.Cells(iRow, 3).Value = Me.TextBox7.Value
ws.Cells(iRow, 4).Value = Me.TextBox8.Value
ws.Cells(iRow, 1).Value = Me.TextBox9.Value
ws.Cells(iRow, 2).Value = Me.TextBox10.Value
ws.Cells(iRow, 3).Value = Me.TextBox11.Value
ws.Cells(iRow, 4).Value = Me.TextBox12.Value
ws.Cells(iRow, 1).Value = Me.TextBox13.Value
ws.Cells(iRow, 2).Value = Me.TextBox14.Value
ws.Cells(iRow, 3).Value = Me.TextBox15.Value
ws.Cells(iRow, 4).Value = Me.TextBox16.Value
ws.Cells(iRow, 1).Value = Me.TextBox17.Value
ws.Cells(iRow, 2).Value = Me.TextBox18.Value
ws.Cells(iRow, 3).Value = Me.TextBox19.Value
ws.Cells(iRow, 4).Value = Me.TextBox20.Value
MsgBox "KAYIT YAPILDI", vbOKOnly + vbInformation, "Veri Kaydedildi"
'clear the data
Me.TextBox1.Value = ""
Me.TextBox2.Value = ""
Me.TextBox3.Value = ""
Me.TextBox4.Value = ""
Me.TextBox5.Value = ""
Me.TextBox6.Value = ""
Me.TextBox7.Value = ""
Me.TextBox8.Value = ""
Me.TextBox9.Value = ""
Me.TextBox10.Value = ""
Me.TextBox11.Value = ""
Me.TextBox12.Value = ""
Me.TextBox13.Value = ""
Me.TextBox14.Value = ""
Me.TextBox15.Value = ""
Me.TextBox16.Value = ""
Me.TextBox17.Value = ""
Me.TextBox18.Value = ""
Me.TextBox19.Value = ""
Me.TextBox20.Value = ""
Me.TextBox1.SetFocus
End Sub


Private Sub CommandButton2_Click()
Unload Me

End Sub

Private Sub Label1_Click()

End Sub

Private Sub Label22_Click()

End Sub

Private Sub TextBox1_Change()

End Sub