Birleşik hücredeki değeri başka hücreye verme?

[adokskel]

Herkese İyi Çalışmalar Dilerim.
Sorum şu: D sütunundaki her hücreye, kendi satırındaki B sütununda yazan değeri nasıl verdirebilirim? Örnek dosyada şekille anlattım.

Teşekkür ederim.

 

[zafer]

Merhaba

Eğer makro ile yapmak isterseniz ekli dosyayı inceleyiniz

 

[adokskel]

Çok saol ama benim derdim şu ki; başka bir excel dosyasında B1,2,3..... hücrelerine atıfta bulunarak hesaplamalar yapmam lazım. B sütundaki satır sayısı sürekli değişmekte. Yani her seferinde sayı girip hesapla demek yerine D sütunundaki hücreler sürekli olarak istediğim gibi güncel kalsa ki ben de D sütunundaki hücrelere atıfta bulunarak hesap kitap yapsam.
Çok uğraştıracak bişeyse meşgul etmeyim sizi, ben bi taraftan da kitaplara falan da bakıyorum.

 

[Korhan Ayhan]

Selamlar,

D1 hücresine aşağıdaki formülü uygulayıp denermisiniz.

=ARA(9,99999999999999E+307;$B$1:B1)

 

[adokskel]

dediğinizi yaptım. D1' e yazdım ve D1 hücresinin sağ alt köşesinde mouse imleci + işareti olunca da aşağı sürükledim. Oluyor fakat B' nin in son hücresi ile Sürüklediğim son D hücresi arasında hep B nin son değerini atıyor.

 

[Korhan Ayhan]

Selamlar,

Sanıyorum bu problemi basit bir eğer sorgusu ile siz halledebilirsiniz. Eğer yapamam diyorsanız tekrar yardımcı olabilirim.

 

[adokskel]

Hallederim de Korhan Uzmanım, ben bi eşeklik edip bi detay vermeyi unuttum.
B sütununa metin yazdığım zaman sorun oldu. hangi komutlarla çözebileceğimi söylerseniz ben araştırıp kendim yapmayı deneyim olmazsa.

 

[Korhan Ayhan]

Selamlar,

Verileriniz metinde içeriyorsa aşağıdaki şekilde kullanabilirsiniz. Yalnız hücreler birleştirilmiş olduğu için hücrelerin boş olma durumu sorun yaratıyor. Sanırım bunun için makro ile fonksiyon yazmak gerekiyor.

Eğer makro kullanmak istemiyorum derseniz çözüm gelene kadar formülü bu haliyle kullanın.

D1 hücresine; (Hem metin hemde sayılarda çalışır.)

ARA(2;1/($B$1:B1<>"");$B$1:B1)

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak kullanıcı tanımlı fonksiyon kullanarak hazırladığım ekteki örnek dosyayı incelermisiniz. Dosya içinde gerekli açıklamaları bulabilirsiniz.

Kullanım şekli;

[B][COLOR=blue]=BİRLEŞMİŞ_HÜCREMİ_BOŞMU(A1)[/COLOR][/B]

Kullanılan özel fonksiyon;

Option Explicit
 
Private Function BİRLEŞMİŞ_HÜCREMİ_BOŞMU(Hücre As Range) As Boolean
    Dim Adres As String
    
    Application.Volatile True
    
    If Hücre.MergeArea.Cells.Count = 1 And Hücre.Value = "" Then
        BİRLEŞMİŞ_HÜCREMİ_BOŞMU = True
    Else
        Adres = Split(Hücre.MergeArea.Address, ":")(0)
        
        If Hücre.MergeCells = True And Range(Adres).Value = "" Then
            BİRLEŞMİŞ_HÜCREMİ_BOŞMU = True
        Else
            BİRLEŞMİŞ_HÜCREMİ_BOŞMU = False
        End If
    End If
End Function

 

[adokskel]

Merhaba Korhan Uzmanım,

Hazırladığınız fonksiyon 10 numara olmuş.
Ellerinize sağlık çok teşekkür ederim.