• Foruma hoş geldin 👋 Ziyaretçi

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak tamamen ücretsizdir.

Çözüldü Koşullu Biçimlendirme İle Kenarlık Oluşturma

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

Yasar PİSKİN

Yeni Üye
Katılım
18 Nis 2021
Mesajlar
460
Çözümler
2
Aldığı beğeni
101
Excel V
Office 365 TR
Koşullu biçimlendirmedeki =$C8<>"" formülünü nasıl revize etmeliyim ki C8 hücresinden itibaren veri girişi yapıldığında bir alt satırın en altı örnekteki gibi çift çizgi kenarlıkla kapatılsın. Örneğin C10 hücresine veri girişi yapıldığında C11 satırının kenarlıklarını biçimlendirmek için formül veya kod hususunda yardımlarınızı rica ediyorum.
 

Ekli dosyalar

Çözüm
Bu kodu sayfa change koduna ekledim sadece.
C sütunun 7.satırından itibaren veri girince kod çalışır.
Belki kısa yolu vardır ama bilemiyorum.
Kolay gelsin.

Kod:
Dim son As Long
son = Cells(Rows.Count, "C").End(3).Row
If Target.Row >= 7 And Target.Column = 3 Then
    If son >= 7 Then
        With Range("B" & Target.Row & ":EH" & Target.Row)
            .Borders(xlEdgeBottom).LineStyle = xlDot
            .Borders(xlEdgeTop).LineStyle = xlDot
            .Borders(xlInsideVertical).LineStyle = xlDot
            .Borders(xlInsideHorizontal).LineStyle = xlDot
        End With
        
        With Range("B" & son & ":EH" & son)
            .Borders(xlEdgeLeft).LineStyle = xlDouble
            .Borders(xlEdgeRight).LineStyle = xlDouble...
Sanırım zaten aynısını yapmışsınız.
çift çizgi olayı kod ile olacak galiba bence.
 
Bu kodu sayfa change koduna ekledim sadece.
C sütunun 7.satırından itibaren veri girince kod çalışır.
Belki kısa yolu vardır ama bilemiyorum.
Kolay gelsin.

Kod:
Dim son As Long
son = Cells(Rows.Count, "C").End(3).Row
If Target.Row >= 7 And Target.Column = 3 Then
    If son >= 7 Then
        With Range("B" & Target.Row & ":EH" & Target.Row)
            .Borders(xlEdgeBottom).LineStyle = xlDot
            .Borders(xlEdgeTop).LineStyle = xlDot
            .Borders(xlInsideVertical).LineStyle = xlDot
            .Borders(xlInsideHorizontal).LineStyle = xlDot
        End With
        
        With Range("B" & son & ":EH" & son)
            .Borders(xlEdgeLeft).LineStyle = xlDouble
            .Borders(xlEdgeRight).LineStyle = xlDouble
            .Borders(xlEdgeBottom).LineStyle = xlDouble
        End With
        If Target.Row = 7 Then Range("B" & Target.Row & ":EH" & Target.Row).Borders(xlEdgeTop).LineStyle = xlDouble
        Range("B" & Target.Row & ":B" & Target.Row).Borders(xlEdgeLeft).LineStyle = xlDouble
        Range("EH" & Target.Row & ":EH" & Target.Row).Borders(xlEdgeRight).LineStyle = xlDouble
        Range("B" & son & ":B" & son).Borders(xlEdgeLeft).LineStyle = xlDouble
        Range("EH" & son & ":EH" & son).Borders(xlEdgeRight).LineStyle = xlDouble
    End If
End If
 

Ekli dosyalar

Çözüm
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst