Kemal Demir
Özel Üye
- Katılım
- 29 Temmuz 2004
- Mesajlar
- 2,108
Arkadaslar hepinize iyi gunler.
Sub SİL()
For x = 2 To 20
If Cells(x, 2).Value = "0" Then
Else
Rows(x).Delete
'Selection.Delete Shift:=xlUp
End If
Next
End Sub
Yukarıdaki kod'da B kolounda 0 değeri olmayan satırları silmeye yarayacak bir kod hazırladım ama bir seferde silmiyor ancak bunu 2 defa ve 3 defa calısıtırsan oluyor ki bu data 2 satırlık değil yaklasık 5000 civarı
bunu bir kaç defa yaparsam baya uzun zaman alacak
Bunu tek seferde silmesi için koddaki hatam nerede ?
İyi Çalışmalar.
Dosya Ek'tedir.
Sub SİL()
For x = 2 To 20
If Cells(x, 2).Value = "0" Then
Else
Rows(x).Delete
'Selection.Delete Shift:=xlUp
End If
Next
End Sub
Yukarıdaki kod'da B kolounda 0 değeri olmayan satırları silmeye yarayacak bir kod hazırladım ama bir seferde silmiyor ancak bunu 2 defa ve 3 defa calısıtırsan oluyor ki bu data 2 satırlık değil yaklasık 5000 civarı
bunu bir kaç defa yaparsam baya uzun zaman alacak
Bunu tek seferde silmesi için koddaki hatam nerede ?
İyi Çalışmalar.
Dosya Ek'tedir.