- Katılım
- 26 Mart 2019
- Mesajlar
- 48
- Excel Vers. ve Dili
- Microsoft Office Professional Plus 2016
- Altın Üyelik Bitiş Tarihi
- 19-12-2024
ARKADAŞLAR AŞAĞIDAKİ FONKSİYONDA İLK SÜTUNDAN İTİBAREN LİSTELEMEK İSTİYORUM AMA BİR TÜRLÜ YAPAMADIM. YARDIMCI OLABİLİRMİSİNİZ.
Function sirala(liste)
Dim i As Long, j As Long, X As Variant, k As Byte
For i = 0 To UBound(liste) + 1
For j = i + 1 To UBound(liste)
If liste(i, 0) > liste(j, 0) Then
For k = 0 To 8
X = liste(i, k)
liste(i, k) = liste(j, k)
liste(j, k) = X
Next k
End If
Next j
Next i
sirala = liste
End Function
Function sirala(liste)
Dim i As Long, j As Long, X As Variant, k As Byte
For i = 0 To UBound(liste) + 1
For j = i + 1 To UBound(liste)
If liste(i, 0) > liste(j, 0) Then
For k = 0 To 8
X = liste(i, k)
liste(i, k) = liste(j, k)
liste(j, k) = X
Next k
End If
Next j
Next i
sirala = liste
End Function