Border sınıfının LineStyle özelliği kurulamıyor.

[Rafet]

Çok enterasan bir hata alıyorum. Gercekten çok sınır bozucu.

Bir sorgu alanım var. Bu sorgu alanında gezerken cizgiler ile sutun ve satırı işaretlenmesini kodlar ile sağladım .

Sorgu alanında tıklanan hüçrenin sorgu alanı sınırlarındaki satırdaki hüçrelerin üstüne ve altına , ve ayni kolandakı hüçrelerin sağıan ve soluna cizgi attırıyorum şu şekilde.


If Intersect(Target, [SR_Sorgu_5]) Is Nothing Then GoTo 25
alanadi = "SR_Sorgu_5"
Range(alanadi).Borders(xlInsideHorizontal).LineStyle = xlNone
Range(alanadi).Borders(xlInsideVertical).LineStyle = xlNone
a = ActiveCell.Row 'Aktif olan hücrenin satırı
b = ActiveCell.Column 'Aktif olan hücrenin kolonu
c = Range(alanadi).Column 'işaretlenecek sorgunun başlangic kolonu
d = Range(alanadi).Columns.Count ' işaretlenecek sorgunun kolon sayısı
e = Range(alanadi).Row 'hedef hucrenin bulunduğu sorgunun başlangıç satırı
f = Range(alanadi).Rows.Count 'hedef hucrenin bulunduğu sorgunun başlangıç satırı
On Local Error GoTo hata2
With Range(Cells(a, c), Cells(a, c + d - 1))
.Borders(xlEdgeTop).LineStyle = xlContinuous
.Borders(xlEdgeBottom).LineStyle = xlContinuous
End With

With Range(Cells(e, b), Cells(a, b))
.Borders(xlEdgeLeft).LineStyle = xlContinuous
.Borders(xlEdgeRight).LineStyle = xlContinuous
End With
hata2:



" Border sınıfının LineStyle özelliği kurulamıyor. "


Bu hatayı ilk aldığımda kodda göreceğiniz gibi hatayı atlamasını istedim. Sonra enteresan bir şey gördumki sorgunun en solunda cizgi var. O czgiden sonra hata veriyor. O cizgiyi sorgu boyunca cizdim hata kalktı. Şimdi ise yine aynı hata ve çözemiyorum.

Gercekten enterasan BU hatayla karşılaşan varsa ve çözümü hakkında bilgisi olan varsa çok seviecem .