hücrede yazan ifadeye göre sayı biçimlendirme

[modoste]

merhaba sayın hocalarım
A1 hücresinde "adet" yazıyosa B1 hücresine yazacağım sayı 5
A1 hücresine "paket" yazıyosa B1 hücresindeki sayı 5,2
A1 hücresinde "kg" yazıyosa B1 hücresindeki sayı 5,23
olacak şekilde formülasyon yada sayı biçimi yapılabiliyomu
metneçevir formülü ile yapmak istemniyorum sayıyı sonuçta kullanmak istiyorum.

 

[İhsan Tank]

merhaba sayın hocalarım
A1 hücresinde "adet" yazıyosa B1 hücresine yazacağım sayı 5
A1 hücresine "paket" yazıyosa B1 hücresindeki sayı 5,2
A1 hücresinde "kg" yazıyosa B1 hücresindeki sayı 5,23
olacak şekilde formülasyon yada sayı biçimi yapılabiliyomu
metneçevir formülü ile yapmak istemniyorum sayıyı sonuçta kullanmak istiyorum.

merhaba
sayfanın kod bölümüne kopyalar mısınız

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Range("A1") = "adet" Then
Range("B1").NumberFormat = "#,##0"
ElseIf Target.Range("A1") = "paket" Then
Range("B1").NumberFormat = "#,##0.0"
ElseIf Target.Range("A1") = "kg" Then
Range("B1").NumberFormat = "#,##0.00"
End If
End Sub

 

[ynmcan]

merhaba sayın hocalarım
A1 hücresinde "adet" yazıyosa B1 hücresine yazacağım sayı 5
A1 hücresine "paket" yazıyosa B1 hücresindeki sayı 5,2
A1 hücresinde "kg" yazıyosa B1 hücresindeki sayı 5,23
olacak şekilde formülasyon yada sayı biçimi yapılabiliyomu
metneçevir formülü ile yapmak istemniyorum sayıyı sonuçta kullanmak istiyorum.

Syn. Modoste;
Ekteki dosyayı inceleyin.

Private Sub Worksheet_Change(ByVal Target As Range)
If [A1] = "" Then
[B1] = ""
End If
If [A1] = "adet" Then
[B1] = 5
End If
If [A1] = "paket" Then
[B1] = 5.2
End If
If [A1] = "kg" Then
[B1] = 5.23
End If
End Sub

 

[modoste]

sayın ihsan hocam makro ile çözüm önerdiniz teşekkür ediyorum
sorumu söyle değiştirerek soruyorum
A1 hücresinde "adet" yazıyosa B1 hücresine yazan 2,23 sayısını C1 hücresinde 2
A1 hücresine "paket" yazıyosa B1 hücresine yazan 2,23 saysısını C1 hücresinde 2,2
A1 hücresinde "kg" yazıyosa B1 hücresinde yazan 2,23 sayısını C1 hücresine 2,23 e nasıl formüller çeviririz.
bu sefer B1 hücresinde sayı belirtilmiş C1 hücresine sayı bçimi çevrilmek isteniyo

 

[Necdet]

Merhaba,

Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayınız.
A sütununa yazacağınız sözcüğe göre B sütununu formatlayacaktır.

Option Compare Text
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
If Target.Value = "adet" Then
    Target.Offset(0, 1).NumberFormat = "#,##0"
ElseIf Target.Value = "paket" Then
    Target.Offset(0, 1).NumberFormat = "#,##0.0"
ElseIf Target.Value = "kg" Then
    Target.Offset(0, 1).NumberFormat = "#,##0.00"
End If
End Sub

 

[Necdet]

Yaşlandık, geç kalmışım

Ama sadece a1 hücresine bağlı kalmak sanki sakıncalı gibi, sorunun gidişatı onu gösteriyor gibi.

 

[İhsan Tank]

sayın ihsan hocam makro ile çözüm önerdiniz teşekkür ediyorum
sorumu söyle değiştirerek soruyorum
A1 hücresinde "adet" yazıyosa B1 hücresine yazan 2,23 sayısını C1 hücresinde 2
A1 hücresine "paket" yazıyosa B1 hücresine yazan 2,23 saysısını C1 hücresinde 2,2
A1 hücresinde "kg" yazıyosa B1 hücresinde yazan 2,23 sayısını C1 hücresine 2,23 e nasıl formüller çeviririz.
bu sefer B1 hücresinde sayı belirtilmiş C1 hücresine sayı bçimi çevrilmek isteniyo

merhaba

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Range("A1") = "adet" Then
Range("C1").Value = Range("B1").Value
Range("C1").NumberFormat = "#,##0"
ElseIf Target.Range("A1") = "paket" Then
Range("C1").Value = Range("B1").Value
Range("C1").NumberFormat = "#,##0.0"
ElseIf Target.Range("A1") = "kg" Then
Range("C1").Value = Range("B1").Value
Range("C1").NumberFormat = "#,##0.00"
End If
End Sub

bu işinizi görür mü_?