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

[sdegirmenci]

Tüm forum hocalarım ve arkadaşlarım merhaba;
Ekteki dosyam üzerinde de açıkladığım gibi hücre formatı yanındaki hücrenin içeriğine göre değişebilirmi? Şimdiden herkese taşekkür ederim.

 

[Necdet]

Merhaba,

Eğer giriş anında istiyorsanız aşağıdaki kodları ilgili sayfanın kod bölümüne ekleyiniz.

Yok sonradan da istediğim an yapabilirim derseniz küçük değişiklik gerekebilir.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [B4:B1000]) Is Nothing Then Exit Sub
If Target.Value = "ad" Or Target.Value = "Ad" Then
    Target.Offset(0, 1).NumberFormat = "#,##0"
ElseIf Target.Value = "kg" Or Target.Value = "Kg" Then
    Target.Offset(0, 1).NumberFormat = "#,##0.00"
End If
Son:
End Sub

 

[sdegirmenci]

Sayın Necdet YEŞERTENER; önce ilginize teşekkür ederim;
Başka bir giriş sayfasında makro ile bu hücrelere aktarma yapıyoruz.Sayfa aktif olunca çalışsada olur

 

[Necdet]

Merhaba,

Küçük değişiklikiği sanırım siz farkedersiniz.

Private Sub Worksheet_Activate()
For i = 4 To [B65536].End(3).Row
If Cells(i, "B") = "ad" Or Cells(i, "B") = "Ad" Then
    Cells(i, "C").NumberFormat = "#,##0"
ElseIf Cells(i, "B") = "kg" Or Cells(i, "B") = "Kg" Then
    Cells(i, "C").NumberFormat = "#,##0.00"
End If
Next i
End Sub

 

[sdegirmenci]

Kıymetli Hocam Yeşertener,
Çok teşekkür ederim.Tam istediğim gibi oldu,Bilginize sağlık ,Hayırlı geceler dilerim.

 

[Necdet]

İyi geceler, güle güle kullanınız.