İki Farklı Tür Veriyi Bir Alana İşlemek

[emredici]

Merhabalar,

Uzunluk ve tarih cinsinden iki verim var ve bunları tek bir alanda görmek istiyorum.
Başka bir deyimle aşağıdaki gibi, ilgili alanlara 1 yazdırmak istiyorum.

Dosyanın linki aşağıdaki gibidir:
http://www.dosyaupload.com/1OO5

Desteğiniz için şimdiden teşekkürler.

 

[Korhan Ayhan]

Deneyiniz.

Sub Bir_Yaz()
    Dim X As Byte, Tarih As Date, Y As Byte, Z As Byte
    
    Range("H12:BO29").ClearContents
    
    For X = 7 To 9
        For Tarih = Cells(X, "E") To Cells(X, "F")
            For Y = 12 To 29
                If Cells(Y, "G") = Tarih Then
                    For Z = 8 To 67
                        If Cells(11, Z) >= Cells(X, "C") And Cells(11, Z) <= Cells(X, "D") Then
                            Cells(Y, Z) = 1
                        End If
                    Next
                End If
            Next
        Next
    Next

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[sakman26]

alternatif olarak
H12 hücresine

=EĞER(YADA(H$11<MİN($C$7:$D$9);H$11>MAK($C$7:$D$9));"";EĞER(VE($G12>=DÜŞEYARA(H$11;$C$7:$F$9;3);$G12<=DÜŞEYARA(H$11;$C$7:$F$9;4));1;""))

formülü yazarak sağa ve ağağıya doğru kopyalayın..

eki inceleyin..

link : http://s6.dosya.tc/server7/19cbvo/Lab.xlsx.html

 

[emredici]

Deneyiniz.

Teşekkür ederim sihir gibi çalıştı. Makro dünyası bir derya ve ben henüz kıyısına bile yaklaşamadım.

alternatif olarak
H12 hücresine

=EĞER(YADA(H$11<MİN($C$7:$D$9);H$11>MAK($C$7:$D$9));"";EĞER(VE($G12>=DÜŞEYARA(H$11;$C$7:$F$9;3);$G12<=DÜŞEYARA(H$11;$C$7:$F$9;4));1;""))

formülü yazarak sağa ve ağağıya doğru kopyalayın..

eki inceleyin..

link : http://s6.dosya.tc/server7/19cbvo/Lab.xlsx.html

Çok teşekkür ederim. Aradığım tam da buydu. Excel'i seviyorum.:biggrin: