formül olan hücre değerini başka hücreye kopyalamak

[musculus2]

Merhabalar.
Benim sorunum B1 hücresinde açılır bir liste mevcut.Bu hücreyi değiştirdiğimizde O2 hücresinden aşağıya 1000 kadar hücre verisi değişiyor.(orjinal excelde değişiyor.örnek olarak gönderdiğimde değişmiyor).Şİmdi B1 hücresinde bir veri seçtiğimde formül ile hesaplanan O3 hücresi verisi ilgili yılın altına yazılması gerekiyor.
Karışık gibi geliyor ama örnekte daha iyi anlaşılacağını düşünüyorum.
Yardımlarınız için teşekkür ederim.

 

[Mahir64]

Merhaba,

Deneyiniz.

=+EĞER(Q$1=$B$1;O3;"")

 

[musculus2]

İlginiz için teşekkür ederim.
Formülde yılı değiştirdiğimde önceki hesaplanan veriler siliniyor.
Yani 2018 seçtim T sutununda veriler hesaplanıp geliyor.Ben 2019 yılını seçtiğimde U sutününda veriler hesaplanıyor. ama T sutünundaki veriler siliniyor.

 

[musculus2]

Merhabalar acaba bunu makro ile yapabilir miyiz ?

 

[ÖmerFaruk]

Q3:AB6 (yada AB1000) aralığındakh rhangi bir değer ya da formül yok ki nasıl siliniyor?
İstemeye çalıştığınız çözümün kolay olduğuna inanıyorum ancak sorunuzun eksik kısımlarını tamamlamalısınız.

 

[musculus2]

Kesinlikle haklısınız.
Mahir64 arkadaşımızın önerdiği formülü Q3 hücresine yapıştırdım hücreyi aşağıya ve sağa doğru kopyaladım.Q3-AB6 arasında formül olmuş oldu.Daha sonra B1 hücresinde değişiklik yaptığımda b1 hücresinde hangi yıl varsa , Q3-AB6 arasındaki o yıla ait veriler hesaplanıyor ve gösteriyor.Daha sonra B1 hücresinde başka bir yıl seçtiğimde yeni seçilen yıla ait verileri hesaplıyor ve gösteriyor ama bir önce seçtiğim yıla ait veriler kayboluyor.O da formülün sonundaki "" den dolayı diye düşünüyorum.O yüzden acaba makro ile çözebilir miyiz demiştim.
Teşekkür ederim.

 

[ÖmerFaruk]

Ben halen yanlış anladığımı ya da anlattığınızı düşünüyorum.
Eğer O sütunundaki verileriniz doğruysa, O sütunundaki verileri B1 hücresini her değiştirdiğinizde ilgili yıla aktaran kodlar aşağıdadır.
Sonucun doğru olması benim için süpriz olacaktır. =)

Aşağıdaki kodların sayfanın kod sayfasına aynen yapıştırın.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("B1")) Is Nothing Then Exit Sub
    Dim Kolon As Range
    Application.EnableEvents = False
    Son = Range("O" & Rows.Count).End(3).Row
    Set Kolon = Range("Q1:AB1").Find(Range("B1"))
    If Not Kolon Is Nothing Then
        Range("O3").Resize(Son - 2, 1).Copy
        Kolon.Offset(2, 0).Resize(Son - 2, 1).PasteSpecial xlPasteValues
        Application.CutCopyMode = False
        Range("B1").Select
    End If
    Application.EnableEvents = True
End Sub

 

[musculus2]

Elinize sağlık.Tam istediğim buydu. Gerçekten bravo ben bir istek hatası yapmışım.O3 değil P3 sütunu hesaplanacaktı.
Range("P3").Resize(Son - 2, 1).Copy
yapınca tam istediğim sonucu aldım.
Teşekkür ederim.