makro yada koşullu biçimlendirme

[muttabomer]

Selamlar Üstadlarım,

A1:A60 hücrelerinde sırasıyla bilgi girdiğimde en son hangisindeyse (A1 hücresine yazdığımdığımda D1 hücresinin altını çizsin, eğer A2de bilgi girdiğimde D1 deki alt kenarı kaldırıp D2 ye alt kenar eklensin) D1 : D60
a kadar aynı işlem olsun...

yardımlarınızı rica ediyorum! makro yada koşullu biçimlendirme ile nasıl yapabilirim.

 

[askm]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [A1:A60]) Is Nothing Then Exit Sub
With Range("A1:A60")
    .Borders(xlInsideHorizontal).LineStyle = xlNone
End With
For i = 60 To 1 Step -1
    If Cells(i, 1) <> "" Then
        With Cells(i, 1).Borders(xlEdgeBottom)
            .LineStyle = xlContinuous
            .Weight = xlMedium
        End With
        Exit For
    End If
Next i
End Sub

 

[muttabomer]

Hocam makroyu çalıştıramadım

 

[askm]

Sayfanın kod kısmına eklemeniz gerekiyor. Modüle değil. A1:A60 arasında bir veri girdiğinizde makro çalışacak.

 

[muttabomer]

Makroyu çalıştırdım

Hocam makroyu çalıştırdım,
yalnız A sütununda işlev görüyor, D sütununda işlem yapması lazım,
örneğin A2 hücresi veri girdiğimde toplamdaki D2 hücresinin altını çizsin, A2 hücresi başka birşey eklersem D2 hücresinin altını çizsin.

 

[askm]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [A1:A60]) Is Nothing Then Exit Sub
With Range("D1:D60")
    .Borders(xlInsideHorizontal).LineStyle = xlNone
End With
For i = 60 To 1 Step -1
    If Cells(i, 1) <> "" Then
        With Cells(i, 4).Borders(xlEdgeBottom)
            .LineStyle = xlContinuous
            .Weight = xlMedium
        End With
        Exit For
    End If
Next i
End Sub

 

[muttabomer]

Teşekkür

Hocam Allah Razı olsun!

ayarladım fakat bir konu daha var Diyelimki

D1:H1 hücrelerini birleştirdim birleştirdiğim hücrelerde nasıl bir veri yazmam lazım
For i = 60 To 1 Step -1
If Cells(i, 1) <> "" Then
With Cells(i, 4).Borders(xlEdgeBottom) - 4 yerine nasıl yazmam lazımki
4-5-6-7-8 altı çizilsin

 

[askm]

With Range(Cells(i,4),Cells(i,8).Borders(xlEdgeBottom) şeklinde yazın.

 

[muttabomer]

Hocam dediğiniz gibi ekledim,

Compile Error:
Expected: end of statement

diyor.

 

[askm]

With Range(Cells(i,4),Cells(i,8)).Borders(xlEdgeBottom)
Bir parantez kapanmamış.Cepten yazıyorum.

 

[muttabomer]

Hocam Emeğinize Sağlık, Allah Razı Olsun,

Makroyu düzenlediğim, fakat bir alt hücreye yazı eklediğimde sadece D(4) atlama yapıyor diğerleri sabit kalıyor. onuda düzeltirsek bu konudaki isteğim son bulacak inşallah, size de eziyetim oluyor kusura bakmayın.

 

[muttabomer]

Ellerinize ve Emeğine Sağlık,
Onuda ben çözdüm teşekkür ederim.