Çİzgİsİz Sayfaya Yazi Yazilinca Çİzgİ Nasil Konulabİlİr?

[eymen42]

BOŞ VE ÇİZGİSİZ BİR YER YAZI YAZDIKTAN SONRA ENTERE BASKITKTAN SONRA NASIL ÇİZGİ KOYDURABİLİRİZ. SADECE YAZI YAZILIRSA ÇİZGİ KONLACAK.:yardim:

 

[ileriexcel]

çizgi

Veri girip enterledikçe veri altına çizgi eklenir silince çizgi kaybolur
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If ActiveCell.Offset(-1, 0).Value <> "" Then
ActiveCell.Offset(-1, 0).Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlEdgeRight).LineStyle = xlNone
End If
If ActiveCell.Offset(0, 0).Value = "" Then
ActiveCell.Offset(0, 0).Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
End If
End Sub

 

[tirvana]

ko&#351;ullu bi&#231;imlendirme ileyap&#305;labilir.
t&#252;m sat&#305;r i&#231;in

=YADA($A1<>"";$B1<>"";$C1<>"";$D1<>"";$E1<>"";$F1<>"";$G1<>"";$H1<>"")

sadece h&#252;cre i&#231;in ise
=<>""

 

[eymen42]

Arkada&#350;lar Den&#304;yorum Ama Olmuyor. Bunun Ba&#350;ka Form&#220;l&#220; Varmi

 

[necokara]

ko&#351;ullu bi&#231;imlendirme ileyap&#305;labilir.
t&#252;m sat&#305;r i&#231;in
=YADA($A1<>"";$B1<>"";$C1<>"";$D1<>"";$E1<>"";$F1<>"";$G1<>"";$H1<>"")
sadece h&#252;cre i&#231;in ise
=<>""

F1'deki bo&#351;luktan kaynaklan&#305;yor.kopyalad&#305;ktan sonra "< >" aras&#305;ndaki bo&#351;lu&#287;u silin.

=YADA($A1<>"";$B1<>"";$C1<>"";$D1<>"";$E1<>"";$F1<>"";$G1<>"";$H1<>"")

 

[tirvana]

Arkada&#350;lar Den&#304;yorum Ama Olmuyor. Bunun Ba&#350;ka Form&#220;l&#220; Varmi

eklenen dosyaya bakt&#305;n&#305;z m&#305;?