Birleştirme sorusu

[f_alkan]

Ekte sorumuz mevcuttur. Ilgilenen arkadaşlara saygılar...

 

[Ömer]

Ekte sorumuz mevcuttur. Ilgilenen arkadaşlara saygılar...

Merhaba,

Çalışma sayfasının kod bölümüne kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
 
    If Intersect(Target, Range("K3")) Is Nothing Then Exit Sub
    
    With Target
        If .Value = "TL" Then
            Range("K4:N22").NumberFormat = "#,##0.00 $"
        ElseIf .Value = "$" Then
            Range("K4:N22").NumberFormat = "#,##0.00 [$USD]"
        Else
            Range("K4:N22").NumberFormat = "#,##0.00 [$EUR]"
        End If
    End With
 
End Sub

.

 

[f_alkan]

hocam formülle çözmemiz mümkün olabilir mi
hayırlı akşamlar