Soru Farklı Sayfadan Veri alıp istenilen değeri yazdırma

[zozotr]

Üstadlar selamlar.
Bir konuda yardımınızı rica ediyorum.
Son ve Rap adlı iki sayfam var.
Rap sayfasında 1. satırda tarihler mevcut.
tarihlerin altında da değerler var.
Bu değerleri Son sayfasında karşılık gelen yere :
Hücrede herhangi bir değer var ise DOLU
Hücrede herhangi bir değer yok ise BOŞ
olarak yazdırmak istiyorum.
Örnek dosya ekliyorum.
Teşekkürler

 

[Haluk]

=EĞER(İNDİS(RAP!A$2:K$46;SATIR()-1;KAÇINCI(BUGÜN();RAP!$C$1:$K$1;0)+2)<>"";"DOLU";"BOŞ")

.

 

[Necdet]

Makro bölümünde sorulduğu için ben de makrolu çözüm önereyim.

Public Sub DoluBos()

Dim arr As Variant, _
    col As Integer, _
    i   As Long
    
arr = Sheets("RAP").Range("A1").CurrentRegion.Value
For i = 3 To UBound(arr, 2)
    If arr(1, i) = Date Then
        col = i
        Exit For
    End If
Next i

If col = 0 Then
    MsgBox "RAP sayfasında bugünün Tarihi Bulunmadı..."
    Exit Sub
End If

arr(1, 3) = "BUGÜN"
For i = 2 To UBound(arr, 1)
    If arr(i, col) = "" Then
        arr(i, 3) = "BOŞ"
    Else
        arr(i, 3) = "DOLU"
    End If
Next i

Sheets("SON").Range("A1").Resize(UBound(arr, 1), 3) = arr

End Sub

 

[zozotr]

Sayın Haluk Bey;

Cevabınız için teşekkür ederim.
Formül işimi görüyor.

Ayrıca Sayın Necdet Bey;
İstediğim zaten makroydu.
Sonuç mükemmel.

Her ikinize de vakit ayırdığınız için teşekkür ederim.

Saygılarımla