Dolu Hücrelerin seçilmesi
-
- 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
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
Ç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
-
- Mesajlar: 84
- 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
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
-
- 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
Ersel Bey
İlginizi teşekkür ederim ama
If Not IsEmpty(cell) And cell.Value <> "" Then
bu satır hata veriyor
İlginizi teşekkür ederim ama
If Not IsEmpty(cell) And cell.Value <> "" Then
bu satır hata veriyor
-
- Mesajlar: 84
- 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
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.
Dosyanızı yada benzer bir örneğini ekleyin foruma bakalım.
-
- 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
Ö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.
Yeni bir çalışma kitabında test sayfası açtım. G2 ile m5 aralığı dolu birörnek yaptım bu hatayı verdi.
-
- Mesajlar: 84
- 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
Dosya ekledim ben hata almıyorum. Bir indirip deneyin
Bu mesaja eklenen dosyaları görüntülemek için gerekli izinlere sahip değilsiniz.
-
- 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
Çok ilginç.
Çok teşekkür ederim sağolun.
Tamamdır
Çok teşekkür ederim sağolun.
Tamamdır
-
- 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
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.?
-
- Mesajlar: 84
- 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
For Each cell In ws.UsedRange
yerine
For Each cell In ws.Range("B5:M500")
kullanın
yerine
For Each cell In ws.Range("B5:M500")
kullanın
-
- Benzer Konular
- Cevaplar
- Görüntüleme
- Son mesaj