Sütuna çizgi attırma

[deryabas80]

http://dosya.altervista.org/download.php?file=b3d579d2a75f3656324c4814a9b1d1fe

MERHABALAR,

BANA BİR KONUDA YARDIMCI OLABİLİR MİSİNİZ, EKTEKİ GİBİ BİR DOSYA VAR. A SÜTUNUN DA YER ALAN AYNI FİRMALARI ALT ALTA GETİRİP ARAYA ÇİZGİ ATTIRMAK İSTİYORUM. "ÇİZGİ ATTIRMAYI MANUEL YAPMAKTANSA BUNU FORMÜL YARDIMIYLA YAPABİLİRMİYİZ?

TEŞEKKÜR EDERİM.

Not: dosya ekeleyemiyorum. dosya ekle butonunu göremiyorum.

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub Duzenle()

    Dim i As Long
    
    Range("A2:B" & Rows.Count).Sort Range("A2")
    Cells.Borders.LineStyle = 0
    
    For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
        If Cells(i, "A") <> Cells(i + 1, "A") Then
            Rows(i).Borders(xlEdgeBottom).LineStyle = xlDouble
        End If
    Next i
    
End Sub

.

 

[deryabas80]

ömer bey,

çok teşekkür ederim.

Saygılarımla

 

[deryabas80]

merhaba,

ömer bey sizin yaptığınız bu makro'da tüm sütunlara çizgi attırmak değil de sadece A ile U sütunu arasındaki satırlara çizgi attırmak istiyorum.

 

[merakli_72]

Merhaba
ömer Bey'in makrosunu aşağıdaki şekilde değiştiriniz

Sub Duzenle()

    Dim i As Long
    
    Range("A2:B" & Rows.Count).Sort Range("A2")
    Cells.Borders.LineStyle = 0
    
    For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
        If Cells(i, "A") <> Cells(i + 1, "A") Then
            Range(Cells(i, "A"), Cells(i, "U")).Borders(xlEdgeBottom).LineStyle = xlDouble
        End If
    Next i
    
End Sub