-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Makro ile boş hücreyi bulmak
- Konbuyu başlatan magnet2014
- Başlangıç tarihi
- Katılım
- 15 Mart 2005
- Mesajlar
- 43,740
- Excel Vers. ve Dili
- Microsoft 365 Tr-En 64 Bit
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.
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.
- Katılım
- 15 Mart 2005
- Mesajlar
- 43,740
- Excel Vers. ve Dili
- Microsoft 365 Tr-En 64 Bit
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.
Benim önerdiğim kodun çalışması için toplam alınacak hücrelerin tümünün hep boş olması gerekiyor.
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
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
- Katılım
- 4 Ocak 2006
- Mesajlar
- 12,065
- Excel Vers. ve Dili
- İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
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.
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.
- Katılım
- 4 Ocak 2006
- Mesajlar
- 12,065
- Excel Vers. ve Dili
- İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
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.