satır temizleme

[sisozen]

arkadaşlar...
satırı silmek değilde temizlemek istiyorum

Private Sub CommandButton3_Click()

satır = ActiveCell.Row
Rows(satır).Delete Shift:=xlUp

For i = 1 To WorksheetFunction.CountA(Range("a2:a9981"))

Cells(i + 1, 1) = i
Next

End Sub

 

[Korhan Ayhan]

Selamlar,

"Delete" komutu yerine "ClearContents" komutunu kullanın.

 

[sisozen]

daha önceden şunları denedim zaten..
Rows(satır).clearcontents Shift:=xlUp işlem yapmadı
Rows(satır).clearcontents =xlUp temizledi ama hata verdi
hatam nerede acaba

 

[Seyit Tiken]

Bu kodu bir deneyin.

Sub Makro1()
ActiveCell.CurrentRegion.ClearContents
ActiveCell.Select
End Sub

 

[sisozen]

bu seferde tablodaki herşeyi temizledi.
yani işe yaramadı.. ilginiz için teş...

 

[Seyit Tiken]

Bu sefer olması gerek.

Sub Makro7()
ActiveCell = ""
Selection.AutoFill Destination:="RC:RC[8]", Type:=xlFillDefault
Selection.ClearContents
End Sub

 

[Seyit Tiken]

Köşeli prantez içine alınan kod kısmını sütun sayısına göre değiştirebilirsiniz.
Örnek : RC:RC[50]

 

[sisozen]

temizliyor ama aşağıdaki koddada hata veriyor..zannediyorum başka bir hatam var.. veri girişim a3 v3 arası ama biz zaten satır temizlemeye çalışıyoruz..
Selection.AutoFill Destination:="RC:RC[608]", Type:=xlFillDefault

 

[Seyit Tiken]

1.Siz ="RC:RC[608]" kısmını :="RC:RC[256]", yapın.
2. "On Error Resume Next"(tırnak yok) kodların başına yazın.
3. Silinecek satırı seçili yapmayın. Sadece, hangi satır silinecekse; satırın ilk hücresine imleci(ilk hücreyi seçili yapmak) götürüp ve ilgili kodu çalıştırmak.
Bu şekilde yapıldığı zaman "On Error Resume Next" koduna gerek kalmaz.

 

[sisozen]

SAYIN SEYİT TİKEN..

USER FORMDA BUL İLE İLGİLİ KAYITI BULDURUYORUM.. BULUNCA KAYITIN EN BAŞINDA OLAN HÜCRE SEÇİYOR.. VE MAKROYU ÇALIŞTIRINCADA SADECE İLGİLİ KAYITIN EN BAŞINDAKİ HÜCREYİ SİLDİ.. SATIRIN DEVAMINDAKİ HÜCRELERDEKİ BİLGİLERİ SİLMEDİ

Private Sub CommandButton3_Click()
On Error Resume Next
ActiveCell = ""
Selection.AutoFill Destination:="RC:RC[256]", Type:=xlFillDefault
Selection.ClearContents


End Sub

 

[Seyit Tiken]

Bu sefer tamam olması gerek.
Kodu bir deneyin.

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

 

[sisozen]

Evet Şİmdİ Oldu ... Çok TeŞekkÜr Ederİm.. Kolay Gelsİn..