Makro ile boş hücreyi bulmak

[Seli]

Hocam değer yazıp silince boş olmuyor mu.. Bir türlü olmadı

 

[Korhan Ayhan]

Kodun çalışma mantığı şu şekildedir.

Alandaki dolu hücreleri dikkate alır. Bir üstündeki boş hücreye dolu hücrelerin toplamını alır.

Kodu ilk çalıştırdığınızda tüm boş hücreler dolduğu için kodu ikinci kez çalıştırdığınızda işlem yapmayacaktır. İşlem yapabilmesi için hücreleri boşaltmanız gerekecektir.

 

[Seli]

Hocam bastan silip yaptım, yine de k20 yye k21:k32 toplamını yazmadı..

 

[Korhan Ayhan]

K20-K33 hücrelerini DELETE tuşuna basarak içeriğini silin. Sonrasında kodu deneyin.

Benim önerdiğim kodun çalışması için toplam alınacak hücrelerin tümünün hep boş olması gerekiyor.

 

[Seli]

Hocam kodu 20 den değilde 19 dan başlatınca calıstı..
Option Explicit

Sub seli()
Sheets("REF").Activate
Dim Veri As Range

Columns("K:K").Replace What:=" ", Replacement:="", LookAt:=xlPart

For Each Veri In Range("K19:K" & Cells(Rows.Count, "K").End(3).Row).SpecialCells(xlCellTypeConstants, 23).Areas
If Veri.Cells(1, 1).Offset(-1).Row > 19 Then
Veri.Cells(1, 1).Offset(-1) = WorksheetFunction.Sum(Veri)
End If
Next

MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[YUSUF44]

Paylaştığınız dosyada boş görünen her hücrede bir sürü boşluk karakteri var. Bu nedenle makro mantığı kurulamıyor. Sizin boş olduğunuz düşündüğünüz ve sarıya boyadığınız hücrelerde de aslında boşluk karakterleri var. Hücre tamamen boş olmayınca makro hangi hücreye toplam alacağını ve hangi hücreye kadar toplayacağını belirlemiyor.

Verdiğim kodlar örnek dosyanızda doğru sonuç vermektedir. Çünkü hücrenin sayı olup olmamasına göre işlem yapmaktadır. K sütununda sayı olmayan hücrelere altındaki sayı olan hücrelerin toplamını yazmaktadır.

 

[Seli]

Evet hocam anladım oldu şimdi çok çok teşekkür ediyorum emeğinize sağlık.. İyi çalışmalar..

 

[Seli]

Hocam merhaba, eğer h doluysa toplam aldırsın şeklinde nasıl düzenleyebilirim kodu? Teşekkürler..

 

[YUSUF44]

Bu işlem önceki sorunuzda da göreceğiniz gibi dosyaya göre farklı yöntemler gerektirebilir. Bu nedenle buna uygun ve asıl dosyanızla aynı yapıda örnek dosya paylaşmanız iyi olur.

 

[Seli]

Hocam yeni konu acarak paylastım cok teşekkürler..