Başka çalışma kitabına yazdırma

[magnet2014]

Merhaba

Kullanmakta Olduğum makro kodunun aşağıdaki kısmı debug hatası veriyor Nasıl bir düzenleme yapmalıyım ki asıl çalışma kitabım Ayni klasörde yer alan "Ödeme Talebi " isimli çalışma Kitabı'nı açarak Sheet1 sayfasındaki belirtilen hücrelere aşağıdaki verileri yazsın Ve bu sayfa açık beklesin? Yardımlarınız için teşekkürler

If MsgBox("ÖDEME TALEP FORMU OLUŞTURMAK İSTERMİSİNİZ ?", vbYesNo, "UYARI!") = vbNo Then

If CloseMode = 0 Then
Cancel = True
End If
Unload UserForm1
Else


Workbooks("Ödeme Talebi.xlsm").Worksheets("Sheet1").Range("B15").Va lue = ComboBox3.Value
Workbooks("Ödeme Talebi.xlsm").Worksheets("Sheet1").Range("F12").Va lue = TextBox4.Value
Workbooks("Ödeme Talebi.xlsm").Worksheets("Sheet1").Range("F15").Va lue = TextBox8.Value
Workbooks("Ödeme Talebi.xlsm").Worksheets("Sheet1").Range("F20").Va lue = TextBox5.Value
Workbooks("Ödeme Talebi.xlsm").Worksheets("Sheet1").Range("C23").Va lue = TextBox7.Value

MsgBox "KAYIT TAMAMLANDI ÖDEME FORMU OLUSTURULDU", , "BiLGi"

If CloseMode = 0 Then
Cancel = True
End If
Unload UserForm1

Workbooks("Ödeme Talebi.xlsm").Worksheets("Sheet1").Select
End If


Else

MsgBox "BOS ALANLAR VAR !!", , "BiLGi"


End If

End Sub

 

[muygun]

Merhaba Syn. magnet2014;
Altın üyesiniz. Neden örnek dosya eklemiyorsunuz.?
Bu tür sorularınıza daha hızlı cevap alabilmek için örnek dosya ekleyin.

Userformda CommandButton1 butonuna;

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
yol = ThisWorkbook.Path & "\Ödeme Talebi.xls"
Workbooks.Open (yol)
Sheets("Sheet1").Select

Cells(15, "b") = ComboBox1
Cells(12, "f") = TextBox4
Cells(15, "f") = TextBox8
Cells(20, "f") = TextBox5
Cells(23, "c") = TextBox7

Application.ScreenUpdating = True
MsgBox "İşlem BİTTİ."
End Sub

Kodlarını ekleyerek deneyin.
Eksik veri kontrolü ve userform kapatmayı ilave edersiniz.
İyi çalışmalar.

 

[magnet2014]

Merhaba Syn. magnet2014;
Altın üyesiniz. Neden örnek dosya eklemiyorsunuz.?
Bu tür sorularınıza daha hızlı cevap alabilmek için örnek dosya ekleyin.

Userformda CommandButton1 butonuna;

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
yol = ThisWorkbook.Path & "\Ödeme Talebi.xls"
Workbooks.Open (yol)
Sheets("Sheet1").Select

Cells(15, "b") = ComboBox1
Cells(12, "f") = TextBox4
Cells(15, "f") = TextBox8
Cells(20, "f") = TextBox5
Cells(23, "c") = TextBox7

Application.ScreenUpdating = True
MsgBox "İşlem BİTTİ."
End Sub

Kodlarını ekleyerek deneyin.
Eksik veri kontrolü ve userform kapatmayı ilave edersiniz.
İyi çalışmalar.

Mehmet Bey merhaba
Karışık bir çalışma kitabıydı Kafa karıştırmasın diye yüklemedim. Cevabınız için çok teşekkür ederim

Saygılarımla