satır silmek

[86126]

arkadaşlar bul butonu ile userforma aldığım satırı silme istiyorum. yardımlarınızı bekliyorum. bul makrom
Private Sub CommandButton3_Click()
sat=combobox2.listindex+6
TextBox1 = cells(sat,"a")
TextBox3 = cells(sat,"c")
ComboBox4 = cells(sat,"d")
TextBox5 = cells(sat,"e")
ComboBox3 = cells(sat,"f")
TextBox7 = cells(sat,"g")
TextBox8 = cells(sat,"h")
TextBox9 = cells(sat,"I")
bulunan satır active olamdığından silemiyorum.

 

[ileriexcel]

'aktif hücrenin bir solundan ve aktif hücrenin on sağına kadar olan
'aralığı sildiriyoruz
Range(ActiveCell.Offset(0, -1).Address(False, False), ActiveCell.Offset(0, 10).Address(False, False)).Delete shift:=xlUp

 

[86126]

bul butonu ile userforma aktarılan satırı silmek istiyorum.

 

[Seyit Tiken]

Bu kodu deneyin.

Sub Düğme1_Tıklat()
Selection.EntireRow.Delete
End Sub

 

[86126]

seyit kardeş bu işe yaramadı. silmiyor

 

[zafer]

Merhaba

sat=combobox2.listindex+6
cells(sat,1).EntireRow.Delete

 

[erkankamilonas]

Range(Cells(sat, 1), Cells(sat, 9)).Rows.Delete

 

[86126]

teşekkürler arkadaşlar