1. sayfa (Toplam 1 sayfa)
Dolu Hücrelerin seçilmesi
Gönderilme zamanı: 08 Ara 2023, 11:11
gönderen drejan62
Merhabalar,
Çalışma sayfasında satır ve sütün sayısı değişiklik göstermektedir.
Örneğin kimi raporlamalarda g2-o25 aralığı dolu iken kimi raporlamalarda da g2 M10 aralığı dolu olmaktadır.
Makro ile sadece dolu hücrelerin seçimini nasıl yapabiliriz acaba?
Teşekkürler
Re: Dolu Hücrelerin seçilmesi
Gönderilme zamanı: 08 Ara 2023, 15:53
gönderen erseldemirel
Bu kod ile test sayfasındaki dolu hücreleri bulup seçer
Kod: Tümünü seç
Sub Dolusec()
Dim secilenHuc As Range
Set ws = ThisWorkbook.Sheets("test")
For Each cell In ws.UsedRange
If Not IsEmpty(cell) And cell.Value <> "" Then
If secilenHuc Is Nothing Then
Set secilenHuc = cell
Else
Set secilenHuc = Union(secilenHuc, cell)
End If
End If
Next cell
If Not secilenHuc Is Nothing Then
secilenHuc.Select
Else
MsgBox "Dolu hücre bulunamadı!"
End If
End Sub
Re: Dolu Hücrelerin seçilmesi
Gönderilme zamanı: 11 Ara 2023, 09:16
gönderen drejan62
Ersel Bey
İlginizi teşekkür ederim ama
If Not IsEmpty(cell) And cell.Value <> "" Then
bu satır hata veriyor
Re: Dolu Hücrelerin seçilmesi
Gönderilme zamanı: 11 Ara 2023, 10:00
gönderen erseldemirel
Merhaba. Hata olmaması lazım ama işte umulmadık bir durum olabilir. Birleşmiş hücreler vs gibi.
Dosyanızı yada benzer bir örneğini ekleyin foruma bakalım.
Re: Dolu Hücrelerin seçilmesi
Gönderilme zamanı: 11 Ara 2023, 10:39
gönderen drejan62
Özel bir dosya yok.
Yeni bir çalışma kitabında test sayfası açtım. G2 ile m5 aralığı dolu birörnek yaptım bu hatayı verdi.
Re: Dolu Hücrelerin seçilmesi
Gönderilme zamanı: 11 Ara 2023, 11:19
gönderen erseldemirel
Dosya ekledim ben hata almıyorum. Bir indirip deneyin
Re: Dolu Hücrelerin seçilmesi
Gönderilme zamanı: 11 Ara 2023, 11:31
gönderen drejan62
Çok ilginç.
Çok teşekkür ederim sağolun.
Tamamdır
Re: Dolu Hücrelerin seçilmesi
Gönderilme zamanı: 11 Ara 2023, 14:18
gönderen MKURU
Ersel bey bu kodu tüm sayfayı değil de örneğin B5:M500 aralığındaki dolu hücreleri seçmesi için nasıl düzenleyebiliriz.?
Re: Dolu Hücrelerin seçilmesi
Gönderilme zamanı: 11 Ara 2023, 15:21
gönderen erseldemirel
For Each cell In ws.UsedRange
yerine
For Each cell In ws.Range("B5:M500")
kullanın