Birleştirilmiş hücrelerin karşısındaki verileri alma

[ates_2001]

Birleştirlmiş 6 hücrenin veya 7 hücrenin karşısındaki verileri almak istiyorum. mesela Vlookup yaptığımda sadece en baştaki veriyi veriyor bana, ama ben hepsini istiyorum. böyle bir formül yada makro varmısıdır?

Teşekkürler, örnek ektedir.

 

[hamitcan]

Nereye, nasıl almak istiyor sunuz ?

 

[ates_2001]

Nereye, nasıl almak istiyor sunuz ?

Günaydın;

Şöyle izah edeyim, gönderdiğim örnek listede, sheet2' de K4 hücresine bi makro atadığım zaman sheet1'deki a hücresinde A stununu alıp sheet 2 ye aktarsın.

Örnek. sheet2 de K4 hücresine A100 yazdığım zman Sheet1 deki A100 'ün karşınıdaki bilgileri sheet2 ye aktarsın. umarım açıklayıcı olmuştur.

Teşekkürler

İyi Çalışmalar

 

[hamitcan]

Sub Aktar()
Sayfa2.Columns("L:R").Delete
With Sayfa1
    s = .[A65536].End(3).Row
    For i = 2 To s
        If .Cells(i, 1) = Sayfa2.[k4] Then
        r = .Cells(i, 1).MergeArea.Rows.Count
        .Range("B" & i & ":" & "h" & r + i - 1).Copy Sayfa2.[L4]
        End If
    Next
End With
End Sub

 

[ates_2001]

Sub Aktar()
Sayfa2.Columns("L:R").Delete
With Sayfa1
    s = .[A65536].End(3).Row
    For i = 2 To s
        If .Cells(i, 1) = Sayfa2.[k4] Then
        r = .Cells(i, 1).MergeArea.Rows.Count
        .Range("B" & i & ":" & "h" & r + i - 1).Copy Sayfa2.[L4]
        End If
    Next
End With
End Sub

Teşekkürler, hemen bi örnek yapıyorum. size ayrı bir sorum var ilgilenirseniz sevinirim, soruyu bir sonraki mesajda yazıyorum.

 

[ates_2001]

Sub aktarim_yap()

sat = 20
With Sheets("Sayfa2").Range("B:B")
Set c = .Find(Sheets("baslik").Range("D3"), LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
ilkadres = c.Address
Do
Sheets("baslik").Cells(sat, "A") = Sheets("Sayfa2").Cells(c.Row, "C")

sat = sat + 1
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> ilkadres
End If
End With

End Sub

yazılmış olan kod "baslik" sheet'inin "D3" hücresine yazılan verinin "sayfa2" sheet'indeki "C" hücresindeki bilgiyi kodda görüldüğü gibi A20 hücresine atıyor.

Sorum şu "D3" hücresiyle aynı olan örnek olarak "sayfa3" sheetindeki verinin örnek olarak d hücresini yine "baslik" sheetinin a9 hücresine atamak isitoyrum,.

bu makroyu bu şekilde genişletebilirmiyiz, Teşekkürler, Ellerinize Sağlık

 

[ates_2001]

Sub Aktar()
Sayfa2.Columns("L:R").Delete
With Sayfa1
    s = .[A65536].End(3).Row
    For i = 2 To s
        If .Cells(i, 1) = Sayfa2.[k4] Then
        r = .Cells(i, 1).MergeArea.Rows.Count
        .Range("B" & i & ":" & "h" & r + i - 1).Copy Sayfa2.[L4]
        End If
    Next
End With
End Sub

Merhabalar, Sizin verdiğiniz kodu uyguladım ama bi sonuç alamadım, "sayfa2" deki "k4" hücresine veri yazdığımda bir sonuç yok, nerede yanlışlık yapmışımdır teşekkürler.

 

[hamitcan]

Eki inceleyin.

 

[ates_2001]

Teşekkürler, elinize sağlık tam istediğim gibi olmuş