%'leri Kaldırma

[focus20]

Linkteki dosya gibi bir sürü dosyam var ve %'leri kaldırmam gerekiyor. bul ve değiştirle yapıyorum fakat sayılar tarih oluyor, başka sayılara dönüşüyor metin biçiminde yapıyorum yine aynısı oluyor. Yardımcı olursanız sevinirim. Önemli bir de not eklemek istiyorum bütün %'li sayıların biçimi SAYI şeklinde ona göre değerlendirirseniz sevinirim. http://s9.dosya.tc/server3/wexkz6/vabapro.xlsx.html

 

[esalci]

Selam,

34 bin küsür veri için bende 12 saniye sürdü.

Öncelikle düzenlemek istediğin hücreleri seç ve bu makroyu çalıştır. Seçme işlemini ilk satırı seçtikten sonra ctrl+shift+ ↓ Aşağı Ok yönü tuşu ile yapabilirsin.

Sub LoopSelection()

    Dim cel As Range
    Dim selectedRange As Range

    Set selectedRange = Application.Selection

    For Each cel In selectedRange.Cells
        cel.Value = Left(cel.Value, 5)
    Next cel
    
    With Selection
        .NumberFormat = "General"
        .Value = .Value
    End With

End Sub

 

[focus20]

Teşekkür ederim fakat şöyle bir sorun var mesela 2.47% sayısını 0,0247 yaptı diğeri 9.37 onuda 0,0937 yaptı tek haneli sayılarda sıkıntı oluyor.

 

[Necdet]

Merhaba,

Bul ve değiştir ile Noktaları Virgül ile değiştirin.
Sonra istediğiniz rakam biçimiyle biçimlendirin.

 

[hoguz2]

merhaba

Merhaba değiştirmek istediğiniz bütün alanı secin Necdet hocanın dediği şekilde ctrl+ H ile noktaları virgül ile değiştirin.

Boş bir hücreye 100 yazın yüz yazdığınız hücreyi kopyalayın. Değiştirmek istediğiniz alanı tekrar seçin . Özel yapıştır - İşlem Çarp kutucuğunu işaretleyin. Tamam a tıklayın

 

[focus20]

Teşekkür ederim hepinize iyi çalışmalar.