Soru Sütun işaretleme

[Bahattin Sungur]

Arkadaşlar merhaba. Elimde büyük bir tablo var ve ben sütunları sectigimde işaretleyecek bir makro arıyorum. Olay kısaca şu : a sütununa tıklayıp o sütuna koşullu biçimlendirme yapmak istiyorum. (Örneğin kırmızıya boyadım) başka bir zaman aynı islemi başka sütuna yapmak istiyorum. (Ornegin c sutunu) İstediğim şey sütuna tıklayıp makro atadığım tuşa basınca o sütun kosullu biçimlendirme yapsın. Umarim anlatabilmisimdir. Yardımcı olabilecek biri varsa şimdiden çok teşekkürler.

 

[Korhan Ayhan]

Koşullu biçimlendirme koşulunuz nedir?

 

[Bahattin Sungur]

Koşullu biçimlendirme koşulunuz nedir?

Sutunun sağ tarafina kalın mavi bir çizgi çekmek istiyorum.

 

[Korhan Ayhan]

Hücrelerde herhangi bir veri var mı?

 

[Bahattin Sungur]

Hücrelerde herhangi bir veri var mı?

Belirsiz aralıklarla veriler bulunuyor. Tam olarak anlatmam gerekirse 1 satırda tarihler a sütununda firmalar bulunuyor ve ve her tarihte hangi firmaya hangi üründen ne kadar üretileceği yazıyor. Örnek verirsek
29.04. 30.04
A firması x ürünü 1
A firması b ürünü 1 2

 

[Korhan Ayhan]

Bir örnek dosya paylaşarak yapmak istediğiniz işlemi açıklar mısınız?

Ben tam olarak ne yapmaya çalıştığınızı anlamadım.

 

[ÖmerFaruk]

Yanlış anlamadıysam, aşağıdaki kod işinizi çözecektir.
İlgili sayfanızın kod sayfasına yapıştırın.
Renkleri ve/veya formatları kendi isteğinize göre düzeltirsiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Alan1 As Range
Dim Alan2 As Range
    Kolon = ActiveCell.Column
    SonSut = Cells(1, Columns.Count).End(xlToLeft).Column
    SonSat = Cells(Rows.Count, 1).End(xlUp).Row
    Set Alan1 = Range(Cells(1, 1), Cells(SonSat, SonSut)).Cells
    Set Alan2 = Range(Cells(1, Kolon), Cells(SonSat, Kolon)).Cells
    Alan1.Interior.Color = xlNone
    Alan1.Font.Bold = False
    Alan2.Interior.Color = vbYellow
    Alan2.Font.Bold = True
End Sub

 

[Seyit Tiken]

1 Resim 1000 Kelimeye Bedeldir.

 

[Bahattin Sungur]

Yanlış anlamadıysam, aşağıdaki kod işinizi çözecektir.
İlgili sayfanızın kod sayfasına yapıştırın.
Renkleri ve/veya formatları kendi isteğinize göre düzeltirsiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Alan1 As Range
Dim Alan2 As Range
    Kolon = ActiveCell.Column
    SonSut = Cells(1, Columns.Count).End(xlToLeft).Column
    SonSat = Cells(Rows.Count, 1).End(xlUp).Row
    Set Alan1 = Range(Cells(1, 1), Cells(SonSat, SonSut)).Cells
    Set Alan2 = Range(Cells(1, Kolon), Cells(SonSat, Kolon)).Cells
    Alan1.Interior.Color = xlNone
    Alan1.Font.Bold = False
    Alan2.Interior.Color = vbYellow
    Alan2.Font.Bold = True
End Sub

cok tesekkur ederım ıstedıgım tam olarak bu degıldı ama bu daha ıyı olmus