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
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.
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
Ö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Ğ
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.
Private Sub Worksheet_Change(ByVal Target As Range)şeklinde deneyinSelect Case Cells(2, "E")
Case 1
Cells(2, "D") = "PEYNİR
Case 2
Cells(2, "D") = "LOR"
Case 3
Cells(2, "D") = "SADEYAĞ"
End Select
End Sub