Hücreye Formül Girmeden Başka Hücre ile Bağlantılama

[ceylankral]

Arkadaşlar merhaba, biraz araştırdım ama birşey bulamadım. Daha doğrusu ne yazıp da arayacağımı bilemedim. Şimdi şöyle birşey istiyoruz.

mesela B1 + değer ve C1 - değer olarak iki hücre olsun. A1 de 100 yazılı olsun. B1 hücresine 10 yazılıp enter yapıldığı anda A1 hücresine eklensin ve B1 deki değer silinsin.

Şimdi burada önemli olan nokta şu, A1 hücresini bazen el ile değiştirebiliyoruz. Yani A1 hücresine formül giremiyoruz. Ama B1 deki değer A1 ile daima bağlantılı olacak. B1 hücreisne herhangi bir değer girildiğinde anında A1 e eklenecek ve B1 temizlenecek. Sonraki günlerde A1 hücresini el ile 500 diye değiştirdiğimizde B1 ile olan bağlantısı kesilmeyecek. yine B1 e değer eklediğimizde A1 de değişecek.

biraz garip oldu gibi ama böyle birşey mümkün mü?

 

[antonio]

Merhaba,
Belirttiğiniz durum sadece bir satır için mi geçerli, yoksa tüm sütun boyunca veya belli bir satıra kadar mı?

 

[antonio]

Size fikir vermesi açısından (sadece 1. satır için) sayfanızın sekmesine sağ tıklayıp "kod görüntüle" seçeneği ile kod penceresini açtıktan sonra, aşağıdaki kodları yapıştırınız.
Sayfanıza kodları yapıştırdıktan sonra, B1 hücresine herhangi bir sayı yazınız, ve A1 hücresindeki durumu gözlemleyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [B1]) Is Nothing Then
    deg = Target.Value
    If deg = "" Or deg = 0 Then Exit Sub
    toplam = Target.Offset(0, -1).Value + deg
    Target.Offset(0, -1).Value = toplam
    Target.Value = ""
End If
End Sub

 

[ceylankral]

tam olarak istediğim buydu çok teşekkürler über süper birşekilde çalıştı

 

[antonio]

Rica ederim.

 

[ceylankral]

Rica ederim.

çok özür dilerim birşey daha sorayım, B1 e yazdığımız değer hemen solundaki hücreye etki ediyor. Bunu başka bir hücreye etki ettirebilir miyiz?

mesela B1 ye yazdığımızı B5 e yada herhangi bir hücreye etki ettirmek için?

bir de, mesela B1 den tüm sütun boyunca bu şekilde olsa.

 

[antonio]

çok özür dilerim birşey daha sorayım, B1 e yazdığımız değer hemen solundaki hücreye etki ediyor. Bunu başka bir hücreye etki ettirebilir miyiz?

mesela B1 ye yazdığımızı B5 e yada herhangi bir hücreye etki ettirmek için?

bir de, mesela B1 den B20 ye kadar bu şekilde olsa.

Sorun değil! Siz yeterki şunlara net cevap verin:
- Kaç satır boyunca?
- B hücresine yazılan değer hangi hücreleri ne şekilde değiştirsin?

 

[ceylankral]

Tüm sütun boyunca etkilesin. Yani B1, B2, B3... değer girdiğimde B1 için A1 i, B2 için A2 yi ... şeklinde etkilesin. Ama kodları oluştururken hücre harflerini ben sonradan değiştirebileyim. Bazen sütun yerlerini değiştirmemiz gerekebiliyor. Mesela bazen K2 için E2 etkilensin, K3 için E3 etkilensin diyebiliyoruz.

 

[antonio]

Tüm sütun boyunca etkilesin. Yani B1, B2, B3... değer girdiğimde B1 için A1 i, B2 için A2 yi ... şeklinde etkilesin. Ama kodları oluştururken hücre harflerini ben sonradan değiştirebileyim. Bazen sütun yerlerini değiştirmemiz gerekebiliyor. Mesela bazen K2 için E2 etkilensin, K3 için E3 etkilensin diyebiliyoruz.

Tüm B sütunu boyunca yazdığınız sayı, A, D ve K sütunlarına ilave edilecek şekildi aşağıdaki şekilde düzenlendi. Kodun içinde gerekli açıklamalar mevcuttur.
Kendinize göre eklemeler ve düzeltmeler yapabilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [B:B]) Is Nothing Then
    deg = Target.Value
    If deg = "" Or deg = 0 Then Exit Sub
        'Etkilenecek sütunların rahat anlaşılması için kodları değiştiriyorum.
        'Sütun isimlerini kendinize göre değiştiriniz.
        'Sütun harflerini değiştirmeniz yeterlidir.
        sat = Target.Row
    deg1 = Cells(sat, "A").Value + deg 'A sütunu ile yeni yazılan değerin toplamı
    deg2 = Cells(sat, "D").Value + deg  'D sütunu ile yeni yazılan değerin toplamı
    deg3 = Cells(sat, "K").Value + deg  'K sütunu ile yeni yazılan değerin toplamı
    
        'buraya kadar sadece toplama işlemini yaptık, henüz ilgili hücrelere yazdırmadık.
        'şimdi yazdırma işlemini başlatalım:
    Cells(sat, "A").Value = deg1
    Cells(sat, "D").Value = deg2
    Cells(sat, "K").Value = deg3
    
    Target.Value = ""
End If
End Sub

 

[ceylankral]

harika. tekrar teşekkürler

 

[antonio]

Kolay gelsin.