Excel Forum


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama



Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 11-10-2006, 13:24   #1
serkankeser
 
serkankeser kullanıcısının avatarı
 
Giriş: 02/03/2006
Şehir: Uşak/EŞME
Mesaj: 103
Excel Vers. ve Dili:
Office 2003 Türkçe
Varsayılan Boş Satır Silme

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.
Eklenmiş Dosyalar
Dosya Türü: xls Kitap1.xls (14.0 KB, 82 Görüntülenme)
serkankeser Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-10-2006, 13:30   #2
İdris SERDAR
Moderatör
 
İdris SERDAR kullanıcısının avatarı
 
Giriş: 21/10/2005
Mesaj: 12,704
Excel Vers. ve Dili:
Excel, 2013 - İngilizce
Varsayılan

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
__________________
Çalışmalarımı görmek için:

http://www.excelgurusu.com/

İdris SERDAR
İdris SERDAR Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-10-2006, 13:38   #3
Levent Menteşoğlu
Administrator
 
Levent Menteşoğlu kullanıcısının avatarı
 
Giriş: 13/10/2004
Şehir: Çorlu
Mesaj: 15,824
Excel Vers. ve Dili:
Excel 2010-Türkçe
Varsayılan

Alternatif olarak aşağıdaki koduda deneyebilirsiniz.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub sil()
[b1:b20].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub
__________________
FORUM KURALLARI



"Biz burada hep beraber, sevginin,saygının, alınterinin, mutluluğun makrosunu yazıyoruz. " Kaylan
Levent Menteşoğlu Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-10-2006, 13:39   #4
serkankeser
 
serkankeser kullanıcısının avatarı
 
Giriş: 02/03/2006
Şehir: Uşak/EŞME
Mesaj: 103
Excel Vers. ve Dili:
Office 2003 Türkçe
Varsayılan

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.
serkankeser Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-10-2006, 14:22   #5
serkankeser
 
serkankeser kullanıcısının avatarı
 
Giriş: 02/03/2006
Şehir: Uşak/EŞME
Mesaj: 103
Excel Vers. ve Dili:
Office 2003 Türkçe
Varsayılan

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....
serkankeser Çevrimdışı   Alıntı Yaparak Cevapla
Eski 22-11-2006, 10:48   #6
lsuersoy
Altın Üye
 
lsuersoy kullanıcısının avatarı
 
Giriş: 29/06/2005
Şehir: İstanbul
Mesaj: 158
Excel Vers. ve Dili:
MS Office 2013 64 Bit -Eng
Thumbs up Herkese Özellikle Sayın Yurttaş a teşekkürler..

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...
__________________
İşyerinde :
MS Office 2014 ENGLISH , MS SQL Server 2008 R2
lsuersoy Çevrimdışı   Alıntı Yaparak Cevapla
Eski 13-12-2006, 08:42   #7
mrt
 
mrt kullanıcısının avatarı
 
Giriş: 11/05/2005
Şehir: Kocaeli
Mesaj: 167
Excel Vers. ve Dili:
office 2003 tr & eng. office 2007 tr & eng.
Varsayılan Selamlar,

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.
Eklenmiş Dosyalar
Dosya Türü: xls boşsatır_ornek.xls (16.0 KB, 38 Görüntülenme)
__________________
Kızım Seni Çok Özledim. Cennette Buluşmak Umuduyla,(02.04.2007)

2003.Tr - İng.
2007.Tr - İng
mrt Çevrimdışı   Alıntı Yaparak Cevapla
Eski 13-12-2006, 08:59   #8
Ali
 
Ali kullanıcısının avatarı
 
Giriş: 21/07/2005
Mesaj: 7,318
Excel Vers. ve Dili:
İş:Excel 2007-Türkçe Ev:Excel 2003-Türkçe
Varsayılan

Aşağıdaki kodları modüle ekleyerek denermisiniz

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
 
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
Ali Çevrimdışı   Alıntı Yaparak Cevapla
Eski 14-12-2006, 14:28   #9
mrt
 
mrt kullanıcısının avatarı
 
Giriş: 11/05/2005
Şehir: Kocaeli
Mesaj: 167
Excel Vers. ve Dili:
office 2003 tr & eng. office 2007 tr & eng.
Varsayılan b sütünundaki hücrelerin ilk karakteri _ ise satır sil

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
mrt Çevrimdışı   Alıntı Yaparak Cevapla
Eski 14-12-2006, 14:29   #10
mrt
 
mrt kullanıcısının avatarı
 
Giriş: 11/05/2005
Şehir: Kocaeli
Mesaj: 167
Excel Vers. ve Dili:
office 2003 tr & eng. office 2007 tr & eng.
Varsayılan Teşekkür etmeyii unutmuşum.

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
mrt Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 18:13


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.


Bahis Forum - Define - Çorlu Kamera - Çorlu Petek Temizleme - Site Yönetimi
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden