Satır ve Sütundaki değerlere göre veri bulma

[ultraslan38080]

İyi çalışmalar. Yapmak istediğim çalışma biraz karışık. Bu sebeple tablo örneği paylaşıyorum. Böyle bir çalışma yapılabilir mi?
Teşekkür ediyorum.

İndir ÇALIŞMA

Dosyayı indir ÇALIŞMA

dosya.co

 

[EmrExcel16]

Merhaba deneyiniz..


Sayfanın kod bölümüne , ay değişikliğinde çalışır.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("AJ5")) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub
    Dim Syf As Worksheet, i As Integer, x As Integer, bulTarih, bulAd
    Range("F10:AJ110").ClearContents
    On Error Resume Next
    Set Syf = Sheets(Range("AJ5").Value)
    For i = 6 To 36
        If Cells(9, i) <> "" Then
            Set bulTarih = Syf.Range("A7:A100").Find(Cells(9, i), , xlValues, xlWhole)
            If Not bulTarih Is Nothing Then
                For x = 3 To 4
                    If Syf.Cells(bulTarih.Row, x) <> "" Then
                        Set bulAd = Range("C10:C110").Find(Syf.Cells(bulTarih.Row, x), , xlValues, xlWhole)
                        If Not bulTarih Is Nothing Then
                            Cells(bulAd.Row, i) = "+"
                        End If
                    End If
                Next
            End If
        End If
    Next
    MsgBox "islem tamam"
End Sub

 

[ultraslan38080]

Merhaba deneyiniz..


Sayfanın kod bölümüne , ay değişikliğinde çalışır.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("AJ5")) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub
    Dim Syf As Worksheet, i As Integer, x As Integer, bulTarih, bulAd
    Range("F10:AJ110").ClearContents
    On Error Resume Next
    Set Syf = Sheets(Range("AJ5").Value)
    For i = 6 To 36
        If Cells(9, i) <> "" Then
            Set bulTarih = Syf.Range("A7:A100").Find(Cells(9, i), , xlValues, xlWhole)
            If Not bulTarih Is Nothing Then
                For x = 3 To 4
                    If Syf.Cells(bulTarih.Row, x) <> "" Then
                        Set bulAd = Range("C10:C110").Find(Syf.Cells(bulTarih.Row, x), , xlValues, xlWhole)
                        If Not bulTarih Is Nothing Then
                            Cells(bulAd.Row, i) = "+"
                        End If
                    End If
                Next
            End If
        End If
    Next
    MsgBox "islem tamam"
End Sub

Çok teşekkür ederim. Bazı aylarda kod çalışıyor. Bazı aylarda çalışmıyor.

 

[EmrExcel16]

Sadece "Mart" ve "Nisan" da mı çalışıyor ?

 

[ultraslan38080]

Evet

Sadece "Mart" ve "Nisan" da mı çalışıyor ?

Evet

 

[EmrExcel16]

Diğer aylardaki tarihlerler yanlış , mesela "OCAK" sayfasındaki tarihleri kontrol ettiğinizde mart ayının günlerini göreceksiniz , diğer sayfalarda aynı şekilde , sadece "Mart" ve "Nisan" sayfalarının tarihleri doğru , bu şekilde tekrar kontrol etmenizi rica ederim.

 

[ultraslan38080]

Diğer aylardaki tarihlerler yanlış , mesela "OCAK" sayfasındaki tarihleri kontrol ettiğinizde mart ayının günlerini göreceksiniz , diğer sayfalarda aynı şekilde , sadece "Mart" ve "Nisan" sayfalarının tarihleri doğru , bu şekilde tekrar kontrol etmenizi rica ederim.

Çalıştı. Çok çok teşekkür ederim.

 

[EmrExcel16]

Rica ederim , iyi çalışmalar..