silme makrosu

[galata_ibo]

beyler 200000 satırlık projem var j sütununda 1 olan kayıtların silinmesini istiyorum yardım edin.

 

[apocalyt]

şunu deneyin..

Sub daylight()
Application.ScreenUpdating=false
For x = 1 To [j200000].End(3).Row
If Cells(x, "j") = 1 Then
Cells(x, "j").Delete shift:=xlUp
x = x - 1
End If
Next x
Application.ScreenUpdating=true
End Sub

 

[galata_ibo]

For x = 1 To [j200000].End(3).Row burada hata verdi
object required run time 424 yazıyo hatada

 

[apocalyt]

dosyayı yüklermisiniz ??

 

[Necdet]

beyler 200000 satırlık projem var j sütununda 1 olan kayıtların silinmesini istiyorum yardım edin.

Sanırım burada hiç bayan yok diye düşündünüz

Böyle şeyler için ben kod yazmam.

• J sütununda değeri 1 olanları süzdürün.
• ilk görünen satırı seçin
• Shift tuşuna basarken End ve sonra aşağı oka basin
• Sağ klik ve satır sil