BOŞLUKLAR ARASINDAKİ VERİLER KALSIN, DİĞERLERİ SİLİN

[omyuga]

BOÞLUKLAR ARASINDAKÝ VERÝLER KALSIN, DÝÐERLERÝ SÝLÝN

merhaba arkadaslar. benim sorunum şu: excel de başka bir programdan veri alıyorum ve toplam 3 tablo halinde geliyor. her tablo arasındada 1 er satır boşluk geliyor. ben bu 3 tablodan ikincisini yani boşluklar arasında kalan veriyi almak istiyorum. daha dogrusu makro çalıştığında boşluklar arasında kalan veriyi bıraksın, diğerlerini silsin. böyle birşey yapmam mümkünmü??? teşekkürler..

 

[Ali]

A sütunu için:

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim Rng As Range
Dim c As Range
Set Rng = Range("A1:A500")
For Each c In Rng

If c.Value = "" Then
c.EntireRow.Delete xlShiftUp
End If
Next c
Application.ScreenUpdating = False
End Sub

 

[TRABLUS]

Sayın fructose, affınıza sığınarak bir şey eklemek istiyorum.
Sayın omyuga, bu tip durumlarda makro kaydetle bu olayı aşabileceğinizi belirtmek isterim. Yapmanız gereken araçlar > makro > yeni makro kaydet dedikten sonra, veri süz yapın en altta boş satırları bulun ve işaretleyin, satır sekmesinden boş satırları silin ve kaydı durdurun.
Bundan sonra ki tekrar silmek istediğiniz dosyalarınızda dosya açıkken tekrar araçlar > makrolar > kayıtlı makronuzu işaretleyip çalıştır dediğiniz vakit boşluklar otomatik olarak silinecektir.

 

[Ali]

Estagfurullah Sayın TRABLUS, benim sizlerden öğreneceğim çok şeyler var.
Ya bu forumdaki samimiyet çok hoşuma gidiyor TRABLUS, :hey:

 

[TRABLUS]

Estagfurullah Sayın TRABLUS, benim sizlerden öğreneceğim çok şeyler var.

Amacım size değil tüm üyelere böyle basit şeylerin makro kaydet ile yapılabileceğini göstermek, yoksa sizin bilginiz de tartışılmaz...
Bizimde, bu forumda sizin gibi insanlarla olmak inanın çok hoşumuza gidiyor..
Saygılarımla

 

[omyuga]

teşekkürler

 

[omyuga]

sayın trablus; bu işlemi nasıl yapabileceğim konusunda yardımcı olurmusunuz.

 

[abazya]

Snmyuga

Buradaki linkte uygulamalı olarak anlatılıyor

http://www.excel.web.tr/viewtopic.php?t=4153

 

[omyuga]

arkadaslar; makro oluşturma işlemini az da olsa biliyorum. sormak istediğim
boşluklar arasındaki satırları nasıl süzeceğimdi?????

a1:d20 aralığında verilerim olsun. 5. ve 10. satırlar boş olsun. bu boşluklar arasındaki veriyi süzemediğimi ifade etmiştim.

 

[Levent Menteşoğlu]

Eğer boşluk söz konusu ise filtrelemede sorun yaşayacaksınız. Bunun için boşluk olan satırları silen bir makro işinizi görürmü?

 

[omyuga]

evet. sanırım ben sorunumu tam ifade edemiyorum.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:a32e30919b]Sub bosluksil()
sonsat = [a65536].End(3).Row
For a = sonsat To 1 Step -1
If Cells(a, 1) = 0 Then Rows(a).Delete
Next
End Sub
[/vb:1:a32e30919b]

 

[omyuga]

BİRDE TABLO ÜZERİNDE GÃ?STEREYİM

 

[abazya]

Sayın omyuga, bu tip durumlarda makro kaydetle bu olayı aşabileceğinizi belirtmek isterim. Yapmanız gereken araçlar > makro > yeni makro kaydet dedikten sonra, veri süz yapın en altta boş satırları bulun ve işaretleyin, satır sekmesinden boş satırları silin ve kaydı durdurun.
Bundan sonra ki tekrar silmek istediğiniz dosyalarınızda dosya açıkken tekrar araçlar > makrolar > kayıtlı makronuzu işaretleyip çalıştır dediğiniz vakit boşluklar otomatik olarak silinecektir.

Evet makro kaydet yöntemi ile yaptım. Yada bunu istediğinizi düşünüyorum

 

[zafer]

Merhaba



Rows("1:5").Select
Selection.Clear
Rows("10:65000").Select
Selection.Clear

 

[omyuga]

Çok teşekkürler arkadaşlar yardımlarınız için. İyiki varsınız.. :mutlu:

 

[zafer]

Merhaba

Sayın Abazya
Benden öce göndermişsiniz.Mesajınızı görmemiştim
Saygılarımla

 

[abazya]

Sn omuga

Rica ederim kolay gelsin.

Dostum zafer ikinci cevap ikinci altarnatif niye olmasın hiçbir sakıncasıda yok