hücrelerdeki sayıyı =0/sayı yapma

[waytooraider]

merhabalar,

o sayfadaki sadece sayı olan hücreleri =0/sayı şekline çevirebilen bir kod yazılabilir mi, yani hücredeki sayı 126 ise kod çalıştıktan sonra hücre =0/126 gözüksün.Text,sıfır yada boş hücrelere herhangi bir işlem yapmasın

Saygılarımla.

 

[Ömer BARAN]

Merhaba.

Aşağıdaki kod A sütunundaki sayıları istediğiniz şekle dönüştürür.
.

Sub AD_SOYAD_AL_BRN()
[COLOR="Blue"][SIZE="2"]'*** Birinci satırın başlık satırı olduğu ve verilerin A sütununda olduğu varsayımıyla ***[/SIZE][/COLOR]
For satır = 2 To [A65536].End(3).Row
If Cells(satır, 1) > 0 And IsNumeric(Cells(satır, 1)) Then
    Cells(satır, 1).NumberFormat = "@"
    Cells(satır, 1) = "=0/" & Cells(satır, 1)
End If
Next
End Sub

 

[waytooraider]

Çok teşekkür ederim ama bir çok sütunda sayılarım var acaba tüm hücrelerdeki sayılar için yapılabilir mi?

 

[Korhan Ayhan]

Deneyiniz.

Sub Makro()
    Dim Alan As Range, Veri As Range
    On Error Resume Next
    Set Alan = Range("A1:Z100").SpecialCells(xlCellTypeConstants, 1)
    On Error GoTo 0
    If Not Alan Is Nothing Then
        For Each Veri In Alan
            Veri.Formula = "=0/" & Veri.Value
        Next
        MsgBox "İşleminiz tamamlanmıştır.", vbInformation
    End If
End Sub

 

[Emir Hüseyin Çoban]

. . .

Alternatif,

Sub kod()
    For Each alan In ActiveSheet.UsedRange
        If alan > 0 And IsNumeric(alan) Then
            alan.Value = "'=0/" & alan
        End If
    Next
End Sub

. . .

 

[waytooraider]

Hepinize çok teşekkür ederim.

Hüseyin Bey,sizin kod da hücre '=0/126 şeklinde görülüyor.Çözüm olarak tüm hücreleri 1 ile çarpıp,word pede aktarıp tekrar excele geri aktarıyorum.

 

[Emir Hüseyin Çoban]

. . .

Yaptığınız işlemi anlamadım ama tırnak işareti işlemlerde çıkmaz.
Örneğin hücreden kopyaya yapıp, word de yapıştırın tırnak işareti yok olur.
Alternatif olması için böyle bir örnek paylaşmıştım...

Şu şekilde kullanabilirsiniz.

alan.NumberFormat = "@"
alan.Value = "=0/" & alan

. . .