birim değiştirme

[modoste]

merhaba sayın hocalarım
A2:H2 arasında formüller sonucu bulunmuş yada manuel yazılmış veriler var
benim sorum şu
A1 hücresine m³ yazdığımda A2:H2 arası verilerin yanına m³ eklenebilir mi
makro yada makro hariç çözümler olabilir.
ben birimi bir hücreye yazcam tüm sayıların sonuna birimi yazılacak.

 

[bzace]

Merhaba,
Bir modülün içerisine yazınız.

Sub Daxe_Syan()
    Dim J As Long
    Dim Jn As Worksheet
    Set Jn = Sheets("Sayfa1")
    For J = 1 To 8
        With Jn.Cells(2, J)
            If .Value <> "" Then .Value = .Value & " " & Jn.Range("A1")
        End With
    Next    
End Sub

Not: Eğer hücreye aldığınız değerler Formülleyse makroyu çalıştırdığınızda hücredeki formüller kaybolacaktır.

 

[Seyit Tiken]

Ben soruyu bu şekilde anladım.

Private Sub Worksheet_Change(ByVal Target As Range)
If [A1] = "m" Then
[a2:h2].NumberFormat = "#,##0.00 ""m³"""
Else
[a2:h2].NumberFormat = "#,##0.00"
End If
End Sub