ekteki dosyadan virgülleri kaldırma?

[Z3U519]

Arkadaşlar ekteki dosyanın en son sütunundaki ihtiyaç yok ifadesinin karşısındaki değerlerin virgülden sonraki kısmı almaması için ne yapabilirim?

 

[ataturkiyem11]

Biçim boyacısını kullanarak diğer sıfırlarla aynı özelliği taşımasını sağlayabilirsin.

 

[ataturkiyem11]

Yada hücreyi sağ tıkla, Hücreleri biçimlendirden kategoriden sayı biçimlerinden 2 olan sayısı 0 yap virgül koymaz.

 

[Necdet]

Merhaba,

Sağındaki hücreye aşağıdaki formülü yazınız.

=SOLDAN(AN1;MBUL(",";AN1)-1)

Not : Merakımdan soruyorum, Görüntüyü küçültüp karakter boyutunu büyütmenin mantığı nedir?

 

[Z3U519]

Teşekkür ederim Necdet Bey.Henüz biçimsel olarak üzerinde değişiklik yapma fırsatım olmadı.Tablo çok büyük aslında çok küçük bir kısmını ekledim.Peki bunu formülsüz yapma şansım var mı?

 

[Necdet]

Teşekkür ederim Necdet Bey.Henüz biçimsel olarak üzerinde değişiklik yapma fırsatım olmadı.Tablo çok büyük aslında çok küçük bir kısmını ekledim.Peki bunu formülsüz yapma şansım var mı?

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz.

Sub Duzenle()
    
    Dim i   As Long
    
    Application.ScreenUpdating = True
    
    For i = 1 To Cells(Rows.Count, "AN").End(3).Row
        Cells(i, "AN") = Split(Cells(i, "AN"), ",")(0)
    Next i
    
    Application.ScreenUpdating = False
    MsgBox "İşlem Tamamlandı...."
    
End Sub