Hücre başlığına ve Hücre rengine göre hücre aralığı seçme

[tayfun.tk]

Merhabalar,

A2:AB2 arasındaki hücrelerde tekrarlayan başlıklarım var.
Bunlardan belirlediğim herhangi bir başlık "Name". Aynı başlık belirtilen hücre aralığında aralıklı olarak tekrarlıyor(birden çok var), başlığın bir altında ki hücreden başlayıp belirleyeceğim hücre değerine kadar çoklu seçim yapmak istiyorum. (Örneğin; 190)
Burada satır numarasını ekleme sebebim, hücrelerin içeriği tamamı dolu olmayabiliyor o yüzden en garanti satır numarası belirlemek.

Aşağıdaki örneği istediğim gibi uyarlayamadım, makro çalıştığında tüm sütunu seçiyor. İlk olarak yardımınızı rica ettiğim konu bu.

Sub FindAddressColumn()
    Dim xRg As Range
    Dim xRgUni As Range
    Dim xFirstAddress As String
    Dim xStr As String
    On Error Resume Next
    xStr = "Name"
    Set xRg = Range("A2:P2").Find(xStr, , xlValues, xlWhole, , , True)
    If Not xRg Is Nothing Then
        xFirstAddress = xRg.Address
        Do
            Set xRg = Range("A2:P2").FindNext(xRg)
            If xRgUni Is Nothing Then
                Set xRgUni = xRg
            Else
                Set xRgUni = Application.Union(xRgUni, xRg)
            End If
        Loop While (Not xRg Is Nothing) And (xRg.Address <> xFirstAddress)
    End If
    xRgUni.EntireColumn.Select
End Sub

Diğer bir konu; bir sayfanın içinde sadece belirli renk dolgu olan hücreleri seçtirmek istiyorum.
Bunda ki amacım bir sayfada yan yana 3 farklı renklendirilmiş sütunlar var ve bunlar karışık şekilde.
Renkleri makro ile seçtirip kopyalayacağım ve rapor sayfama alacağım.
Makro da sadece seçme işlemini yapmak yeterli, sonrasını manuel yaparım zaten.

Bu konularda desteklerinizi rica ederim..

 

[tayfun.tk]

Desteklerinizi rica ediyorum

 

[tayfun.tk]

Bu konuda her hangi bir bilgisi ya da yorumu olan, yol gösterebilecek birileri varsa lütfen yardımcı olsun, en azından fikir verilirse ben de bir şekilde ilerlemeye çalışırım..