satır sil komutu

[oguz demirbas]

mrb sevgili dostlar:

" A1'den A3000 e kadar olan hücrelerde eğer herhangi bir veri varsa veri olan satırı tamamen sil"

komutu nasıl yazılır?


teşekkür ederim...

 

[Metin Karaağaç]

Bunun için neden komuta ihtiyaç duyuyorsunuz?
A1:A3000 satırlarını seçip satır sil deseniz olmaz mı?

 

[veyselemre]

[vb:1:fb85af9e22]Sub dene()
Range("A1:A3000").SpecialCells(xlCellTypeConstants).EntireRow.Delete
End Sub
[/vb:1:fb85af9e22]

 

[oguz demirbas]

teşekkür ederim sayın veyselemre,

bu işlemi her 5 dakikada bir otomatik olarak yaptırabilirmiyim?

 

[Mahmut Bayram]

[vb:1:6b1c01413c]Sub besdk()
Application.OnTime Now + TimeValue("00:05:00"), "dene"
End Sub

Sub dene()
Range("A1:A3000").SpecialCells(xlCellTypeConstants).EntireRow.Delete
Call besdk
End Sub[/vb:1:6b1c01413c]

 

[oguz demirbas]

Sevgili dostlar:
1. bu komut dosya açıldığında 5 dakika sonra çalışmıyor. Ancak Alt F11 den run yaptığımda her 5 dakikada bir otomatik çalışmaya başlıyor.
dosyaya girdiğimde kendi kendine nasıl çalıştırabilirim?

2. Komut ilk çalıştığında A sütununda herhangi bir veri varsa o sütünu otomatik olarak siliyor. Buraya kadar herşey çok güzel. Ancak 2.ci 5 dakika sonra tekrar çalıştığında silinecek hücre yok uyarısı alıyorum. Bu uyarı ile birlikte komutu END yapmak zorunda kalıyorum. İsteğim şudur ki her çalıştığında uyarı vermeden sütunu silsin...

teşekkür ederim.....

 

[Levent Menteşoğlu]

Kodları aşağıdaki gibi değiştirin. sonra dosyayı kapatıp tekrar açın.

[vb:1:b1939fe303]Sub auto_open()
Application.OnTime Now + TimeValue("00:05:00"), "dene"
End Sub

Sub dene()
on error resume next
Range("A1:A3000").SpecialCells(xlCellTypeConstants).EntireRow.Delete
Call auto_open
End Sub [/vb:1:b1939fe303]

 

[oguz demirbas]

teşekkür ederim sayın leventm,

iyi çalışmalar....

 

[oguz demirbas]

1. A1'den A3000 e kadar olan hücrelerde eğer herhangi bir veri varsa veri olan satırı tamamen kırmızı yap


2. A1'den A3000 e kadar olan hücrelerde eğer herhangi bir veri varsa veri olan satırı tamamen Sayfa 3 'e gönder

komutları nasıl yazılır?


teşekkürler....

 

[veyselemre]

[vb:1:efbf4e445c]Sub DENE_1()
Range("1:3000").Interior.ColorIndex = xlNone
For x = 1 To 3000
If Cells(x, 1).Value <> Empty Then
Rows(x).Interior.ColorIndex = 3
End If
Next x
End Sub

Sub DENE_2()
For x = 1 To 3000
If Cells(x, 1).Value <> Empty Then
Rows(x).Cut
Sheets("Sayfa3").Select
son = [a65536].End(3).Row + 1
Cells(son, 1).Select
ActiveSheet.Paste
Sheets("Sayfa1").Select
End If
Next x
End Sub

Sub DENE_3()
For x = 1 To 3000
yeniden:
If Cells(x, 1).Value <> Empty Then
Rows(x).Cut
Sheets("Sayfa3").Select
son = [a65536].End(3).Row + 1
Cells(son, 1).Select
ActiveSheet.Paste
Sheets("Sayfa1").Select
Rows(x).Delete
GoTo yeniden
End If
Next x
End Sub[/vb:1:efbf4e445c]

 

[mchtozdemir]

Vba komutu ile belirlenen satırları silme komutu nasıl oluşturulur?

Kolonlar
A B C
Satırlar
1 Değer Değer Değer
2 Değer
3 Değer Değer Değer


Komut yardımıyla "B" kolonundaki boş hücrelerin bulunduğu satırları silmek için nasıl bir komut oluşturulabilir.

Emeğiniz için şimdiden teşekkürler.

M.Ozdemir

 

[Seyit Tiken]

Bu şekilde deneyiniz.

Sub BoşSatırlarıSil()
[B:B].SpecialCells(4).Delete 3
End Sub

 

[mchtozdemir]

Satır Sil

Seyit Tiken hocam kodlara pek aşina değilim. Deleteden sonra eklediğiniz 3 değeri neyi ifade ediyor.

 

[mchtozdemir]

Row Delete

Row Delete hakkında yardım?

İleti#1) mchtozdemir » 18 Ağu 2013 11:58
Ekli dosyada tüm tabloda formullerle dolu gelen veya boş geyeh hücre değerleri var. B kolonunda formülün sonucu eğer_yanlışsa_değer sonucunu döndürüyorsa bu değeri döndürdüğü satrları tamamıyla silmek istiyorum.

http://rapidshare.com/files/1739206597/Desktop.zip

 

[heavysharpa]

belli hücre aralıklarını silmek istiyorum

userformdan sayfa 1 e aktardığım verileri
a2 den a 101 ve p2 den p101 arası tüm hücrelerdeki verileri temizleyerek çıkış yapacağım. kodu nasıl yazmam gerekir.

 

[antonio]

Seyit Tiken hocam kodlara pek aşina değilim. Deleteden sonra eklediğiniz 3 değeri neyi ifade ediyor.

Seyit hocaya sorduğunuz soruyu ben size açıklayayım: 3 rakamı vb kodlarında (xlup) karşılığı dır. Yani sildikten sonra yukarıda ki satıra geç. Onu yazmasan da fazla bir şey fark etmez yine kod çalışır.