Hücrenin boş olduğunu denetleme

[ozkan283]

Kolay gelsin,

İf range("B2") ="" and range("b3")="" and range("C2")="" and range("C3")="" then
Burada aslında 70 hücre daha var, tek tek yazmak haricinde seçtiğim 4 hücreyi veya 70 hücreyi tek satırda yazabiliyor muyuz?

 

[Korhan Ayhan]

Deneyiniz.

If WorksheetFunction.CountBlank(Range("B2:C100")) > 0 Then

 

[ozkan283]

Deneyiniz.

If WorksheetFunction.CountBlank(Range("B2:C100")) Then

Hata veriyor , eşittirden sonra "" koydum yine olmadı

 

[Korhan Ayhan]

Pardon koşulu eksik yazmışım. Önerimi revize ettim. Tekrar deneyiniz.

 

[ozkan283]

Yani B2:C100 arasındaki hücrelerde veri varsa siliyor yok ise msgbox ile bilgi veriyor. Fakat sizin koşulu yazınca msgbox çalışmıyor

 

[Korhan Ayhan]

Örnek dosya paylaşarak yapmak istediğiniz işlemi açıklarmısınız

 

[ozkan283]

Deneyiniz.

If WorksheetFunction.CountBlank(Range("B2:C100")) > 0 Then

MsgBox (" silinecek veri bulunamadı")
Exit sub
End if
Range("B2:h12").select
Selection.ClearContents
Range("A1").select

Sizin koşuldan sonra msgbox çalışmıyor

 

[Korhan Ayhan]

Benim önerdiğim sorgu aralıktaki GERÇEKTEN BOŞ olan hücreleri sayar.

 

[ozkan283]

Anladım hocam, benim ilk yazmış olduğum

İf range("B2") ="" and range("b3")="" and range("C2")="" and range("C3")="" then
MsgBox (" silinecek veri bulunamadı")
Exit sub
End if
Range("B2:h12").select
Selection.ClearContents
Range("A1").select

Bu şekilde yazmak yerine bu formülü kısaltabiliyor muyuz?
Yoksa hücrelere tek tek gidip bakması mı lazım

 

[Korhan Ayhan]

Böyle deneyiniz..

If WorksheetFunction.CountBlank(Range("B2:C100")) = 0 Then

 

[ozkan283]

Böyle deneyiniz..

If WorksheetFunction.CountBlank(Range("B2:C100")) = 0 Then

MsgBox çalışmıyor üstadım

 

[Korhan Ayhan]

Örnek dosya paylaşırmısınız..

 

[ozkan283]

Range("B2:h12").select
Selection.ClearContents
Range("A1").select
Bunu yazdım ve bu hücreler de ne varsa siliyor.fakat veri olmadığında msgbox ile uyarı versin dedim ve şu şekilde yazdım.

İf range("B2") ="" and range("b3")="" and range("C2")="" and range("C3")="" then
MsgBox (" silinecek veri bulunamadı")
Exit sub
End if
Range("B2:h12").select
Selection.ClearContents
Range("A1").select

Ama and kullanarak tüm hücreleri ( b2,3,4,5,6...yazmam gerekiyor. Bende sizin verdiğiniz

WorksheetFunction.CountBlank(Range("B2:C100"))=0 then
MsgBox (" silinecek veri bulunamadı")
Exit sub
End if
Range("B2:h12").select
Selection.ClearContents
Range("A1").select
ile yazınca msgbox çalışmıyor.

 

[Korhan Ayhan]

Örnek dosya paylaşırmısınız.