Tarih eşleştirme

[soneris]

Sayfa 2 ile sayfa 10 arasındaki bütün sayların a1 hücresindeki taih yarına eşit ise o sayfanın b1 hücresindeki değer sayfa 1 deki b1 hücresine gelsin

 

[Korhan Ayhan]

Deneyin.

Sub TARİH_BUL()
    For X = 2 To 10
        Set S1 = Sheets("Sayfa" & X)
        If S1.Range("A1") = Date + 1 Then
            Sheets("Sayfa1").Range("B1") = S1.Range("B1")
            MsgBox "İşleminiz tamamlanmıştır.", vbInformation
            Exit Sub
        End If
    Next
    MsgBox "Tarih bulunamadı!", vbExclamation
End Sub

 

[soneris]

Formul ile yapamazmıyız. Sürekli çalışmasını istiyorum çünkü manuel değil.

 

[Korhan Ayhan]

Deneyin.

=DÜŞEYARA(BUGÜN()+1;DOLAYLI("'"&İNDİS({"Sayfa2"\"Sayfa3"\"Sayfa4"\"Sayfa5"\"Sayfa6"\"Sayfa7"\"Sayfa8"\"Sayfa9"\"Sayfa10"};KAÇINCI(1;--(EĞERSAY(DOLAYLI("'"&{"Sayfa2"\"Sayfa3"\"Sayfa4"\"Sayfa5"\"Sayfa6"\"Sayfa7"\"Sayfa8"\"Sayfa9"\"Sayfa10"}&"'!A1:A100");BUGÜN()+1)>0);0))&"'!A1:B100");2;0)