Dolu Hücrelerin seçilmesi

Cevapla
drejan62
Mesajlar: 4
Kayıt: Cum Ara 08, 2023 11:07 am
Lokasyon: Ordu
Meslek: Finans Uzmanı
Adınız: Ercan
Soyadınız: Yıldız

Dolu Hücrelerin seçilmesi

Mesaj 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
erseldemirel
Mesajlar: 77
Kayıt: Cmt Haz 24, 2023 12:23 am
Web Sitesi: https://erseldemirel.com.tr/
Adınız: Ersel
Soyadınız: Demirel

Re: Dolu Hücrelerin seçilmesi

Mesaj 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
drejan62
Mesajlar: 4
Kayıt: Cum Ara 08, 2023 11:07 am
Lokasyon: Ordu
Meslek: Finans Uzmanı
Adınız: Ercan
Soyadınız: Yıldız

Re: Dolu Hücrelerin seçilmesi

Mesaj gönderen drejan62 »

Ersel Bey
İlginizi teşekkür ederim ama

If Not IsEmpty(cell) And cell.Value <> "" Then

bu satır hata veriyor
erseldemirel
Mesajlar: 77
Kayıt: Cmt Haz 24, 2023 12:23 am
Web Sitesi: https://erseldemirel.com.tr/
Adınız: Ersel
Soyadınız: Demirel

Re: Dolu Hücrelerin seçilmesi

Mesaj 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.
drejan62
Mesajlar: 4
Kayıt: Cum Ara 08, 2023 11:07 am
Lokasyon: Ordu
Meslek: Finans Uzmanı
Adınız: Ercan
Soyadınız: Yıldız

Re: Dolu Hücrelerin seçilmesi

Mesaj 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.
erseldemirel
Mesajlar: 77
Kayıt: Cmt Haz 24, 2023 12:23 am
Web Sitesi: https://erseldemirel.com.tr/
Adınız: Ersel
Soyadınız: Demirel

Re: Dolu Hücrelerin seçilmesi

Mesaj gönderen erseldemirel »

Dosya ekledim ben hata almıyorum. Bir indirip deneyin
Bu mesaja eklenen dosyaları görüntülemek için gerekli izinlere sahip değilsiniz.
drejan62
Mesajlar: 4
Kayıt: Cum Ara 08, 2023 11:07 am
Lokasyon: Ordu
Meslek: Finans Uzmanı
Adınız: Ercan
Soyadınız: Yıldız

Re: Dolu Hücrelerin seçilmesi

Mesaj gönderen drejan62 »

Çok ilginç.
Çok teşekkür ederim sağolun.
Tamamdır
MKURU
Mesajlar: 8
Kayıt: Çrş Tem 12, 2023 9:28 am
Lokasyon: Düzce
Meslek: Veteriner Sağlık Teknisyeni
Adınız: Mehmet
Soyadınız: KURU

Re: Dolu Hücrelerin seçilmesi

Mesaj 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.?
erseldemirel
Mesajlar: 77
Kayıt: Cmt Haz 24, 2023 12:23 am
Web Sitesi: https://erseldemirel.com.tr/
Adınız: Ersel
Soyadınız: Demirel

Re: Dolu Hücrelerin seçilmesi

Mesaj gönderen erseldemirel »

For Each cell In ws.UsedRange

yerine

For Each cell In ws.Range("B5:M500")

kullanın
Cevapla
  • Benzer Konular
    Cevaplar
    Görüntüleme
    Son mesaj