![]() |
| ![]() |
|
DUYURU SİSTEMİ / REKLAM PANOSU |
Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
![]() |
![]() |
|
Paylaş | Konu Araçları | Görünüm Modları |
![]() |
#1 |
Giriş: 02/03/2006
Şehir: Uşak/EŞME
Mesaj: 103
Excel Vers. ve Dili:
Office 2003 Türkçe |
![]() Herkese iyi günler;
Arkadaşlar Excel'de A1:A20 arasındaki hücrelerdeki boş satırları silmek istiyorum. Örnek dosyayı ekte gönderiyorum. İlgilenen arkadaşlara şimdiden teşekkürler. |
![]() |
![]() |
![]() |
#2 |
Moderatör
Giriş: 21/10/2005
Şehir: Ankara
Mesaj: 14,767
Excel Vers. ve Dili:
Excel, 2016 - İngilizce |
![]() Aşağıdaki kodları deneyin.
Sub Bossatirsil() LastRow = ActiveSheet.UsedRange.Row - 1 + _ ActiveSheet.UsedRange.Rows.Count Application.ScreenUpdating = False For k = LastRow To 1 Step -1 If Cells(k, 1) = "" Then Rows(k).Delete Next k End Sub |
![]() |
![]() |
![]() |
#3 |
Administrator
Giriş: 13/10/2004
Şehir: Çorlu
Mesaj: 15,896
Excel Vers. ve Dili:
Excel 2010-Türkçe |
![]() Alternatif olarak aşağıdaki koduda deneyebilirsiniz.
__________________
FORUM KURALLARI ![]() "Biz burada hep beraber, sevginin,saygının, alınterinin, mutluluğun makrosunu yazıyoruz. " Kaylan |
![]() |
![]() |
![]() |
#4 |
Giriş: 02/03/2006
Şehir: Uşak/EŞME
Mesaj: 103
Excel Vers. ve Dili:
Office 2003 Türkçe |
![]() Sayın Yurttas Sayın Leventm çok teşekkür ederim. Sorunumu yine bir çırpıda hallettiniz. İki Kodda sorunsuz çalışıyor.
Çok teşekkür ederim. İyi günler. |
![]() |
![]() |
![]() |
#5 |
Giriş: 02/03/2006
Şehir: Uşak/EŞME
Mesaj: 103
Excel Vers. ve Dili:
Office 2003 Türkçe |
![]() Sayın Leventm; Sayın Yurttaş iki kodlada sayfada çalışırken başka bir sorunum ortaya çıktı. Eğer bir kaç satır birleştirilmişse birleştirilme yapılan en üstteki hücre harici hepsi siliniyor. Birleştirilmiş hücrelerin silinmemesi için yardımlarınızı bekliyorum.
Bu mesaj en son " 11-10-2006 " tarihinde saat 14:28 itibariyle serkankeser tarafından düzenlenmiştir.... |
![]() |
![]() |
![]() |
#6 |
Giriş: 29/06/2005
Şehir: İstanbul
Mesaj: 158
Excel Vers. ve Dili:
MS Office Professional Plus 2013 64 Bit -Eng MSSQL 2012 R2 64 Bit |
![]() Merhaba arkadaşlar , Forum kurallarında teşekkür etmenin yasak olup olmadığına bakmadım...21.11.2006 da ...Excel 2003 de boş satırları silen kodu yazmak için çok uğraşmış ama başaramamıştım...Sayın "yurttaş" ın foruma eklemiş olduğu kodu kullandığım zaman problemin çözüldüğünü tespit ettim...Kendisine teşekkürleri borç biliyorum....Bu forumun kurucularina da teşekkürediyorum...
Paylaştıkça çoğalan iki şey vardır...Bilgi ve Sevgi...
__________________
[SIZE=1][B][COLOR=Red]MS Office Professional Plus 2013 ENGLISH , MS SQL Server 2012 R2 , Visual Studio 2010 , Logo Tiger Plus 2.29 [/COLOR][/B][/SIZE] |
![]() |
![]() |
![]() |
#7 |
Giriş: 11/05/2005
Şehir: Kocaeli
Mesaj: 167
Excel Vers. ve Dili:
office 2003 tr & eng. office 2007 tr & eng. |
![]() Ekli dosyada farklıl sutunlarda dolu verilerim var.
Ben seçilen satıra ait tüm hücreler boş ise o satırı silmek istiyorum.
__________________
Kızım Seni Çok Özledim. Cennette Buluşmak Umuduyla,(02.04.2007) 2003.Tr - İng. 2007.Tr - İng |
![]() |
![]() |
![]() |
#8 |
Özel Üye
Giriş: 21/07/2005
Mesaj: 7,409
Excel Vers. ve Dili:
İş:Excel 2013-Türkçe Ev:Excel 2010-Türkçe |
![]() Aşağıdaki kodları modüle ekleyerek denermisiniz
Sub sil() Application.ScreenUpdating = False Dim i As Integer t = ActiveSheet.UsedRange.Rows.Count For i = t To 1 Step -1 If IsEmpty(Cells(i, 1)) And IsEmpty(Cells(i, 2)) And IsEmpty(Cells(i, 3)) And IsEmpty(Cells(i, 4)) Then Rows(i).Delete Shift:=xlUp End If Next i Application.ScreenUpdating = True End Sub |
![]() |
![]() |
![]() |
#9 |
Giriş: 11/05/2005
Şehir: Kocaeli
Mesaj: 167
Excel Vers. ve Dili:
office 2003 tr & eng. office 2007 tr & eng. |
![]() Sub satirsil2()
Application.ScreenUpdating = False Dim Rng As Range Dim c As Range Set Rng = Range("B1:B65500") For Each c In Rng If c.Value = "0" Then c.EntireRow.Delete xlShiftUp End If Next c Application.ScreenUpdating = False End Sub if c.value="0" then satırına ActiveCell.FormulaR1C1 = "=IF(MID(RC[-12],1,1)=""_"",1,0)" formulunü nasıl adapte ederim ? istediğim B sütunundaki hücre _ ile başlıyorsa o satırı silmek istiyorum.
__________________
Kızım Seni Çok Özledim. Cennette Buluşmak Umuduyla,(02.04.2007) 2003.Tr - İng. 2007.Tr - İng |
![]() |
![]() |
![]() |
#10 |
Giriş: 11/05/2005
Şehir: Kocaeli
Mesaj: 167
Excel Vers. ve Dili:
office 2003 tr & eng. office 2007 tr & eng. |
![]() Sn. froctose cevabınız için teşekkürler.
__________________
Kızım Seni Çok Özledim. Cennette Buluşmak Umuduyla,(02.04.2007) 2003.Tr - İng. 2007.Tr - İng |
![]() |
![]() |