İki Sütunu Baz Alarak Düşeyara Formülünün Uygulanması

[KRONX]

Arkadaşlar Merhaba,
Çok acil hazırlamam gereken bir excel var fakat formülü bir türlü oluşturamadım bu konuda yardımlarınızı bekliyorum.

Sorunum şöyle, linkteki dosyada tipler sayfasında yaptığım projedeki tipler ve açıklamaları mevcut,G1 Sayfasında ise tip adını ve alt tipini girdiğimde sütunların otomatik olarak dolmasını istiyorum bunu nasıl yapabilirim ,bu tipler tekrarlı olarak bir çok katta mevcut


http://s3.dosya.tc/server10/r7iqin/Mahal_Listesi.xlsx.html

Şimdiden yardımcı olacak herkese teşekkürler

 

[PLİNT]

Merhaba
Kodlarla yapılmış şekli işinize yararsa ek dosyayı deneyiniz.
http://s3.dosya.tc/server10/jiry23/Mahal_Listesi.zip.html

[SIZE="2"]Private Sub Worksheet_Change(ByVal Target As Range)
Set s1 = Sheets("TİPLER")
If Intersect(Target, [G6]) Is Nothing Or Cells(Target.Row, Target.Column - 1) = "" Then Exit Sub
[H6:U18] = Empty
Set r = s1.[C:C].Find(Trim(Cells(Target.Row, Target.Column - 1)), , , xlWhole, , , False)
If Not r Is Nothing Then
If r.MergeCells = True Then
Set r1 = s1.Range("D" & r.Row - 1 & ":D" & r.Row + r.MergeArea.Rows.Count - 1) _
.Find(Trim(Target.Value), , , xlWhole, , , False)
If Not r1 Is Nothing Then
If r1.MergeCells = True Then
a = r1.Row: b = r1.Row + r1.MergeArea.Rows.Count - 1
Range("H6:U" & 6 + r1.MergeArea.Rows.Count - 1).Value = s1.Range("E" & a & ":R" & b).Value
End If: End If: End If: End If
End Sub[/SIZE]