Para birimi değiştirmek

[muratgunay48]

Arkadaşlar, sayın hocalarım, işyerinde kullandığımız bir dosya var, ben hazırladım. Fakat bir yanlış anlaşılma olmuş. Bizim yüklenici firmaya ödeyeceğimiz $ olacak Euro değil.
Diğer kısımları kapatmak zorunda kaldım. Açık yerler Euro sembolü var. 48 sayfa ve her sayfada 150'den fazla TOPLAM mevcut.
Hatta sayfalar formül hücreler korumalı. Yani para birimi olan yerler de korumalı. (Şifre aynı ama)
Tek tek yapsam aylar alır. Ya da en baştan yapmam lazım. Tek tek hücre biçimlendir yapmadan.
Euro olan sembolleri $ nasıl yapabilirim? Tümünü seçerek yapamam çünkü diğer hücrelerde normal sayılarda mevcut. Terih mevcut. Mesela 1 Mart 2025'te 1 no'luda 205 adet yapılmış, birim fiyat $0,04 toplam şu gibi yazılı.
Şimdiden teşekkür ederim.
Saygılarımla.

 

[pitchoute]

Merhaba, mutlaka yedek aldıktan sonra şu makroyu deneyebilir misiniz;

Sub EuroToDollar()
    Dim ws As Worksheet
    Dim cell As Range
    Dim i As Integer
    Dim şifre As String
    
    şifre = InputBox("Lütfen sayfa koruma şifresini girin:", "Şifre Girişi")
    
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Application.Calculation = xlCalculationManual
    
    For Each ws In ThisWorkbook.Worksheets
        On Error Resume Next
        ws.Unprotect Password:=şifre
        
        For Each cell In ws.UsedRange
            If cell.NumberFormat Like "*€*" Then
                cell.NumberFormat = Replace(cell.NumberFormat, "€", "$")
            End If
        Next cell
        
        ws.Protect Password:=şifre
    Next ws
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    Application.Calculation = xlCalculationAutomatic
    MsgBox "Tüm Euro sembolleri Dolar sembollerine dönüştürülmüştür.", vbInformation
End Sub

 

[muratgunay48]

Merhaba, mutlaka yedek aldıktan sonra şu makroyu deneyebilir misiniz;

Sub EuroToDollar()
    Dim ws As Worksheet
    Dim cell As Range
    Dim i As Integer
    Dim şifre As String
   
    şifre = InputBox("Lütfen sayfa koruma şifresini girin:", "Şifre Girişi")
   
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Application.Calculation = xlCalculationManual
   
    For Each ws In ThisWorkbook.Worksheets
        On Error Resume Next
        ws.Unprotect Password:=şifre
       
        For Each cell In ws.UsedRange
            If cell.NumberFormat Like "*€*" Then
                cell.NumberFormat = Replace(cell.NumberFormat, "€", "$")
            End If
        Next cell
       
        ws.Protect Password:=şifre
    Next ws
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    Application.Calculation = xlCalculationAutomatic
    MsgBox "Tüm Euro sembolleri Dolar sembollerine dönüştürülmüştür.", vbInformation
End Sub

Hocam emeğinize sağlık. İşe yaradı. Bende toplu sayfa koruma makrosu var. Onunla yine formül koruma yaptım. Tamamdır.
Sağ olun. Var olun.

 

[pitchoute]

Sizler de sağolun hocam, iyi çalışmalar.

 

[muratgunay48]

Sizler de sağolun hocam, iyi çalışmalar.

Hocam, sadece merak ettiğim için. Sayfalar şifreli olmasaydı. Hangi kısmını çıkarmak gerekirdi.
Öğrenmek iyidir.

 

[pitchoute]

Hocam, şifresiz olsaydı sayfalar eğer şifre = InputBox(...) ws.Unprotect Password:=şifre ve ws.Protect Password:=şifre kısmının çıkarılması gerekirdi.

 

[muratgunay48]

Hocam, şifresiz olsaydı sayfalar eğer şifre = InputBox(...) ws.Unprotect Password:=şifre ve ws.Protect Password:=şifre kısmının çıkarılması gerekirdi.

Teşekkür ederim hocam.

 

[pitchoute]

Rica ederim, iyi çalışmalar.