Koşullu Biçimlendirme

[Believing]

Sayın Uzman Arkadaşlar,

Excel çalışma kitabı içerisinde K sütunu refaran alınarak, bu sütunun hangi hücresinde veri var ise o hücrenin bulunduğu satır B ile O sütunundaki tüm hücrelerin üst kenarı çizgili ve satır genişliği 36 piksel olarak yapılmak isteniyor. Detaylı anlatım ve örnek çalışma ekteki dosyada mevcut olup, konuya ilgi gösterecek uzman arkadaşlara şimdiden teşekkür ederim.

Saygılarımla.

 

[Huseyinkis]

Merhaba.

Dosyanızda B:Q sütunlarının üzerinden tutarak seçiniz. Daha sonra Koşullu Biçimlendirme /Yeni Kural /Biçimlendirilecek Hücreleri Belirlemek İçin Formül Kullan seçeneğini seçip aşağıdaki formülü çıkan alana yazıp Biçimlendir seçeneğinden kenarlıklar bölümüne geçip üst çizgi kısmını işaretleyiniz.

=EĞER($K1<>"";1;0)=1

Formülün açılımı seçilen alanda K sabit kalmak üzere aşağıya doğru bütün hücrelerin dolu olup olmadığına bakar.

Biçimlendirme ile sütun genişletme işlemi yapılamaya bilir fakat hücrelerdeki yazıların boyutları ve renklerini değiştirebilirsiniz.

 

[Necdet]

Merhaba,

Koşullu biçimlendirmede satır sütun ayarları yaptıramıyorsunuz. Ama çizgi için aşağıdaki formülü kullanabilirsiniz.

Biçimlendirilecek alanı seçiniz (1. satır dahil)

Koşullu Biçimlendirmede Biçimlendirilecek hücreleri belirlemek için Formül kullan seçin ve

aşağıdaki formülü yazın ve Kenarlıktın Sadece Üst kenarlığı seçin

=

=$K1<>""

İlgili sayfanın Kod bölümüne aşağıdaki kodları yazarsanız Veri giriş sırasında satır yüksekliğini ayarlar.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [K:K]) Is Nothing Or [B][COLOR=red]Target.Row < 5[/COLOR][/B] Then Exit Sub
    Rows(Target.Row).RowHeight = 27
End Sub

 

[Believing]

Sayın Huseyinkis,

Konuya gösterdiğiniz ve çok değerli yardımınız için size teşekkür ederim. Kuşullu biçimlendirme için verdiğiniz formül amacına ulaşmıştır.

Saygılarımla.

 

[Believing]

Sayın Necdet Bey,

Konuya gösterdiğiniz ve çok değerli yardımınız için size teşekkür ederim. Kuşullu biçimlendirme için verdiğiniz formül amacına ulaşmıştır. Ancak satır genişliği için yazdığınız kodu çalıştıramadım. Tabloya başlık ekleyeceğimi düşünerek 5. satırdan itibaren bu kodu nasıl kullanacağım konusunda biraz daha yardımınıza ihtiyacım var. Sizden yeniden yardım rica ediyorum.

Saygılarımla.

 

[Necdet]

Sayın Necdet Bey,

Konuya gösterdiğiniz ve çok değerli yardımınız için size teşekkür ederim. Kuşullu biçimlendirme için verdiğiniz formül amacına ulaşmıştır. Ancak satır genişliği için yazdığınız kodu çalıştıramadım. Tabloya başlık ekleyeceğimi düşünerek 5. satırdan itibaren bu kodu nasıl kullanacağım konusunda biraz daha yardımınıza ihtiyacım var. Sizden yeniden yardım rica ediyorum.

Saygılarımla.

Merhaba,

Basit bir ek ile halledilir. İlk mesajımda kodları düzelttim. Oradan alabilirsiniz.

 

[Believing]

Sayın Necdet Bey,

Çok özür dilerim çok değerli vaktinizi alıyorum ama, bütün satırları 32 piksel olarak sabitledi oysa, sadece K sütununda veri bulunan satırlara oygulaması gerekirdi.

Saygılarımla.

 

[YUSUF44]

Ben kodları denediğimde K sütununda K5 ve aşağıdaki hangi hücreye veri girersem o satırın yüksekliğini değiştiriyor. Başka satırlara karışmıyor. Yalnız bu değişikliği veri girerken yapmaktadır. eğer mevcut verilerin olduğu bir dosyada kullanacaksanız bu kodlar kullanılmaz.

 

[Believing]

Sayın YUSUF44,

Öncelikle size konuya gösterdiğiniz ilgi için çok teşekkür ederim. Sayın Necdet beyin anlatımında da var olan unsuru ben atlamışım, bunun için de nezdinizde sayın Necdet beyden özür dilerim. Bu dosyaya kapalı bir excel çalışma kitabından EĞER, İNDİS gibi formüller aracılığı ile veri aldığım için olmadığı anlaşılıyor. Bu durumda yeni bir koda ihtiyacım olduğu ortada olup, sizlerden yardım rica ediyorum.

Saygılarımla.

Tablo için kullanılan Formül:
=EĞER($A78="";"";EĞER(İNDİS('F:\Günlükler\[Data.xlsx]Satış Raporu'!$A:$AH;SATIR();KAÇINCI(K$4;'F:\Günlükler\[Data.xlsx]Satış Raporu'!$A$4:$AH$4;0))=0;"";İNDİS('F:\Günlükler\[Data.xlsx]Satış Raporu'!$A:$AH;SATIR();KAÇINCI(K$4;'F:\Günlükler\[Data.xlsx]Satış Raporu'!$A$4:$AH$4;0))))

 

[Necdet]

Sayın Necdet Bey,

Çok özür dilerim çok değerli vaktinizi alıyorum ama, bütün satırları 32 piksel olarak sabitledi oysa, sadece K sütununda veri bulunan satırlara oygulaması gerekirdi.

Saygılarımla.

evet dalgınlıkla verinin dolu olduğunu kontrol etmeyi unutmuşum.

Başka bir yerden veri alıyorsanız modülde çalışacak kodlara ihtiyacınız olabilir.

Sub SutunAyarla()
 
    Dim i   As Long
    Dim Son As Long
 
    Son = Cells(Rows.Count, "K").End(3).Row
    If Son < 5 Then Son = 5
 
    For i = 5 To Son
        If Not Cells(i, "K") = "" Then Rows(i).RowHeight = 27
    Next i
 
End Sub

 

[Believing]

Sayın Necdet Bey,

Çok özür dilerim kodu çalıştıramadım. Yukarıdaki kod hatalı olabilir mi? Sub SutunAyarla diye başlıyor, biz satırları ayarlamak istiyorduk, acab bu sebep ile çalışmıyor olabilir mi?

Sagılarımla.

 

[Necdet]

Sayın Necdet Bey,

Çok özür dilerim kodu çalıştıramadım. Yukarıdaki kod hatalı olabilir mi? Sub SutunAyarla diye başlıyor, biz satırları ayarlamak istiyorduk, acab bu sebep ile çalışmıyor olabilir mi?

Sagılarımla.

Çalışmaz tabi, aceleden yemeğe giderken denemeden yazdığım kod,

Cells yazacakken Cellls yazmışım yani 3 adet L vardı E o kadar kusuru da görmeniz gerekirdi

 

[YUSUF44]

Sayın Necdet Beyin eli sürçmüş ve bir "l" fazladan yazmış.

If Not Cellls(i, "K") = "" Then Rows(i).RowHeight = 27

satırını

If Not Cells(i, "K") = "" Then Rows(i).RowHeight = 27

olarak değiştirmeniz gerekiyor.

Bu kodları kod sayfasındayken insert/module deyin ve oraya yapıştırın. Sonra da Makrolardan sütunayarla makrosunu çalıştırın. isterseniz sayfaya bir düğme ekleyip makroyu bu düğmeyle çalıştırabilirsiniz. makro adının ne olduğu önemli değil.

 

[Believing]

Sayın Necdet Bey,

Konu amacına ulaşmış olup, değerli yardımlarınız için size çok teşekkür ederim.

Saygılarımla

 

[Believing]

Sayın YUSUF44,

Değerli yardımlarınız için size de çok teşekkür ederim.

Saygılarımla.