Boşlukları silemiyorum lütfen acil yardım!!!

[aysebay]

Merhaba arkadaşlar bir muhasebe programı olan dos tabanlı lks'den excele bir döküm aldım, fakat raporu düzenleyebilmek için bazı verileri süzü kullanarak silmem gerekiyor. Sorunum şu; benim aldığım raporda kendiliğinden gelen boşluklar var ve bu boşluklar süzme işlemini yapmama izin vermiyor, satır sayısıyı az olsaydı boşluklara bir değer girip kolayca silebilirdim, fakat satır sayısı 18.324 olunca bunu yapmam olanaksız hale geliyor. Bana bu konuda yardımcı olursanız sizlere müteşekkir olurum, raporuma örnek teşkil eden dosyayı gönderiyorum. İlgilencek olan arkadaşlara şimdiden teşekkürler.

 

[Necdet]

Sayın aysebay,

Aşağıdaki kodları bir modüle bağlayın ve çalıştırın

Sub BOS_BATIR_SIL()
On Error Resume Next
Range("A:A").Select
Selection.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Range("A1").Select
End Sub

 

[zafer]

Merhaba

A sütununu seçiniz.
Düzen menüsü de Git'i seçiniz
Özel'i seçiniz.
Gelen pencerede Boşlukar 'ı işaretleyiniz

Sonra Düzen menüsünden sil Tüm satırı Enter

 

[aysebay]

BoŞluklari Sİlebİldİm...

Arkadaşım beni o kadar büyük bir yükten kurtardın ki anlatamam Allah senden razı olsun, çok teşekkür ederim.

 

[ahkork]

yardım için tşk ederim benim de işime yaradı bu kısım fakat ilave olarak bende böyle bir raporda istemediğim farklı değerleri de silmek istiyorum yani Örn olarak A sütununda boşluklardan farklı olarak birde "Error" , "Wrong", "False" ile başlayan satırlarıda silmek istiyorum desem ve bunları tekbir makroda birleştirmek istesem nasıl bir komut yazmam gerekir. Şimdiden tşk ederim. Bu yardım en az 1 saatlik bir uğraştan kurtarıcak beni

 

[AS3434]

A sütununda boşluklardan farklı olarak birde "Error" , "Wrong", "False" ile başlayan satırlarıda silmek istiyorum

Sadece bu kelimeler hücre içinde tek başına varsa aşağıdaki kodu kullanın.

Sub Makro1()
a = [a65536].End(3).Row
For z = a To 3 Step -1
If Cells(z, 1) = "" Or Cells(z, 1) = "error" Or Cells(z, 1) = "false" Or Cells(z, 1) = "wrong" Then
Rows(z).Delete
End If
Next
End Sub

 

[ahkork]

çok teşekkür ederim sadece bu cevabınla bile hergün yapmak zorunda olduğum işten en az 1 saati kurtarmış oldun yardımınla

peki dediğin gibi yani hücrede sadece o kelime değil de yani içinde error geçiyor , başlıyor veya error ile bitiyorsa extra olarak eklemem gereken " * " işaretimi olması gerekiyor

 

[AS3434]

Sayın ahkork

hücrede sadece o kelime değil de yani içinde error geçiyor , başlıyor veya error ile bitiyorsa extra olarak eklemem gereken " * " işaretimi olması gerekiyor

Şöyle deneyebilirsiniz.
Önce aranan kelimelerin geçtiği hücreleri renklendirdim ve sonra sildim.

Sub bulsil()
  a = [a65536].End(3).Row
  [a:a].Interior.ColorIndex = xlNone
  For Each hcr In Range("a2:a" & a)
  VR = UCase(Replace(Replace(hcr, "ı", "I"), "i", "İ"))
  KR1 = UCase(Replace(Replace("error", "ı", "I"), "i", "İ"))
  KR2 = UCase(Replace(Replace("wrong", "ı", "I"), "i", "İ"))
  KR3 = UCase(Replace(Replace("false", "ı", "I"), "i", "İ"))
  If VR Like "*" & KR1 & "*" Then hcr.Interior.ColorIndex = 6
  If VR Like "*" & KR2 & "*" Then hcr.Interior.ColorIndex = 6
  If VR Like "*" & KR3 & "*" Then hcr.Interior.ColorIndex = 6
  Next
      For z = a To 3 Step -1
      If Cells(z, 1) = "" Or Cells(z, 1).Interior.ColorIndex = 6 Then Rows(z).Delete
      Next
End Sub

Dosyayı inceleyin.

 

[ahkork]

Çok teşekkür ederim AS3434 eline emeğine sağlık