Veri almak

[arifbirgen]

Değerli arkadaşlar
Örnekte açıklama var yardımcı olursanız sevinirim.

 

[Orion1]

Dosyanız ekte.

Function listele1(sutun As Byte)
Dim i As Byte, deg(7, 0)
With Sheets("Sayfa2")
    For i = 6 To 12
        deg(i - 6, 0) = .Cells(i, sutun).Value
    Next i
End With
listele1 = deg
End Function
Function listele2(sutun As Byte)
Dim i As Byte, deg(7, 0)
With Sheets("Sayfa2")
    For i = 6 To 12
        deg(i - 6, 0) = .Cells(i, sutun).Value
    Next i
End With
listele2 = deg
End Function

 

[arifbirgen]

Sn.Evren GİZLEN

Yardımınızdan dolayı çok teşekkür ederim. Süpersiniz.
İyi çalışmalar.

 

[Orion1]

Sn.Evren GİZLEN

Yardımınızdan dolayı çok teşekkür ederim. Süpersiniz.
İyi çalışmalar.

Rica ederim.
Sizde süpersiniz.