Filtreme yaparken tutarların noktalı ve virgülle yapılması hk.

[1903emre34@gmail.com]

Merhaba,

Sayfa1'de G2 hücresinden, veri doğrulama yoluyla seçtiğim zaman, sayfa2'de tutarların toplamları (Resim 1) listeleniyor, resim 2 olması için aşağıdaki kod nasıl değişiklik yaparız

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [G2]) Is Nothing Then Exit Sub
Dim brn()
Set s2 = Sheets("Sayfa2")
s2.Range("A5" & Rows.Count).Clear
veri = Range("A5" & Cells(Rows.Count, 1).End(3).Row).Value
For sat = 1 To UBound(veri)
If veri(sat, 1) = [G2] Or [G2] = "" Then
s = s + 1: ReDim Preserve brn(1 To 16, 1 To s)
For sut = 1 To 16: brn(sut, s) = veri(sat, sut): Next
End If: Next
If s > 0 Then s2.[A5].Resize(s, 16) = Application.Transpose(brn): Erase veri: Erase brn
If s > 0 Then s2.Range("I" & s + 5 & ":O" & s + 5).Formula = "=SUM(I5:I" & s + 4 & ")"
s2.Range("I" & s + 5 & ":O" & s + 5).Font.Bold = True
End Sub


Resim 1

Resim 2

 

[Ömer]

Merhaba,

End Sub satırından önce aşağıdaki satırı ilave ediniz.

s2.Range("I" & s + 5 & ":O" & s + 5).NumberFormat = "#,##0.00"