hücre ondalık basamak sorunu

[güven]

Merhabalar bir tablo oluşturmak istiyorum; hücreye "m2" yazdığımda hemen yanındaki hücre ondalık basamak sayısını iki yapsın yani 10,00. yine aynı sütun altındaki hücreye "m3" yazdığımda hemen sağındaki hücre değeri ondalık sayısı üç olsun yani 10,000 gibi. ölçü birimlerini yazdığım sütunun yanında da miktar sütunu var .Resimli anlatmak istedim bununla ilgili koda ihtiyacım var yardımcı olan arkadaşlara sonsuz teşekkürler.

 

[Necdet]

Merhaba,

Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayıp deneyiniz.

A sütununda yazılan m1,m2,m3 değerlerine göre B sütununun ondalık sayısını düzenler.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
    If Target.Value = "m1" Then
        Target.Offset(0, 1).NumberFormat = "0.0"
    ElseIf Target.Value = "m2" Then
        Target.Offset(0, 1).NumberFormat = "0.00"
    ElseIf Target.Value = "m3" Then
        Target.Offset(0, 1).NumberFormat = "0.000"
    Else
        Target.Offset(0, 1).NumberFormat = "0"
    End If
End Sub

 

[uzmanamele]

merhaba

sorularınızı resimle değil örnek dosya ile destekleyiniz.

ek dosyayı inceleyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Columns(4)) Is Nothing Then Exit Sub
a = Right(Target.Text, 1)
If a = 3 Then
Cells(Target.Row, (Target.Column + 1)).NumberFormat = "#,##0.000"
Else
If a = 2 Then
Cells(Target.Row, (Target.Column + 1)).NumberFormat = "#,##0.00"
Else
Cells(Target.Row, (Target.Column + 1)).NumberFormat = "#,##0.0"
End If
End If
End Sub

 

[güven]

çok değerli necdet bey sonsuz teşekkürler sayenizde işimi gördüm

 

[güven]

sayın uzmanmale çok teşekkürler

 

[uzmanamele]

sayın uzmanmale çok teşekkürler

merhaba
güle güle kullanın
ama önce adımı doğru yazın!

 

[Ayhan Ercan]

merhaba
güle güle kullanın
ama önce adımı doğru yazın!

Sevgili uzmanamele

uzmanmale yerine uzmanfemale yazılmamış. Buna da şükür....

 

[uzmanamele]

merhaba

my name is (not) uzmanshemale :lolipop