f(×) - VBA - ✅ Biçimlendirme >> Makro / Formül | Sayfa 2 | Excel Destek - Excel Forumu
Konuyu başlatan valentino06
Ömer Hocam verileri biçimlendirmenin dışında aşağıya doğruda boş satırlarıda biçimlendiriyor. Ömer hocam bu sorunu çözebilirmiyiz. müsait olduğunuzda çok teşekkür ederim.
O zaman kod'daki SON DOLU SATIRın tespit edildiği kod satırına bakmak lazım.
Gerçek belgenizde formülsüz olan sütun hangisi ise o sütuna göre son satırı tespit etmek doğru olur.
Mevcut haliyle kod, son dolu satırı B sütununa bakarak buluyor.
Bu kod satırı son = Cells(Rows.Count, 2).End(3).Row şeklinde, buradaki 2 sayısı B sütunu anlamındadır.
B sütununda formül olabilir mi veya hücreyi BOŞ gibi görüyorsunuzdur ama
dolu kısmın altında içeriği BOŞLUK karakteri filan olan satırlar olabilir.
Ömer Hocam son satır işin durumuna göre daha uzun veya kısa olabilir eğer son satırı 8000 göre ayarlayabilirmiyiz.
Ömer Hocam Doğru söylüyormuşsunuz 190000 veri atmış silince düzeldi. çok teşekkür ederim.
Sayın@Ömer BARAN Hocam son ricam acaba excel tablosunu belirlemiş olduğum kişilere otomatik e mail attırabilirmiyiz. eğer e mail olmazsa bir uyarıda olabilir. örnek şu imalat grubunun kodlarının alt bileşenleri aynıdır. uyarısı
Sayın @valentino06 .
Bence konu açarken ilettiğiniz husus için makro ie çözüm bulundu.
Formül ile çözüm bekleniyor durumda ve bence yardımcı alan kullanılarak koşullu biçimlendirme ile çözüm bulunabilir, bakmak lazım.
Bence, e-posta için doğrusu yeni bir konu açmanız.
Açacağınız konuda çözümü sağlayan makronun uygulandığı (içerisinde olduğu) yeni bir belge eklerseniz
hem konu bütünlüğü korunur, hem de benzer ihtiyacı olanlar için kolay bulunabilir, yararlanılabilir olur diye düşünüyorum.
Açılacak konu da çözüme kavuştuğunda, buradaki makro ile e-posta makrosu kolaylıkla birleştirilebilir.
Ömer Hocam birşey fark ettim diğer imalat grupları normalde koyu olması gerekiyordu. kod çalışınca onlarda normal oluyor alt bileşenler gibi biçimlendirme yapılan haricinde kalan imalat gruplarından bahsetdiyorum. Ömer Hocam Örnek excel tablosunu ekliyorum.
Bu 1.xlsm dosyasında
27,28,29,30. satırlar ile 45,46,47,48. satırların
neden boyanmadığını biri bana anlatırsa iyi olur.
alt bileşenler aynı ve ilk satırlar farklı.
Sayın @leguminosea Kusura Bakmayın dışarı çıkmıştım. siyahAdetleri faklı birinde 1 Adet Diğerinde siyah Adet 6 Dolayısıyla aynı değil kg da farkı birisi 50 kg diğeri ise 298 kg Onun için biçimlendirme gerçekleşmedi.
#1 nolu mesajınızın eki olan 11.xlsx dosyasındaki açıklamanız ise;
Kırmızı renkli olan İmalat grupu kodu "T4EDA.KG21 " İmalat grupları koyu siyah ile görünüyor. ekteki örnekte imalat grup kodu farklı fakat alt bileşenlerin herşeyi aynı aynı olunca biçimlendirme uygulasın istiyorum.
ben de örnek dosyanızdaki açıklamaya göre 1. kıstas olarak sadece T4EDA.KG21 yazan yerleri yani B sütununu kıstas alıyordum.
Nicedir boşa kürek çekmişim.
Şimdi konu anlaşıldı.
Verdiğim makro kodun baş tarafındaki
Range("A7:H" & son).Font.Bold = False
satırını silin veya satırın sol başına TEK TIRNAK işareti ekleyin.
Teşekkürler Ömer Hocam Düzeldi
Yanlış düşünmüyorsam aşağıdaki kod da aynı sonucu veriyor. Denersiniz.
Çalışma mantığı şöyle:
B sütunundaki koyu yazıtipi olan ANAKOD'lardan 1 adet olanlara ait ALTKOD'ların birleşimi 1'den fazla ise biçimlendirme yapılır.
Sayın@Ömer BARAN Hocam son eklemiş olduğunuz kodda mükemmel çalışıyor. Ellerinize ve Emeğinize sağlık çok teşekkür ederim. Eğer mümkünse uyarı verdirme olasılığımız olabilirmi bilmiyorum bu koda ekleme yapılabilirmi.
Uyarı olayıyla ilgili olarak, bundan önceki kod cevabımı güncelledim.
Sayfayı yenileyerek, bundan önceki cevabımdaki kod'un yeni halini kullanarak denemeler yapınız.
Ancak şunu belirteyim; uyarı listesi uzadığında bu yöntem yerine,
sayfada uygun bir alana listelemek daha doğru olur diye düşünüyorum.
Ömer Baran Hocam çok teşekkür ederim. Çok sağolun.
Sayın @leguminosea hocam lütfen formülle yapılan sonucu paylaşabilir misiniz.
Formülle hazırlanan versiyon ektedir.
Tepkiler: Bilgi, valentino06 ve Ömer BARAN
Sayın @leguminosea çok teşekkür ederim. İş yerinde denerim. Dönüş yaparım.
Sayın@leguminosea Hocam Çok teşekkür ederim. Ellerinize emeğinize sağlık formül çalışıyor. Allah Yolunuzu açık etsin. lütfen konuyu kapatabilirmisiniz.
Verdiğim 2 makro cevabının yanısıra, kendimce oluşturduğum KOŞULLU BİÇİMLENDİRME seçeneğini de
uygulayıp, derli toplu bir belge oluşturayım dedim.
Genel f(×) ✅ Koşullu Biçimlendirmede Eşit Ve Büyük Olan Değerler
VBA ✅ VBA ile indis ve kaçıncı
VBA ✅ İç içe devam eden alt klasörler
VBA ✅ Makroda yuvarla ve eğer kullanımı