Birleşik hücredeki değeri diğer hücrelere bağlama

Katılım
31 Temmuz 2015
Mesajlar
2
Excel Vers. ve Dili
Türkçe ve İngilizce

Ms Excel 2013
Merhaba arkadaşlar bir sorum olacak. Problemim biraz garip, çok fazla aradım bulamadım.

A1,A2,A3 hücreleri
A4,A5,A6 hücreleri birleşik

B1,B2
B3,B4
B5,B6 Hücreleri birleşik

C1,C2...,C6 hücrelerinin her birinde farklı bir değer yazıyor.

pivot tablo yaptığımda A1,B1 değerinin yalnızca C1 değerini kapsadığını görüyorum ben A1 ve B1 değerinin Hem C1 hem C2 hücresini kapsamasını istiyorum. Örnek dosyaya bakarak daha iyi anlayacaksınızdır.

http://s6.dosya.tc/en2.php?a=server/63gorp/Test.xlsx&b=b854b98db88064cfc8c18aac5dd5db0c
 

Korhan Ayhan

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

Özet tablo birleştirilmiş hücrelerde sağlıklı sonuç vermez. Eğer bu şekilde kullanmanız gerekiyorsa biraz zahmetli uygulama ile kullanabilirsiniz.

Uygulamayı tarif ediyorum;
İlk önce var olan sayfanızı taşı ve kopyala yöntemi ile kopyalayın.
Daha sonra kopyaladığınız sayfadaki bütün birleştirilmiş hücreleri açın.
Örnek dosyanıza göre A2:A5 aralığına aynı tarihi yazın.
B2:B3 aralığına aynı saati yazın.
B4:B5 aralığına aynı saati yazın.

Gelelim işin püf noktasına;

Şimdi asıl sayfanızdaki birleştirilmiş alanı seçip yeni sayfadaki birleşmemiş alana biçim olarak yapıştırın. Bundan sonra özet tablo oluşturduğunuzda excel size doğru sonucu verecektir.

Buradaki püf noktasını sanırım anlatabilmişimdir. Görsel olarak hücreler birleştirildi. Fakat arka planda excelin tüm hücreleri dolu olduğu için özet tablonuz doğru sonuç verecektir. Bu yöntemi filtreleme içinde kullanabilirsiniz. Tek problemi biraz zahmetli olmasıdır. Makro kullanarak bu sorunda kolay hale getirilebilir.
 
Katılım
31 Temmuz 2015
Mesajlar
2
Excel Vers. ve Dili
Türkçe ve İngilizce

Ms Excel 2013
Çok teşekkür ederim. Bahsettiğiniz şekilde yapınca oluyor. Peki bunun makrosunu ne şekilde yazmalıyım? Bu basit bir listeydi :) Daha uzun halini kullanacağım.Makrosunu bir türlü ayarlayamadım :(

MAkrosunu şu şekilde yazdım.

Kod:
 Range("A1:C5").Select
    Selection.Copy
    Range("L1").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
 
Üst