Değer girerek arama kopyalama

[BirTürk1]

Sayfa1 de c sütununa değer girildiğinde
sayfa2 deki c sütunundaki aynı değeri bulsun sağındaki hücre dolu ise sağındaki 11 sütunun ( d, e, f, g, h, ı, j, k, l, m, n )
ilgili satırındaki sadece değerlerini sayfa1 de ( d, e, f, g, h, ı, j, k, l, m, n ) hücrelerine kopyalasın
örnek çalışma kitabını ekliyorum.
Yardımlarınız için şimdiden teşekkür ediyorum.

 

[Korhan Ayhan]

Selamlar,

Bu işlem için ikinci bir sayfaya ihtiyacınız yok. Aşağıdaki kodu Sayfa1 in kod bölümüne uygulayın. C sütununa değer girdikçe üst satırlarda bu değeri arar ve bulduğunda istediğiniz sütunları yanına taşır.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim BUL As Range
    If Intersect(Target, [C6:C65536]) Is Nothing Then Exit Sub
    If Target.Count > 1 Then Exit Sub
    If Target = Empty Then Target.Offset(0, 1).Resize(1, 11).Value = Empty
    Set BUL = Range("C6:C" & Target.Row - 1).Find(Target)
    If Not BUL Is Nothing Then
    If Cells(BUL.Row, "D") <> Empty And Target.Offset(0, 1) = Empty And Target.Offset(0, 2) = Empty Then
    Target.Offset(0, 1).Resize(1, 11).Value = Range("D" & BUL.Row & ":N" & BUL.Row).Value
    End If
    End If
    Set BUL = Nothing
End Sub

 

[BirTürk1]

Teşekkür ederim sayın korhan ayhan
deneyeceğim