Son Rakamı gördüğünde soluna yazı yazmak

[ismail-34]

Tüm Excel Web Ailesine Selamlar.

Benim sorum şöyle. B ve E sütunlarında son rakama geldiğinde (yani toplam) soluna sağa bitişik şekilde Toplam: yazısı ve bir üst satırınada bir bitiş çizgisi yazdırmak istiyorum.bitiş çizgisi örnekteki gibi çift kat çizgi olmasada olur, sorun değil,ama olursada şık olur
Nitekim listem devamlı değişiyor her seferinde Toplam: ve çizgi çizmek istemiyorum.dosyam ektedir.Yardımcı olursanız sevinirim.

Herkese Saygılar Sevgiler.

 

[hamitcan]

Sayfa1'in kod kısmına ekleyin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
    Set a = Columns(1).Find("Toplam")
    Rows(a.Row).Clear
    Cells.Borders.LineStyle = xlNone
    Cells.Borders(xlDiagonalUp).LineStyle = xlNone
    Cells.Borders(xlEdgeLeft).LineStyle = xlNone

'On Error GoTo 0

    x = [b65536].End(3).Row
    If Target.Row = x + 1 Then
    
'    If MsgBox("Toplam Satrı Eklensin Mi", vbYesNo) = vbYes Then
    Cells(x + 1, 1) = "Toplam": Cells(x + 1, "d") = "Toplam"
    MsgBox WorksheetFunction.Sum("b3:b9")
    Cells(x + 1, 2) = "=SUM(R3C2:R" & x & "c2)"
    Cells(x + 1, 5) = "=SUM(R3C5:R" & x & "c5)"
    With Range("a" & x & ":" & "e" & x).Borders(xlEdgeBottom)
        .LineStyle = xlDouble
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThick
    End With
'    End If
    End If
End Sub

 

[ismail-34]

saygıdeğer hamitcan hocam teşekkürler. yalnız çok ilginç misal örnekteki dosyada herşeyi hesaplıyor ama görünmüyor. ancak 15. satıra tıkladığımda hesaplanan o satır görünüyor !!! excel 2013 ondanmı acaba ?. bide toplamları almasa hocam ? çünkü toplamları otomatik alan makro formülüm var. yani sadece sondaki o hesaplattığım toplamı algılasa ve soluna toplam yazsa olabilirmi ?.. birde butona tıklayıp hesaplayan tarzın formülünü rica etcektim belki o görünmeme olayını öyle çözeriz.yani module lü çözümünüzde bana uyar. . bide formüle baktım toplam satırı eklensinmi diye birşey sormuyor direkt hesaplıyor.. yalnız çift çizgi süper olmuş yok artık dedim .. görünmez hali ektedir

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki kodları deneyin.

Sub Test()
    Dim Satir As Long
    Satir = Cells(Rows.Count, "B").End(xlUp).Row
    With Range("A" & Satir & ":" & "E" & Satir).Borders(xlEdgeTop)
        .LineStyle = xlDouble
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThick
    End With
    With Range("A" & Satir & ",D" & Satir)
        .Value = "Toplam:"
        .Font.Color = -16776961
        .HorizontalAlignment = xlRight
    End With
End Sub

 

[ismail-34]

Merhaba.
Aşağıdaki kodları deneyin.

Sub Test()
    Dim Satir As Long
    Satir = Cells(Rows.Count, "B").End(xlUp).Row
    With Range("A" & Satir & ":" & "E" & Satir).Borders(xlEdgeTop)
        .LineStyle = xlDouble
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThick
    End With
    With Range("A" & Satir)
        .Value = "Toplam:"
        .Font.Color = -16776961
        .HorizontalAlignment = xlRight
    End With
    With Range("D" & Satir)
        .Value = "Toplam:"
        .Font.Color = -16776961
        .HorizontalAlignment = xlRight
    End With
End Sub

Teşekkürler Muzaffer ve Hamitcan Hocam.Sanat Eseri Resmen.Süper oldu. Excel Web ailesindeki Dayanışmanızda takdire şayan.