Başka sayfadan veri çekme

[asi_kartal]

umarım anlatabilmişimdir. şimdikten teşekkür ederim.

 

[hamitcan]

Program sayfasında Gözcü kısmı ile mi karşılaştırılacak ?

 

[asi_kartal]

Program sayfasında Gözcü kısmı ile mi karşılaştırılacak ?

hepsiyle karşılaşacak

 

[hamitcan]

Öğretmenler sayfasının kod kısmına ekleyin.

Private Sub Worksheet_Change(ByVal Target As Range)
c = 18
If Target.Address <> "$I$11" Then Exit Sub
For Each hcr In Sayfa1.[i8:l218]
If Target = hcr.Text Then
c = c + 1
Cells(c, "g") = Sayfa1.Cells(hcr.Row, "d")
Cells(c, "i") = Sayfa1.Cells(hcr.Row, "e")
Cells(c, "k") = Sayfa1.Cells(hcr.Row, "g")
Cells(c, "l") = Sayfa1.Cells(hcr.Row, "h")
End If
Next
End Sub

 

[asi_kartal]

çok sağolasın hocam teşekkür ederim