sinnernekolens
Altın Üye
- Katılım
- 23 Temmuz 2009
- Mesajlar
- 310
- Excel Vers. ve Dili
- Ofis 2019 - Türkçe 64bit
- Altın Üyelik Bitiş Tarihi
- 02-09-2027
iyi akşamlar, aşağıdaki kod ile tl-usd-euro formatına çeviriyorum. ruble de eklemem gerekiyordu ama formatı yapamadım yardımlarınızı rica ederim.
Kod:
Private Sub OptionButton1_Click() 'TL HESABI
ActiveSheet.Unprotect "0"
If Range("R14") = True Then
Range("p15:p41,Y9:Y12,Y18:Y24,X12:Y12").NumberFormat = "#,##0.00 $"
Sheets("PDA").Unprotect "0"
Sheets("PDA").Range("g21:G47").NumberFormat = "#,##0.00 $"
MsgBox "PDA tutarları TL olarak hesaplanmıştır.", vbInformation, "H E S A P C İ N S İ"
ActiveSheet.Protect "0"
Sheets("PDA").Protect "0"
End If
End Sub
Private Sub OptionButton2_Click() ' USD HESABI
ActiveSheet.Unprotect "0"
If Range("S14") = True Then
Range("p15:p41,Y9:Y12,Y18:Y24,Q30:Q40,X12:Y12").NumberFormat = "#,##0.00 [$$-409]"
Sheets("PDA").Unprotect "0"
Sheets("PDA").Range("g21:G47").NumberFormat = "#,##0.00 [$$-409]"
MsgBox "PDA tutarları USD olarak hesaplanmıştır.", vbInformation, "H E S A P C İ N S İ"
ActiveSheet.Protect "0"
Sheets("PDA").Protect "0"
End If
End Sub
Private Sub OptionButton3_Click() 'EURO HESABI
ActiveSheet.Unprotect "0"
If Range("T14") = True Then
Range("p15:p41,Y9:Y12,Y18:Y24,X12:Y12").NumberFormat = "#,##0.00 [$€-2]"
Sheets("PDA").Unprotect "0"
Sheets("PDA").Range("g21:G47").NumberFormat = "#,##0.00 [$€-2]"
MsgBox "PDA tutarları EURO olarak hesaplanmıştır.", vbInformation, "H E S A P C İ N S İ"
ActiveSheet.Protect "0"
Sheets("PDA").Protect "0"
End If
End Sub
Private Sub OptionButton9_Click() 'RUBLE HESABI
ActiveSheet.Unprotect "0"
If Range("U14") = True Then
Range("p15:p41,Y9:Y12,Y18:Y24,X12:Y12").NumberFormat = "#,##0.00 [20BD]"
Sheets("PDA").Unprotect "0"
Sheets("PDA").Range("g21:G47").NumberFormat = "#,##0.00 [20BD]"
MsgBox "PDA tutarları RUBLE olarak hesaplanmıştır.", vbInformation, "H E S A P C İ N S İ"
ActiveSheet.Protect "0"
Sheets("PDA").Protect "0"
End If
End Sub