Hücre değerine bağlı biçimlendirme

[Exxman]

Merhabalar,
Bir hücreye veri girdiğimde (metin olarak) bu metni bir başka hücrenin biçimi olarak kullanmak için bir formül ya da kod yazmak mümkün müdür?
Örnek A1'e kg girdim B1'e ise 5. B1 5 sayı olarak kalsın ama A1'de hangi metni girdiysem onu yazsın (örnekte kg ama metre girdiysem de onu yazacak tablo şeklinde) yani B1 5kg gözüksün ama sayı olarak (& ile yapılınca sayı olmuyor).
Şimdiden çok teşekkür ederim.

 

[ÖmerBey]

Merhaba,
İlgili sayfanın kod bölümüne kopyalayıp deneyiniz.
A sütununa girdiğiniz metin B sütunda hücre biçimi olarak gözükür.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
    For Each hcr In Target.Cells
        If hcr <> "" Then
            hcr.Offset(0, 1).NumberFormat = "0"" " & hcr.Text & """"
        Else
            hcr.Offset(0, 1).NumberFormat = "General"
        End If
    Next
End If
End Sub

 

[Korhan Ayhan]

Deneyiniz.

Sayfanızın kod bölümüne uygulayınız.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A1:B1")) Is Nothing Then Exit Sub
    Range("B1").NumberFormat = "#,##0.00 """ & Range("A1") & """"
End Sub

 

[Exxman]

Merhaba,
İlgili sayfanın kod bölümüne kopyalayıp deneyiniz.
A sütununa girdiğiniz metin B sütunda hücre biçimi olarak gözükür.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
    For Each hcr In Target.Cells
        If hcr <> "" Then
            hcr.Offset(0, 1).NumberFormat = "0"" " & hcr.Text & """"
        Else
            hcr.Offset(0, 1).NumberFormat = "General"
        End If
    Next
End If
End Sub

Çok çok teşekkür ederim, çalıştı. )

 

[Exxman]

Deneyiniz.

Sayfanızın kod bölümüne uygulayınız.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A1:B1")) Is Nothing Then Exit Sub
    Range("B1").NumberFormat = "#,##0.00 """ & Range("A1") & """"
End Sub

Çok teşekkür ederim, çalışıtı bu da.

 

[Exxman]

Ben hücre biçimlendirme seçip oraya formül yazmaya çalışmıştım ama olmamıştı kod çok daha kolay oldu tekrar çok teşekkür ederim.