Makro kodunun sonuna "#,##0.00" ekleme yapma

[sirkülasyon]

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Row > 4 And Target.Column = 9 Then
    If Target.Value <> "" Then
        If MsgBox("KDV Eklensin mi?", vbYesNo, "ASKM") = vbYes Then
            
            [B]Target.Offset(0, 1) = WorksheetFunction.Round((Target * 1.08), 2) & ""
            Target.Offset(0, 2) = WorksheetFunction.Round((Target.Offset(0, 1) - Target), 2) & ""
            Target.Offset(0, 3) = WorksheetFunction.Round((Target.Offset(0, 2) / 2), 2) & ""[/B]
            Target.Offset(0, 4) = WorksheetFunction.Round((Target), 2) & ""
        Else
            Target.Offset(0, 4) = WorksheetFunction.Round((Target), 2) & ""
            Target.Offset(0, 1) = ""
            Target.Offset(0, 2) = ""
            Target.Offset(0, 3) = ""
          
        End If
    Else
        Target.Offset(0, 1) = Empty
    End If
End If
End Sub

Koyu renkli olan koda format olarak "#,##0.00" kısmını eklemek istiyorum.
Yardımcı olabilir misiniz?

 

[askm]

Kodların başına Format( sonuna virgül ekleyip belirttiğiniz kodu ekleyin.

 

[sirkülasyon]

Sayın askm
Rica etsem bir tane örnek verebilmeniz mümkün mü?

 

[Necdet]

Merhaba,

Target.Offset(0, 1) = WorksheetFunction.Round((Target * 1.08), 2) & ""

Yerine

Target.Offset(0, 1) = Format(WorksheetFunction.Round((Target * 1.08), 2),"#,##0.00")

Kullanın.

 

[sirkülasyon]

Necdet Abi
Çok Çok Teşekkür Ederim.