1. Ana Sayfa
  2. Excel
  3. Excel Hücre Değerine Göre Başka Bir Hücreye Değer Atama

Excel Hücre Değerine Göre Başka Bir Hücreye Değer Atama

excelhucredegerinegore

Bir arkadaşımızın bu adresteki sorusuna cevaben hazırlanmıştır. Excel’de bir hücrenin içeriği değiştiğinde diğer hücrelere değer atama işlemini yapabilmek için ufak bir kod yazacağız, bizden istenen b2 hücresi 800 olduğunda c2’ye 20,1250 olduğunda 50 yazdırmak bu işlem için aşağıdaki kod işimizi görecektir.

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Cells(2, "B")
Case 800
Cells(2, "C") = 20
Case 1250
Cells(2, "C") = 50
End Select
End Sub
Yorum Yap
Subscribe
Bildir
guest

This site uses Akismet to reduce spam. Learn how your comment data is processed.

5 Yorum
Inline Feedbacks
View all comments
Ugur Harlar

Merhaba;
 
sorunum şu;
 
B1 hücresi değerini 1 arttırdığımda, F1, G1, H1 değerleri 1 eksilsin.
 
ama B1 hücresi değerini 1,2,5,50 vb. kaç eksiltirsem eksilteyim, F1, G1 ve H1 de hiç bir değişillik olmasın.
 
 

Mehmet Ali Altun

Hocam yaptım fonksiyon çalışma kitabında da çıktı ama nasıl uygulayacağımı bilmiyorum pek bilgim yok vba ile ilgili yardımcı olabilirseniz çok sevinirim

ORHAN YILDIZ

Öncelikle cevabınız için teşekkürler.
Aslında sorumu eksik sormuşum.
E2 1 Olduğunda D2 PEYNİR
E2 2 Olduğunda D2 LOR
Bu kısmı alttaki makro sağlıyor ama sadece E2 değil E350’ye kadar bu makroyu ayarlamam gerekiyor.
E200 5 Olduğunda D200 SADEYAĞ
E300 3 Olduğunda D300 TEREYAĞ

ORHAN YILDIZ

E2 1 OLDUĞUNDA
D2 PEYNİR
E2 2 OLDUĞUNDA
D2 LOR
E2 3 OLDUĞUNDA
D3 SADEYAĞ

Durumuna uyarlamak istedim çalışmıyor.