başka sayfadan belirli verileri alabilmek???

[sudusleri]

ekteki dosyada veri sayfasında ortalaması 1,80 ve üzerinde olan kişilerin adı ve soyadının liste sayfasında listelenmesini istiyorum... bunu nasıl yapabilirim.

yardımcı olursanız sevinirim.

 

[Levent Menteşoğlu]

Userform üzerindeki butona aşağıdaki kodu yazarak deneyin.

[vb:1:a0a911da4a]Private Sub CommandButton1_Click()
Set s1 = Sheets("veri")
Set s2 = Sheets("liste")
For b = 7 To s1.[b65536].End(3).Row
If s1.Cells(b, "d") >= 1.8 Then
c = c + 1
s2.Cells(c + 6, "c") = s1.Cells(b, "b")
s2.Cells(c + 6, "d") = s1.Cells(b, "c")
End If
Next
End Sub
[/vb:1:a0a911da4a]