Koşullu Kalın Kenarlık Nasıl Eklenir ?

Katılım
12 Aralık 2013
Mesajlar
39
Excel Vers. ve Dili
2013
Merhabalar,
Sütün aralığımız A-T arasında kalan 14 tanedir.
Bir sütun da 9256 adet hücre dolu bulunmaktadır. Fakat veri A8 den başlamaktadır. A7 den T7 ye kadar başlık bulunmaktadır.

Mükerrer kayıt aranacak sütun C sütunudur ve rakam ile doludur. Örneğin 0/1545 gibi.

C sütunun da mükerrer kayıtları bulup aynı olanları yani bulduğu hücre kadarını KALIN KUTU içine almak istiyorum.
Örnek resimde daha iyi anlaşılacaktır.

C sütunu belirli oranda mükerrer yani ardışık dizili şekilde.

Sayfa yapısını bozmaması için ekran görüntüsünü link olarak ekliyorum.
http://i.hizliresim.com/VLgMPP.jpg
Dilerseniz excel sayfasını gönderebilirim ama ekran görüntüsü olduğu için gerek duymadım.

Yarımdımcı olursanız çok sevinirim.
 

Necdet

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,181
Excel Vers. ve Dili
Ofis 365 Türkçe
Merhaba,

C8 hücresinden başlayarak veri hangi satıra kadar gidiyorsa o bölgeyi seçin ve koşullu biçimlendirmede aşağıdaki formülü kullanın.

Koşullu biçimlendirmede kalın çizgi yok onun yerine arka plan rengini kullanabilirsiniz.

Kod:
=VE(C8<>"";EĞERSAY($C$8:$C$1000;C8)>1)
 
Katılım
12 Aralık 2013
Mesajlar
39
Excel Vers. ve Dili
2013
Merhaba

Cevap için teşekkür ederim. Sanıyorum kendimi ifade edemedim kusura bakmayın.
C sütunu sadece referans için gerekli yani mükerrer aramak için. Kalınlaştırılacak alan komple dış çerçeve yani ekran görüntüsünde ben kalınlaştırdım onun gibi.
Ekran görüntüsüne bakınız yani A1 den A11 - T1 den T11 gibi.
 

Necdet

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,181
Excel Vers. ve Dili
Ofis 365 Türkçe
Ekran görüntüsünden pek bir şey anlaşılmıyor ama tüm satırı renklendirmek istiyorsanız.

Tüm tabloyu seçtikten sonra formüldeki sadece C8 yazanları $C8 yazmanız yeterli.
 
Katılım
12 Aralık 2013
Mesajlar
39
Excel Vers. ve Dili
2013
Ekran görüntüsünden pek bir şey anlaşılmıyor ama tüm satırı renklendirmek istiyorsanız.

Tüm tabloyu seçtikten sonra formüldeki sadece C8 yazanları $C8 yazmanız yeterli.

Ekran görüntüsü aslında gayet büyük yine de daha açıklayıcı şekilde ekran görüntüsünü düzenledim.
http://i.hizliresim.com/ZVAX0g.png

Özetle ben dolgu yapmak istemiyorum.
C sütununda sıralı şekilde alt alta mükerrer veri var.
Örneğin
Necdet Yeşertener
Necdet Yeşertener
Necdet Yeşertener
Necdet Yeşertener
Necdet Yeşertener
Necdet Yeşertener
Fakat bunlar hep alt alta sıralı C sütununda mükerrer olanları aratıp Necdet Yeşertener olanları sadece c sütunu değil bütün sütunları kalın kenarlık ile çerçeve yapacağız.
Necdet Yeşertener bitti diyelim.

excelwebtr
excelwebtr
excelwebtr
excelwebtr
excelwebtr

Bunların ait olduğu tüm satırı kalın bir kutucuk içine yani kenarlık yapacağız.
Tek tek değil yani her bir excelwebtr satırına değil ilk bulduğu excelwebtr satırından en sonda ki excelwebtr satırını komple alacak şekilde ekran görüntüsüne bakarsanız sevinirim.

İlginize tekrar teşekkür ederim.
 

Necdet

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,181
Excel Vers. ve Dili
Ofis 365 Türkçe
Merhaba,

Bu konuda makroyu önermiyorum ama yine koşullu biçimlendirme ile yapabilirsiniz. Tek şart Kalın çizgi çizemezsiniz. bunun yerine renkli çizgi olabilir.

A8:T100 (son satır ne ise) aralığını seçin
Bu aralığa sadece örneğin kırmızı çerçeve çizin.

sonra Koşullu biçimlendirmede Formül için aşağıdaki formülü kullanın

Kod:
=$C8<>$C7
Biçimlendirmede sadece hücrenin üstünü kırmızı çizgiyi seçin.

Bir deneyininiz. Bu durum daha parametrik olacağı için tercih ediniz derim.
Yok illa makro diyorsanız o da olası tabi.
 
Katılım
12 Aralık 2013
Mesajlar
39
Excel Vers. ve Dili
2013
Merhaba,

Bu konuda makroyu önermiyorum ama yine koşullu biçimlendirme ile yapabilirsiniz. Tek şart Kalın çizgi çizemezsiniz. bunun yerine renkli çizgi olabilir.

A8:T100 (son satır ne ise) aralığını seçin
Bu aralığa sadece örneğin kırmızı çerçeve çizin.

sonra Koşullu biçimlendirmede Formül için aşağıdaki formülü kullanın

Kod:
=$C8<>$C7
Biçimlendirmede sadece hücrenin üstünü kırmızı çizgiyi seçin.

Bir deneyininiz. Bu durum daha parametrik olacağı için tercih ediniz derim.
Yok illa makro diyorsanız o da olası tabi.
Merhaba

Belki de beceriksizlik bende o nedenle yapamıyor olabilirim.
Eğer ki bana zaman ayırıp örnek verdiğim dosyayı inceleyip dediğiniz yöntem ile benim istediğim oluyor mu veya olacak şekilde bana yardımcı olursanız minnettar olurum.

Not: Renkli olması mümkün değil bu veriler siyah beyaz çıktı alınacak. O nedenle "grup şeklinde" görünmesini istediğim yerleri kalın çerçeve ile belirtmek durumundayım.

Örnek dosya link adresi
http://s2.dosya.tc/server2/dlwyef/kenarlik-eklemek-istiyorum.xlsx.html

Tekrar teşekkürler.
 
Katılım
20 Aralık 2006
Mesajlar
173
Excel Vers. ve Dili
365 (2016) Türkçe
merhaba,

eğer koşula uygun hücrelerin kenarları koyu olmak zorundaysa şunu deneyin,

Tablonuzdaki hücrelerin kenarlarını gri yapın.
koşullu biçimlendirmede ise kenarları siyah yapın.

bu durumda hem çıktıda renk farkı oluşur hem de kenarları koyu yapmış olursunuz.

Kalın yapılamadığına göre herhalde bu işinizi görür.
 
Katılım
12 Aralık 2013
Mesajlar
39
Excel Vers. ve Dili
2013
Merhaba
Bu işin makro ile daha iyi ve hızlı çözüleceğini düşünüyorum en azından diğer yolu anlamadım ve yapamadım.

Bir hücrede mükerrer sayının geçtiği 10 - 15 satır kaç satır ise onların dış komple dışını siyah kalın çerçeveye almak istiyorum istediğim bu.
 

Necdet

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,181
Excel Vers. ve Dili
Ofis 365 Türkçe
Merhaba,

Veri giriş sırasında değil ama ne zaman isterseniz aşağıdaki KenarCiz Makrosunu bir butona bağlayarak kullanabilirsiniz.

Kod:
Sub KenarCiz()

    Dim i       As Long, _
        iEski   As Long, _
        Deg     As String
    
    iEski = 8
    Deg = Range("C8").Value
    
    i = Cells(Rows.Count, "C").End(3).Row
    
    With Range("A8:T" & i)
        .Borders(xlDiagonalDown).LineStyle = xlNone
        .Borders(xlDiagonalUp).LineStyle = xlNone
        .Borders(xlEdgeLeft).LineStyle = xlNone
        .Borders(xlEdgeTop).LineStyle = xlNone
        .Borders(xlEdgeBottom).LineStyle = xlNone
        .Borders(xlEdgeRight).LineStyle = xlNone
        .Borders(xlInsideVertical).LineStyle = xlNone
        .Borders(xlInsideHorizontal).LineStyle = xlNone
    End With
    
    Cerceve_Ici Range("A8:T" & i)
    
    For i = 8 To Cells(Rows.Count, "C").End(3).Row + 1
        If Not Cells(i, "C").Value = Deg Then
            Deg = Cells(i, "C")
            Cerceve_Disi Range("A" & iEski & ":T" & i - 1)
            iEski = i
        End If
    Next i
    
End Sub
Kod:
Sub Cerceve_Disi(rng As Range)
   
    With rng.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Color = -16777024
        .TintAndShade = 0
        .Weight = xlThick
    End With
   
    With rng.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Color = -16777024
        .TintAndShade = 0
        .Weight = xlThick
    End With
   
    With rng.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Color = -16777024
        .TintAndShade = 0
        .Weight = xlThick
    End With
   
    With rng.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Color = -16777024
        .TintAndShade = 0
        .Weight = xlThick
    End With
   
End Sub
Kod:
Sub Cerceve_Ici(rng As Range)

    With rng.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Color = -16777024
        .TintAndShade = 0
        .Weight = xlThick
    End With
   
    With rng.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Color = -16777024
        .TintAndShade = 0
        .Weight = xlThick
    End With
    With rng.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Color = -16777024
        .TintAndShade = 0
        .Weight = xlThick
    End With
   
    With rng.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Color = -16777024
        .TintAndShade = 0
        .Weight = xlThick
    End With

End Sub
 
Son düzenleme:
Katılım
12 Aralık 2013
Mesajlar
39
Excel Vers. ve Dili
2013
Merhaba,

Veri giriş sırasında değil ama ne zaman isterseniz aşağıdaki KenarCiz Makrosunu bir butona bağlayarak kullanabilirsiniz.
Merhaba Necdet Bey,

Çalışmanız harika, olması gerektiği gibi çalıştı.
Ufak bir sorun var oda şu; Hücrelerin eski kendi ince siyah çizgilerini kaybetti. Sanıyorum bunu bilinçli yaptığınız rica etsem bunlar kalacak şekilde kenarları kalın olsun lütfen. (Düzeltme: İlave rica sadece C ve D sütununun hücrelerini silebilirseniz çok daha iyi olur)

Çok ama çok teşekkür ederim. Size minnettar oldum.
 
Son düzenleme:

assenucler

Altın Üye
Katılım
19 Ağustos 2004
Mesajlar
3,519
Excel Vers. ve Dili
Ofis 365 TR 64 Windows 11 Home Single Language x64 TR
Katkılarınız için çok teşekkürler değerli üstadım sayın Necdet Yeşertener.

Sevgi ve saygılar.
 

Necdet

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,181
Excel Vers. ve Dili
Ofis 365 Türkçe
Merhaba,

Kodlar yenilendi, tekrar deneyiniz.
 

assenucler

Altın Üye
Katılım
19 Ağustos 2004
Mesajlar
3,519
Excel Vers. ve Dili
Ofis 365 TR 64 Windows 11 Home Single Language x64 TR
Teşekkürler

Değerli Üstadım,


Çok incesiniz. Bilgilendirmeniz için tekrar teşekkürler.
Her şey gönlünüzce olsun.

En içten sevgi ve saygılar.
 
Katılım
26 Şubat 2008
Mesajlar
25
Excel Vers. ve Dili
XP TÜRKÇE
Necdet bey,

Sayenizde çok zamandır aradığım kodu buldum fakat burada şöyle bir sorun oluyor kayıtları yenilediğim de eski çizgiler kaldığından haliyle ortaya doğru bir görüntü çıkmıyor. Bu kodu her çalıştırdığımızda bir önceki çizgileri temizlemesini de ekleyebilirmisiniz. Şimdiden teşekkürler ederim..
 

Necdet

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,181
Excel Vers. ve Dili
Ofis 365 Türkçe
Necdet bey,

Sayenizde çok zamandır aradığım kodu buldum fakat burada şöyle bir sorun oluyor kayıtları yenilediğim de eski çizgiler kaldığından haliyle ortaya doğru bir görüntü çıkmıyor. Bu kodu her çalıştırdığımızda bir önceki çizgileri temizlemesini de ekleyebilirmisiniz. Şimdiden teşekkürler ederim..
Merhaba,

KenarCiz makrosu yenilendi. Dener misiniz?
 
Katılım
15 Ekim 2014
Mesajlar
822
Excel Vers. ve Dili
Excell 2016 Türkçe 64 bit
Merhaba arkadaşlar. Mükerrer kayıtlar için makrosuz kenarlık için
ilgili satırların seçilmesi
Koşullu biçimlendirme
Yinelenen değerler
Sağdaki kutucuktan Özel Biçim
Kenarlıktan Çerçeveyi seçtiğinizde olacaktır.
Ancak kalın çizgi yok soldaki farklı çizgileri deneyebilirsiniz
Bu işlemi koşullu biçimlendirmedeki tüm şartlar için kullanabilirsiniz
Kolay gelsin
 
Üst