Föy oluşturmak

[Hacı Bayram ÖZKAN]

Merhaba arkadaşlar; Ekli dosyamda Userform1 üzerine Föy oluştur bütonu var CommandButton14 bu büton ile evraklar için föy oluşturuyor, ancak FÖY sayfasında listenin alında Föy sayfasındaki ibarenin yazmasını istiyorum yardımcı olursanız sevinirim, teşekkürler.

 

[Hacı Bayram ÖZKAN]

Merhaba arkadaşlar bu dosyama bakmanız mümkün mü?

 

[Hacı Bayram ÖZKAN]

iYİ Akşamlar, bu dosyama bir bakarmısınız.

 

[Hacı Bayram ÖZKAN]

Merhaba arkadaşlar; ekli dosyamın Föy oluştur bütonu ile aşağıdaki koddan sonra B Kolonuna ve G Kolonuna TESLİN EDEN ve TESLİM ALAN yazmasını istiyorum, bakarsanız sevinirim.

Private Sub CommandButton14_Click()
CommandButton15_Click

Dim Satır As Long
Satır = Sheets("FÖY").Range("A65536").End(xlUp).Row + 1
Sheets("FÖY").Range("A" & Satır).Value = TextBox1.Text
Sheets("FÖY").Range("B" & Satır).Value = ComboBox1.Text
Sheets("FÖY").Range("C" & Satır).Value = TextBox4.Text
Sheets("FÖY").Range("D" & Satır).Value = TextBox5.Text
Sheets("FÖY").Range("E" & Satır).Value = TextBox8.Text
Sheets("FÖY").Range("F" & Satır).Value = ComboBox3.Text
Sheets("FÖY").Range("G" & Satır).Value = ComboBox2.Text
Sheets("FÖY").Range("H" & Satır).Value = TextBox7.Text

Liste oluşturulduktan sonra bu araya örnek dosyamdaki gibi bir kod istiyorum, buna bakarmısınız.

MsgBox "YENİ FÖY BELGESİ OLUŞTURULDU", vbInformation, "DİKKAT"

Dim Hacı
Hacı = MsgBox("BELGE HAZIR...YAZDIRILSIN MI?", vbYesNo, "UYARI")
If Hacı = vbNo Then Exit Sub
Sheets("FÖY").PrintOut From:=1, To:=1


MsgBox ("Föy Belgesi Yazıcıya Gönderildi.")
End Sub