Soru Sayıya Çevirme

[NADİR YILDIZ]

iyi akşamlar
D ve E sütünlarındaki metin şeklinde olanları sayıya çevirmek için bu makroyu kullanmak istedim ancak olmuyor
Ayrıca B sütunundaki Dönem olanlarıda mavi hücredeki gibi makro ile nasıl düzenleyebilirim

 

[tamer42]

iyi akşamlar
D ve E sütünlarındaki metin şeklinde olanları sayıya çevirmek için bu makroyu kullanmak istedim ancak olmuyor
Ayrıca B sütunundaki Dönem olanlarıda mavi hücredeki gibi makro ile nasıl düzenleyebilirim

eğer Türkçe Excel kullanıyorsanız aşağıdaki kodu kullanabilirsiniz.

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
    Dim alan As Range
    Dim hucre As Range
    Set alan = Range("c5:e16")
    
       For Each hucre In alan
            If hucre <> "" Then
                hucre = Replace(hucre, ".", ",")
           End If
       Next
       
    alan.NumberFormat = "General"
    alan.NumberFormat = "#,##0.00"

Application.ScreenUpdating = True
End Sub

 

[Ylcnyldrm]

Merhaba sayıya çevirmek istediğiniz hücreleri tıklayıp butona tıkladığınızda o hücreyi/hücreleri sayıya çeviriyor. (Yapay Zekadan Destek Alınmıştır)

 

[NADİR YILDIZ]

Sayın tamer teşekkürler
maalesef sizin makronuz olmadı
Korhan Üstadın makrosunu kullanarak sayıya çevir nadir butonuna göre D ve E sütunundakileri sayıya çevirdim
ancak A sütunun bütününü mavi hücredeki gibi şekle çevirmek istiyorum sayıya çevir tamer butonuna atayarak yapabilirmiyim

 

[NADİR YILDIZ]

Merhaba sayıya çevirmek istediğiniz hücreleri tıklayıp butona tıkladığınızda o hücreyi/hücreleri sayıya çeviriyor. (Yapay Zekadan Destek Alınmıştır)

sayın yıldırım desteğiniz için teşekkürler ancak liste uzun olduğu için çok kullanılabilir değil

 

[Korhan Ayhan]

Deneyiniz.

Private Sub CommandButton1_Click()
    Dim Veri As Variant
    
    Application.ScreenUpdating = False
    
    With Range("B5:B" & Cells(Rows.Count, 2).End(3).Row)
         Veri = .Value2
        .NumberFormat = "General"
        .NumberFormat = "0"
        .Value = Veri
    End With
    
    Application.ScreenUpdating = True

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

Private Sub CommandButton2_Click()
    Dim Sutun As Range
    
    Application.ScreenUpdating = False
    
    With Range("D5:E" & Cells(Rows.Count, 5).End(3).Row)
        .Replace ".", ","
        For Each Sutun In .Columns
            With Sutun
                .TextToColumns Destination:=.Cells(1, 1), _
                 DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
                 ConsecutiveDelimiter:=False, Tab:=False, _
                 Semicolon:=False, Comma:=False, _
                 Space:=False, Other:=False, FieldInfo:=Array(1, 1)
            End With
        Next
        .ClearFormats
        .Borders.LineStyle = 1
        .NumberFormat = "#,##0.00"
    End With
    
    Application.ScreenUpdating = True

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[NADİR YILDIZ]

Korhan Üstat teşekkürler