hücre formatı diğer hücrenin içeriğine göre değişebilirmi?

[sdegirmenci]

Kıymetli Hocalarım, Öncelikle merhaba
Ekte dosya üzerinde küçük bir örneğini yaptığım , hücreye değer yazdığımızda diğer bir hücrenin içeriğine göre formatının değişmesini istiyorum.Örnek diğer hücre "Kg." veya "Litre" ise sayı formatı ve virgülden sonra 3 hane ,diğer hücreninin içeriği "Adet" ,"Paket" vs. ise yine sayı formatı ancak virgül ile ayırmasın.
Yardımlarınız için çok teşekkür ederim.

 

[Orion1]

Dosyanız ekte.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C5]) Is Nothing Then Exit Sub
On Error Resume Next
If Target.Value = "Kg." Or Target.Value = "Litre" Then
    Target.Offset(-1, 0).NumberFormat = "#,##0.000"
    Else
    Target.Offset(-1, 0).NumberFormat = "###0"
End If
    
End Sub

 

[sdegirmenci]

Sayın Evren Gizlen;
İlginizden dolayı çok teşekkür ederim.Tam istediğim gibi.İşlerinizin kolay gelsin.

 

[Orion1]

Sayın Evren Gizlen;
İlginizden dolayı çok teşekkür ederim.Tam istediğim gibi.İşlerinizin kolay gelsin.

Rica ederim.
İyi çalışmalar.

 

[sdegirmenci]

Sayın Evren GİZLEN,
Diğer hücreye el ile "Kg" veya "Adet" yazdığımızda format değişmekte,Ancak diğer hücre içeriği başka bir hücreye formül ile bağlı.Dolayısıyla içerik değiştiğinde format değişmemekte.Çaresi varmı bilmiyorum.Tekrar ilgilenirseniz çok sevinirim. Bu sefer dosyamı ekliyorum.

 

[Orion1]

Dosyanız ekte.

 

[sdegirmenci]

Sayın Evren Gizlen;
Çok özür dilerim ama dosyamdaki yapmış olduğunuz kod değişikliğini anlayamadım.Acaba kendime uyarlayacağım bir şeymi diye çok baktım ama,yine anlayamadım.Tekrar bakabilirmisiniz acaba. Rahatsız ediyorum belki çok oluyorum ama,tekrar özür dilerim
If Target.Address <> "$AE$33:$AK$33" Then Exit Sub
SendKeys "&#37;{down}"

 

[Orion1]

Az önce yolladığım dosyada Kodlar gayet güzel çalışıyor.
Malzeme adından Limonu seçin ve BC27 hücresindeki sayı formatını gözlemleyin sonrada Malzeme adından makarnayı seçin ve sonucu gözlemleyin.
Kodlar Açılan kutu nesnesine yazılmıştır.Açılan kutuya sağ tıklayın ve kodu düzenleyi seçin VBE ekranında karşınıza kodlar çıkacaktır.

Sub Açılan2_Değiştir()
On Error Resume Next
If Range("BC29").Value = "Kg." Or Range("BC29").Value = "Lt." Then
    Range("BC27").NumberFormat = "#,##0.000"
    Else
    Range("BC27").NumberFormat = "###0"
End If
End Sub

 

[sdegirmenci]

Say&#305;n Evren G&#304;ZLEN;
&#214;ncelikle nezaketinize te&#351;ekk&#252;r ederim,Ben Alttaki a&#231;&#305;lan kutudan de&#287;i&#351;tirdi&#287;im i&#231;in fark&#305;na varamad&#305;m.Tekrar te&#351;ekk&#252;r eder hay&#305;rl&#305; geceler dilerim.

 

[Orion1]

Sayın Evren GİZLEN;
Öncelikle nezaketinize teşekkür ederim,Ben Alttaki açılan kutudan değiştirdiğim için farkına varamadım.Tekrar teşekkür eder hayırlı geceler dilerim.

Rica ederim.
iyi çalışmalar.