Alt Alta olan verileri Kritere göre Yan Sütuna Getirme

[Kavinsky]

Herkese merhaba,
Aşağıda linkte bulunan dosyamda Sabit verinin (Sarı ile renklendirilmiş hücre) yanındaki F sütununa, altındaki ilk sıradaki (yeşil renk) olan verinin yapıştırılmasını istiyor.
Eğer 3 tane sarı renk veri alt alta ise 3 veriye de aynı yeşil renk veri yapıştırmak istiyorum.
Buradaki önemli husus sarının bittikten sonraki ilk olan yeşil verinin yan tarafa yapıştırılması.

BURADAN DOSYAYI İNDİREBİLİRSİNİZ

 

[Korhan Ayhan]

İşlemde renkleri kullanabilirmiyiz. Yoksa sadece işlemi görsel olarak ifade etmek için mi renkleri kullandınız.

Ya da "Sabit Veri" dediğiniz bilgi her satırda aynı m?

 

[veyselemre]

Sub test()
    Dim rng As Range, cell, i
    With Sheets("1062-14-0122")
        Set rng = .Range("E3:E" & .Cells(Rows.Count, "E").End(3).Row)
    End With
    For Each cell In rng
        If cell.Interior.ColorIndex = 15 Then
            If cell.Offset(-1).Interior.ColorIndex = 19 Then
                i = -1
                Do While cell.Offset(i).Interior.ColorIndex = 19 And cell.Offset(i, 1).Value = ""
                    cell.Copy cell.Offset(i, 1)
                    i = i - 1
                Loop
            End If
        End If
    Next cell

End Sub

 

[Kavinsky]

Çok teşekkür ederim hocam işimi gördü @Korhan Ayhan hocam, evet olurdu fakat @veyselemre hocam yardımcı olmuş size de çok teşekkür ederim. Bir çok sorumda ilk yetişen siz oluyorsunuz hep

 

[mühendisberke]

Linki: https://s2.dosya.tc/server24/9zwbfz/VERI.xlsm.html
makro111 6. sütuna aşağıdaki gibi sonuç veriyor.
yeşil verileri unique yaptım nasıl çalıştığı gözüksün diye.
makro00 ise f sütununu(f1 hariç) siliyor.