kayıttan sonra diğer veriler silinsin

[Hacı Bayram ÖZKAN]

Merhaba arkadaşlar; isteğimi ekli dosyamda anlattım, isteğim, kısaca şu;
GELEN sayfasındaki verileri FÖY sayfasına "FÖY OLUŞTUR" bütonu ile kayıt ediyorum, ancak kayıttan sonra en son kayıttan itibaren eğer altta veri varsa bunlar silinsin. Yani bu kodlar çalıştıktan sonra;

Private Sub CommandButton12_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 = TextBox19.Text 'sıra no
Sheets("FÖY").Range("B" & Satır).Value = TextBox1.Text 'Gönderen birim
Sheets("FÖY").Range("C" & Satır).Value = TextBox2.Text 'Tarihi
Sheets("FÖY").Range("D" & Satır).Value = TextBox3.Text 'Sayısı
Sheets("FÖY").Range("E" & Satır).Value = TextBox6.Text 'Konunun özeti
Sheets("FÖY").Range("F" & Satır).Value = ComboBox3.Text 'Nevi kısmı
Sheets("FÖY").Range("G" & Satır).Value = TextBox5.Text 'Eki
Sheets("FÖY").Range("H" & Satır).Value = TextBox7.Text 'Gittiği Yer

'Bu kodlarla kayıt yaptıktan sonra bu satırların altındaki veriler silinsin,
MsgBox "YENİ FÖY BELGESİ OLUŞTURULDU", vbInformation, "DİKKAT"

End Sub


Herseke teşekkürler.

 

[Hacı Bayram ÖZKAN]

Bu soruma bir bakabilir misiniz? Teşekkürler.

 

[Civan Jack]

Bu E lerin K lerin orada ne işi var ?

 

[Hacı Bayram ÖZKAN]

İşte zaten böyle bir durum olursa onları silmek için diyorum. Liste sıranın altındaki E ve K lar silinecek

 

[Civan Jack]

Kusura bakmayın çok saçma bir durum bu.
Uyarı: combobox2 ve combobx4 e veri aldırırken hangi sayfadan alacağını belirtin, belirtmişsiniz ama eksik olmuş tekrar bir kontrol edin.

 

[Hacı Bayram ÖZKAN]

Bu veriler ListBoxtan alıyor, alınan veriler tekrar Föy sayfasına kayıt ediliyor, bu kayıttan sonra isteğim, yani liste oluştuktan sonra alt kısımlarda veri varsa bunlar silinsin. İsteğim bu
Yani kodlar görevini yapılor, görevini yaptıktan sonra silmesini istiyorum.

 

[ZorBey_]

Merhaba tarzan hacı İyi Çalışmalar
İstediğiniz Böyle Bir Şeymi Acaba.

 

[Hacı Bayram ÖZKAN]

Buna benzerde değil üstadım;
Aynen şu normalde yukarıdaki kod ile kaydı yapacak, yaptıktan sonra
sıra sıra oluyor ya alt alta bundan sonraki veriler silinsin, bu koddan sonra
Private Sub CommandButton12_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 = TextBox19.Text 'sıra no
Sheets("FÖY").Range("B" & Satır).Value = TextBox1.Text 'Gönderen birim
Sheets("FÖY").Range("C" & Satır).Value = TextBox2.Text 'Tarihi
Sheets("FÖY").Range("D" & Satır).Value = TextBox3.Text 'Sayısı
Sheets("FÖY").Range("E" & Satır).Value = TextBox6.Text 'Konunun özeti
Sheets("FÖY").Range("F" & Satır).Value = ComboBox3.Text 'Nevi kısmı
Sheets("FÖY").Range("G" & Satır).Value = TextBox5.Text 'Eki
Sheets("FÖY").Range("H" & Satır).Value = TextBox7.Text 'Gittiği Yer

Burada olacak o kod
End Sub