belirli ve boş hücreleri sil!

[ocamsul]

Arkadaşlar iyi haftalar. aşağıda vermiş olduğum kod ile belirli bir alanı siliyoruz. Ancak, bu işlemin akabinde, bu alana aktarılan verilerden sonra H9,I9,J9 dan başlamak üzre aşağıya doğru arada kalan içi boş hücre olması durumunda o satırların silinmesini nasıl sağlarım?


ActiveSheet.Range("A9:j19").ClearContents

 

[Seyit Tiken]

Aşağıdaki gibi deneyiniz.

Sub Düğme1_Tıklat()
[a9:j19].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

 

[N.Ziya Hiçdurmaz]

Yanıt

Bir deneyiniz.

Sub SIL()
For Each S In Range("H1:J100")
If S = "" Then
S.EntireRow.Delete SHIFT:=xlUp
End If
Next
End Sub

 

[ocamsul]

Sub SIL()
For Each S In Range("H1:J100")
If S = "" Then
S.EntireRow.Delete SHIFT:=xlUp
End If
Next
End Sub

Sn: V.Basic For Applications üstadım, verdiğiniz kod tam anlamıyla işimi görmedi.
Sn: Seyit Tiken üstadım, ilginize teşekkür ederim.

 

[ocamsul]

Arkadaşlar tekrar merhaba ekli DENEME8-2 de takıldım kaldım. yukarıda arkadaşlarında açıkladığı üzre kodları uyguladım ama benim istediğim sonuca tam olarak ulaşamadım. mevzumuzu basitçe anlatayım ;

1 - açılan kayıt ekranında girilmek istenen veri alanlarına bakiye, alacak ve kalan bilgisi girilecek; ancak bu formun 5 satırında da olabilir 10. satırındada hiç farketmez. bu durumda kod öncelikle o anki 150 sayfasındaki a9:j100 alanı içindeki tüm satırları silecek.
2 - daha sonra, bakiye, alacak ve kalan bölümlerinde hangi satır hizasına veri girişi olmamışsa o satırları silip sadece Userformdan girilen bakiye, alacak ve kalan bilgisi girilmiş satırları sayfaya kaydedecek ve sayfada bu satırlar kalacak.

Dostlar biraz karışık oldu ama umarım anlatabilmişimdir.

 

[ocamsul]

İnceleme imkanı bulan arkadaşlar ilginizi ve önerilerinizi bekliyorum!!!

 

[Skorpiyon]

Sayın ocamsul,

Dosyanız ektedir. Gecenin bu saatinde yanlış anlamadı isem galiba istediğiniz budur.

 

[ocamsul]

Sn: Sertkaya, üsdat çok teşekkür ederim. istediğim tam olarak buydu.(yanıtımı biraz geç verdim ama malu iş yoğunluğu)