DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub Kenarlık()
If Range("A1") <> "" Then
Range("A1").Borders.LineStyle = xlContinuous
Else
Range("A1").Borders.LineStyle = xlNone
End If
End Sub
Olabilir, şöyle deneyin, formüllü hücrenizi kopyalayın>özel yapıştır>değerler, deyin bakalım aynı hatayı verecekmi?DİYE BİR FORMÜL OLMASI MI?