MAKRO İLE BOŞ ve İSTEMEDİĞİM SATIRLARI NASIL SİLERİM

[zaruri]

MAKRO ÝLE BOÞ ve ÝSTEMEDÝÐÝM SATIRLARI NASIL SÝLERÝM

15 veya 20 Sayfa olan ve her sayfada birkaç satır aralarla dökümler oluyor
"Süz" bu konuda yeterli değil
Ekde örneğini gönderdiğim
Bu boş satırları nasıl silebilirim.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:2c1582044d]Sub bossil()
Columns("A:B").SpecialCells(xlCellTypeBlanks).Delete
End Sub
[/vb:1:2c1582044d]

 

[zaruri]

İlginize teşekkür ederim Fakat bu formül satırları değil hücreleri siliyor ve bilgiler karışıyor

 

[TRABLUS]

fakat bu liste aslen 20 sütun

O zaman kodu aşağıda ki gibi uygulayın,
Ayrıca, Araçlar > Makro > makrolar dedikten sonra aşağıda makro yeri var onu tüm açık çalışma kitapları şeklinde uygulayın o zaman bütün dosyalarınızda kullanabilirsiniz.

Sub bossil()
Columns("A:T").SpecialCells(xlCellTypeBlanks).Delete
End Sub

 

[zaruri]

Çok işime yarayacağına inandığım bir förmül oluştu
çok teşekkür ederim

 

[zaruri]

Bir sorun oluştu ilgilerinize örnek gönderiyorum.

 

[TRABLUS]

Dosyanız hep bu şekilde standart geliyor, siz sadece mavi satırlar kalsın diğerleri mi silinsin istiyorsunuz?

 

[zaruri]

Dosyalar standat değil, sürekli değişiyor.

Hücrelerinin tamamı boş olan satırlar silinsin
Ve standart başlıkların da silimesini istiyorum

Satırları ben sonradan mavi yaptım

bu dosya değişen sayfalarda ve hergün yenileniyor.

 

[zaruri]

Bir örnek tablo ile silinmesini ve kalmasını istediğim satırları gönderiyorum

 

[veyselemre]

[vb:1:febd32ba7e]Sub bossil()
Dim adres()
son = [b65536].End(3).Row


For x = 1 To son
If Cells(x, 2) = "Kosul" Then
a = a + 1
ReDim Preserve adres(1 To a)
adres(a) = Cells(x, 2).CurrentRegion.Address
End If
Next

For x = 1 To UBound(adres)
For Each satir In Range(adres(x)).Rows
Cells(satir.Row, 256) = "*"
Next
Next

For x = son To 1 Step -1
If Cells(x, 256) <> "*" Then Rows(x).Delete shift:=xlUp
Next
Columns(256).Delete

End Sub[/vb:1:febd32ba7e]

 

[zaruri]

Veyselemre
Beni Çok sevindirdiniz.
Makroyu çalıştırdıktan sonra gözlerime inanamadım.
Allah Bilginizi artırsın.
Teşekkür ederim

 

[zaruri]

veyselemre,
Ben bu visual basic kodunu bir türlü sabitleştiremedim her yeni sayfa açtığımda tekrar kopyalamam gerekti

Bu formüle sabit bir düğme oluşturabiliryiz

 

[veyselemre]

kodları bir modül içerisine kopyalayın,
hangi sayfadan çağırırsanız o sayfa da çalışır

 

[zaruri]

veyselemre,
Alt-F11 çağırıyorum ,module1 formulü yapıştırıyorum
kayıt Microsft Excel Eklentisi kayıt.
Eklentilerden İşaretliyorum
tamam çalışıyor.
Fakat yeni bir Kitap açıyorum

Burada kayıt ettiğim formule ulaşamıyorum

Bir konuyu atlıyorum fakat ne?

 

[Metin Karaağaç]

bu şekilde yaparsanız sadece o kitapta çalışır.


Araçlar/özelleştir/komutlar/makrolar
özel düğmeyi tut, yardımın yanına bırak
düğmeye tıkla, pencereden kaydettiğin makroyuı işaretle
artık her excel sayfasını açtığında bu düğme ile çalıştırabilirsin

 

[zaruri]

pencereyi açtığımda mokroyu göremiyorum kayıt da bir yanlışlık var!

 

[zaruri]

pencereden makroya ulaşamıyorum

pencereye gelmiyor

makronun kaydında bir yanlışlık yapıyorum

herhalde.

 

[Metin Karaağaç]

makro gözükmeyecek zaten
düğmeye basıtığınızda çalışacak

 

[Metin Karaağaç]

bu arada,
benim söylediğim yöntemde excel eklentisi yapmanıza gerek yok

 

[Metin Karaağaç]

boş bir excel sayfasının modülüne kodu yapıştırın.
sonra benim dediklerimi yapın
o kadar