2 listbox içeriğini tek buton ile temizlemek

[mfn562]

2 listbox içeriğini tek buton ile buton ile aynı anda temizlemek istiyorum. yardımcı olursanız sevinirim. yanlız ilk sütünun altında kalan kısımların temizlenmesini istoyorum

 

[Orion1]

İstediğiniz ekli dosyada olduğu gibimidir?

Private Sub CommandButton4_Click()
Sheets("a").Range("A2:E65536").ClearContents
ListBox1.RowSource = "a!A1:e1"
ListBox1.ColumnCount = 4
ListBox1.ColumnHeads = False
ListBox1.ColumnWidths = "50;55;100;150"
Sheets("b").Range("A2:E65536").ClearContents
ListBox2.RowSource = "b!A1:e1"
ListBox2.ColumnCount = 4
ListBox2.ColumnHeads = False
ListBox2.ColumnWidths = "50;55;100;150"
End Sub

 

[mfn562]

anlatımımda sanırım bir hata olmuş kusura bakmayın. ilk satırdan sonraki satırların tamamı silinmesi gerekiyor.

 

[Orion1]

anlatımımda sanırım bir hata olmuş kusura bakmayın. ilk satırdan sonraki satırların tamamı silinmesi gerekiyor.

İstediğiniz değişikliği yaptım.
Bir önceki mesajımdan indirip deneyiniz.

 

[mfn562]

isteğim gibi olmuş fakat ABCD altında kalan 2. satır silinmiyor eğer bu satırıda silebilirsek tamam olacak.

 

[Orion1]

isteğim gibi olmuş fakat ABCD altında kalan 2. satır silinmiyor eğer bu satırıda silebilirsek tamam olacak.

Şunu ta ilk baştan neden söylemiyorsunuz?! Ben ABCD yazan satırı görmek istiyorum diye!!
Dosyayı düzenledim .Önceki mesajımdan indirip deneyebilirsiniz.

 

[mfn562]

temizle butonuna bastığımda ABCD satırı silinmeyecek fakat bunun dışında kalan kısım silinecek redimler ile anlatmaya çalıştım inşallah sonuca yaklaştık.

 

[Orion1]

Önceki mesajımdan indirip deneyiniz.Bundan başkada olmaz.

 

[mfn562]

orion2 ustadım emeğin ve uğraşıların için ALLAH razı olsun. fakat yapılan işlem sadece listbox tan silme işlemi yapıyor. ben listboxta ilk satırın dışında kalan diğer satırları aynı zamanda excel sayfasından da silebilmek istiyorum.
teşekkürler..

 

[Orion1]

orion2 ustadım emeğin ve uğraşıların için ALLAH razı olsun. fakat yapılan işlem sadece listbox tan silme işlemi yapıyor. ben listboxta ilk satırın dışında kalan diğer satırları aynı zamanda excel sayfasından da silebilmek istiyorum.
teşekkürler..

Onuda hallederiz beeyaaav.

 

[Orion1]

İstediğiniz değişikliği yaptım.
Önceki mesajımdan indirip deneyebilirsiniz.

 

[mfn562]

şimdi istediğim oldu ALLAH razı olsun.