gerekli hucreler bossa satırı silsin

[uguristanbul]

degerli arkadaslar
"data" sayfasında O P Q R S T U W sutunları boşsa karsılıgına gelen satırları silsin nasıl yapılır.
ornek:
a1: dolu
b1: dolu
c1:dolu
d1:dolu
e1:dolu
f1:dolu
g1:dolu
h1:dolu
ı1:dolu
j1:dolu
k1:dolu
l1:dolu
m1:dolu
n1:dolu
o1:bos
tüm satırı silsin
a1: dolu
b1: dolu
c1:dolu
d1:dolu
e1:dolu
f1:dolu
g1:dolu
h1:dolu
ı1:dolu
j1:dolu
k1:dolu
l1:dolu
m1:dolu
n1:dolu
o1:dolu
silmesin
nasıl yapabilirim

 

[karadami]

1) önceki sütunların hepsi dolu mu olacak ?
2) silsin derken satirin icerigini mi temizlesin yoksa komple mi silsin
3) P Q R S T U W sutunlarindaki degerler bossa oncekileri de mi silecek (s1 bossa a1:r1 araligini mi silecek bu kismi biraz aciklar misiniz)

 

[uguristanbul]

hocam
kod arşivine baktım kendime uyarlanacak bir kod bulamadım
orn:s1 bossa a1........ z1 aralıgını silecek
kendinden yukarda veya asagıda hucrelere (dolu veya bos) dokunmayacak
ancak tabiki bu kod a1.......z1ile a65536.......z65536 aralıgında calısacak
sadece tek bir satır icin degil
yardımınız icin tesekkur eder
saygılar sunarım

 

[karadami]

Sub sil()
For x = [b65526].End(3).Row To 1 Step -1
    For y = 15 To 23
If Cells(x, y).Value = Empty Then Rows(x).Delete
Next
Next
End Sub

bir module ekleyin ve bir dugmeye atayin

 

[Necdet]

Merhaba

F5 Tuşunu kullanmak gerek.

• A:O sütununu seçiniz
• F5 tuşuna basınız
• Özel
• Boşluklar ı seçip Tamama basınız
• Fare ile Sağ Tık
• Sil
• Tüm Satır
• Tamam

işte F5 tuşunun sırlarından biri

 

[karadami]

Merhaba

F5 Tuşunu kullanmak gerek.

• A:O sütununu seçiniz
• F5 tuşuna basınız
• Özel
• Boşluklar ı seçip Tamama basınız
• Fare ile Sağ Tık
• Sil
• Tüm Satır
• Tamam

işte F5 tuşunun sırlarından biri

vay be ne F5 miş. teşekkürler hocam. her sıkıştığımızda F5 e mi bassak ki acaba

 

[Necdet]

Sayın karadamı,

ben her sıkıştığımda basıyorum F5 tuşuna, terapi edici bir özelliği var

 

[uguristanbul]

hocam bunları otomatik olarak yapmalı userformdan data sayfasına veri aktarılıyor ve data sayfası kullanıcı erişimine kapalı cunki kullnacıcı burdaki bilgileri gormek şsterse raporlama ,kayıt,degiştir ,bul gibi user formlardan işlem yapabiliyor kullanılan tum sayfalar kullanıcıya kapalı

 

[Necdet]

Merhaba,

Yukarıda anlattıklarımın makro karşılığı :

Sub Macro1()
Columns("A:O").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.EntireRow.Delete
End Sub

 

[uguristanbul]

hocam
ellerin dert gormesin
tesekkur ve saygılar sunuyorum

 

[Necdet]

Kodları kısaltalım, daha iyi olur

Sub Macro1()
Columns("A:O").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub