% ifadesini kaldırmak

[omemo]

Merhaba,
Bir sütundaki farklı hücrelerde tam sayılar(54 gibi)ve yüzde ile ifade edilmiş sayılar(68% gibi). Yüzde ile ifade edilen bu sayıları 68 şekline dönüştürmek için nasıl bir kod yazmalıyım.
Teşekkürler

 

[Necdet]

Merhaba,

Makroya gerek var mı?

Bir hücreye 100 yazın
o hücreyi kopyalayın
kesirli hücreleri seçin
Özel Yapıştır
Çarp
Tamam

 

[omemo]

Sayın hocam,
Çok sayıda % ifadeli sayılar var. Belirttiğiniz işlemi biliyorum ama teker teker yapmak zor oluyor. Makro ile daha kolay ve hızlı olur diye düşünmüştüm.
Saygılar

 

[Necdet]

Merhaba,

Örnek dosyayı görmeden afaki kod yazdım.

Aşağıdaki kodları çalıştırmadan önce tüm hücreleri seçmelisiniz.

Hücre biçimi Yüzde Oranı olan hücreleri değiştirir.

Deneyin bakalım sonucu bildirirseniz sevinirim.

Sub YüzdeKaldır()

    Dim Hücre As Range
    
    For Each Hücre In Selection
        If Hücre.NumberFormat Like "*%*" Then
            Hücre = Hücre * 100
            Hücre.NumberFormat = "#,##0"
        End If
    Next Hücre
    
End Sub

 

[Seyit Tiken]

 

[omemo]

Aşağıdaki kodları çalıştırmadan önce tüm hücreleri seçmelisiniz.
Deneyin bakalım sonucu bildirirseniz sevinirim.

Sub YüzdeKaldır()

    Dim Hücre As Range
    
    For Each Hücre In Selection
        If Hücre.NumberFormat Like "*%*" Then
            Hücre = Hücre * 100
            Hücre.NumberFormat = "#,##0"
        End If
    Next Hücre
    
End Sub

Merhaba,
Tam istediğim gibi olmuş. Tüm hücreleri seçme işini de aşağıdaki kod ile hallettim.
Kod içinde yer alan Like "*%*" ifadesinin tam olarak ne anlama geldiğini yazarsanız sevinirim.
Teşekkürler...

Selection.CurrentRegion.Select

 

[omemo]

Merhaba,
Maalesef yapamadım. Excel %~ifadesine hiçbir tepki vermedi.
Sayın Necdet Yeşertener'in yazdığı kodlar işimi gördü.
Amacım hem sorunu çözmek hem de kodlama öğrenmekti.
Teşekkürler.