Satırı değil satırdaki veriyi silmek

[Hakan ERDOST]

Private Sub CommandButton2_Click()
Sheets("veritabani").Select
For x = Cells(65536, 1).End(xlUp).Row To 2 Step -1
If Cells(x, 1) = ComboBox1.Text Then Rows(x).Delete
Next
End Sub


Bu kod ile seçtiğim satırdaki veriyi siliyorum.Ancak veri silindiğinde bu veriye bağlı diğer sayfalardaki formüller hata veriyor.

 

[Korhan Ayhan]

Selamlar,

Kodunuzdaki "Delete" ifadesi yerine "ClearContents" yazarak denermisiniz.

Not: Bu komut satırın içeriğini silecektir. Ve satır boş kalacaktır.

 

[Hakan ERDOST]

Sayın COSTCONTROL bu kezde tüm satırdaki verileri temizliyor .Teşekkürler birde Tüm satırı değilde örneğin A2:A43 aralığının temizlenmesi ve alttaki verinin bir üste geçmesi için nasıl bir değişklik yapmak lazım.

 

[Mahmut Kök]

Private Sub CommandButton2_Click()
Sheets("veritabani").Select
For x = Cells(65536, 1).End(xlUp).Row To 2 Step -1
If Cells(x, 1) = ComboBox1.Text Then Rows(x).Delete
Next
End Sub

Sayın COSTCONTROL bu kezde tüm satırdaki verileri temizliyor .Teşekkürler birde Tüm satırı değilde örneğin A2:A43 aralığının temizlenmesi ve alttaki verinin bir üste geçmesi için nasıl bir değişklik yapmak lazım.

A2:A43 aralığı satırdaki değil sütundaki bir aralıktır; yani yukarıdan aşağıya 42 satır siliyorsunuz. Eğer satırda belli bir aralığı silmek isterseniz mesela A:G aralığını, aşağıdaki şekilde bir kod kullanabilirsiniz.
If Cells(x, 1) = ComboBox1.Text Then range( **aralık** ).clearcontents

 

[Hakan ERDOST]

Sayın mesleki öncelikle özür ve Teşekkür.
Private Sub CommandButton2_Click()
Sheets("veritabani").Select
For x = Cells(65536, 1).End(xlUp).Row To Step - 1
If Cells(x, 1) = ComboBox1.Text Then Range("A2:AQ11").ClearContents
Next
End Sub
kodu şeklinde değiştirdim ancak çalışmıyor.

 

[Korhan Ayhan]

Selamlar,

Bahsettiğiniz gibi sabit bir aralığı silmek istiyorsanız neden döngü kullanıyorsunuz buna anlam veremedim. Örnek bir dosya ekleyip ne yapmak istediğiniz açıklarsanız daha faydalı olacaktır.

 

[Hakan ERDOST]

İlginize teşekküreler başka bir sorun sebebi ile dosya
http://www.excel.web.tr/showthread.php?t=26013
linkte