kullanıcıya göre

Katılım
14 Temmuz 2006
Mesajlar
5
arkadaşlar aranıza dün katıldım ve daha önce excel in bilmediğim yönünü öğrendim...
benim şöyle bir sorum vardı
kullanıcı b3 stununa harika
c3 stununa 50 yazdığı zaman
d3 stununa 56 yazmasını istiyorum
çünkü harikanın değeri 6.
bunu kodlarla nasıl yapabilirim?
teşekkürler
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,248
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

Aşağıdaki kodu sayfa ismi üzerindeyken sağ tıklayıp kod görüntüle dedikten sonra açılan pencereye uygulayın.

Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B3,C3]) Is Nothing Then Exit Sub
If [B3] = "" Or [C3] = "" Then
[D3] = ""
End If
If [B3] = "HARİKA" And [C3] = 50 Then
[D3] = 56
Else
[D3] = ""
End If
End Sub
 

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
Bu kodu bir deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If [B3] = "Harika" And [C3] = 50 Then
[D3] = 56
Else
[D3] = ""
End If
End Sub
 
Katılım
14 Temmuz 2006
Mesajlar
5
cost control ,seyit tiken teşekkür ederim
 
Üst