Satırdaki verileri sayarak listenin altına ekleme yapma

[Hacı Bayram ÖZKAN]

Merhaba arkadaşlar; Ekli dosyamda föy oluşturuyorum, bunları Excel sayfasına şu kodla alt alta atıyor;
Private Sub CommandButton14_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


Bu kodlar listeye yazıldıktan sonra kaç adet olduğu
"LİSTENİN 2 ADET EVRAKTAN İBARET OLDUĞU TASDİK OLUNUR."


'Bundan Sonra Listenin iki satır altına B Sütunana TESLİM EDEN
'Bunun altına da Kişiyi örnek "Hacı ÖZKAN"
'G sütunan ise TESLİM ALAN
'Hemen Altına ComboBox5'deki veriyi yazsın.

Sheets("FÖY").Range("B").Value = "TELSİM ALAN" "bunu denedim olmadı
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

Ben araya kırmızı ile işaretli yeride yazmasını istiyorum, bunun için dosyada ekledim, yardımcı olacak veya olamayacak herkese teşekkürler.

 

[acolkesen1]

Merhaba,
kod aşağıdaki gibidir;
Sub bilgi_ekle()
say = WorksheetFunction.CountA(Range("a2:a" & [a65536].End(3).Row))
[a65536].End(3).Offset(3, 1) = "LİSTENİN " & say & " ADET EVRAKTAN İBARET OLDUĞU TASDİK OLUNUR"
[a65536].End(3).Offset(6, 1) = "TESLİM EDEN"
[a65536].End(3).Offset(6, 6) = "TESLİM ALAN"
[a65536].End(3).Offset(9, 1) = "Hacı ÖZKAN"
[a65536].End(3).Offset(10, 1) = combobox1
End Sub
not: Dosyanıza bakarak, "Hemen altına" ifadesini Hacı Özkan'ın altına olarak düşündüm.

 

[Hacı Bayram ÖZKAN]

eline sağlık abi deneyeceğim, dua ile kal.