Hücrede 2 seçenekli bilgi bulunması hakkında

[tb]

İki ayrı kolondaki Aranan şartlar oluştuktan sonra İlgili satırdaki verilerin aynı sayfa içersinde başka bir yere aktarılmaya yarayan macroya ihtiyacım var. Açıklama ekli dosyanın içersindede mevcuttur. Yardımlarınız için şimdiden teşekür ederim. İyi çalışmalar.

 

[Orion1]

Merhaba.
Siz Tablonun tamamını hele bir elle doldurun.
Konu netleşsin.Yapacak arkadaşlar çıkacaktır.
Konuyu anlasaydım bende yapacaktım zaten.

 

[Recep İpek]

Aşağıdaki kodları sayfanın VBE bölümüne kopyalayabilirsiniz.

L5 hücresinde 2.firmayı seçtiğinizde makro otomatik olarak çalışacaktır.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [L5]) Is Nothing Then Exit Sub
Set s1 = Sheets("Sayfa1")
For i = 4 To s1.[a65536].End(3).Row
    If s1.Cells(i, "a").Value = [L4] And s1.Cells(i, "b").Value = [L5] Then
        s1.Range("m4:r4").Value = Range(s1.Cells(i, "c"), s1.Cells(i, "h")).Value
    End If
    If s1.Cells(i, "a").Value = [L5] And s1.Cells(i, "b").Value = [L4] Then
        s1.Range("m5:r5").Value = Range(s1.Cells(i, "c"), s1.Cells(i, "h")).Value
    End If
Next i
Set s1 = Nothing
End Sub