Soru Şarta Bağlı Olarak Belirli Satırlar Arasına Çizgi Çizme

[mehmetd]

Sn. Arkadaşlar günaydın
ekteki örnekte yapmaya çalıştığım mevcut bir kod var ama yanlış çalışıyor.
Revize etmemde yardımcı olabilir misiniz.
yardımlarınız için şimdiden teşekkür ederim

 

[Muzaffer Ali]

Merhaba.

Sub Ekle_Kalin_Cizgi()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long

    Set ws = ThisWorkbook.Sheets("MENU") ' Sayfa adını düzenleyin
   
    ' Son dolu satırı bulun
    lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
   
    ' Döngü ile B sütununu kontrol edin
    For i = 2 To lastRow
        ' Eğer B sütununda değer değiştiyse
        If ws.Cells(i, "B").Value <> ws.Cells(i + 1, "B").Value Then
            ' Kalın çizgi ekle
            ws.Range("A" & i & ":I" & i).Borders(xlEdgeBottom).Weight = xlThick
        End If
    Next i
End Sub

 

[mehmetd]

Sn. Muzaffer Bey çok teşekkür ederim. Sağlıklı günler dilerim.