metin olan rakamları sayı biçimine dönüştürme

[sadece_erhan]

Merhaba, hepinize kolay gelsin, örnek dosyada görüldüğü gibi sonunda _TL+KDV olan bedeller var. ben _TL+KDV lerin ve rakamların arasındaki metin değeri taşıyan . ların silinip hücredeki rakamların sayı biçimli 123456789.00 şeklinde olmasını istiyorum. yapıyorum ama rakamların bi kısmı oluyo bi kısmı hala metin değeri taşıyor. kullandığım kod aşağıda

 ElseIf OptionButton8 = True Then
    For Each hücre In Selection
    Selection.Replace What:=".", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="_TL+KDV", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Style = "Comma"
    Selection.NumberFormat = "0.00"

birde g hücresindeki tarihin başındaki boşluk ve tarihden sonraki saat bilgisinin silinmesini istiyorum. becemiyoruz bi yardımcı olun şimdiden elinize sağlık

 

[Vedat Özer]

Merhabalar,


Makro olarak değil de yerleşik fonksiyonlarla işinize yararsa aşagıdaki formülleri kullanabilirsiniz,

B1 Hücresine yapıştırıp aşagıya doğru çekin,

=EĞER(A1="";"";YERİNEKOY(PARÇAAL(A1;1;MBUL("_";A1)-1);" ";"")*1)

C1 Hücresine yapıştırıp aşagıya doğru çekin,

=EĞER(A1="";"";YERİNEKOY(PARÇAAL(A1;MBUL("_";A1)+1;10);" ";""))

 

[sadece_erhan]

tarih meselesini nasıl hallederiz?

 

[sadece_erhan]

MBUL("2011";C7)-6;10) olacak şekilde değiştirdim, tarih sorunuda düzeldi, teşekkür derim

 

[Vedat Özer]

Merhabalar,


Tarih kısmı gözümden kaçmış kusura bakmayın,

Sizde çözmüşünüz tebrik ederim

İyi çalışmalar dilerim.