- Katılım
- 28 Ocak 2008
- Mesajlar
- 260
- Excel Vers. ve Dili
- 2003
Süzerek listelenen kolonların kodlarında değişiklik yapılması
Merhaba, Sorunum ekteki dosyada Evren beyin yardımıyla butona basıldığında bir süzme işlemi yapılıyor ve sadece A,C,E sütunları listeleniyor listboxta...
Ben yazılan kodlarda, nerde değişiklik yaparak A,C,E sütunları değilde BB,CD,EE,FF,FG sütunlarını listeleye bilirim.
Teşekkürler.
Merhaba, Sorunum ekteki dosyada Evren beyin yardımıyla butona basıldığında bir süzme işlemi yapılıyor ve sadece A,C,E sütunları listeleniyor listboxta...
Ben yazılan kodlarda, nerde değişiklik yaparak A,C,E sütunları değilde BB,CD,EE,FF,FG sütunlarını listeleye bilirim.
Teşekkürler.
Kod:
Function listele(deg As String)
Dim k As Range, ilk_adres As String, a As Long
ReDim myarr(1 To 3, 1 To 1)
Set k = Sheets(1).Range("A2:A65536").Find(deg, , xlValues, xlWhole)
If Not k Is Nothing Then
ilk_adres = k.Address
Do
a = a + 1
ReDim Preserve myarr(1 To 3, 1 To a)
myarr(1, a) = k.Offset(0, 2).Value
myarr(2, a) = k.Value
myarr(3, a) = k.Offset(0, 4)
Set k = Sheets(1).Range("A2:A65536").FindNext(k)
Loop While k.Address <> ilk_adres And Not k Is Nothing
listele = myarr
End If
Erase myarr
End Function
' diğer kod
Private Function Sirala(Liste As Variant)
Dim i As Integer, j As Integer, x As Variant, y As Variant, z As Variant
For i = LBound(Liste) To UBound(Liste) - 1
For j = i + 1 To UBound(Liste)
'If Liste(i, 0) > Liste(j, 0) Then
If StrComp(Liste(i, 0), Liste(j, 0), vbTextCompare) = 1 Then
x = Liste(j, 0)
y = Liste(j, 1)
z = Liste(j, 2)
Liste(j, 0) = Liste(i, 0)
Liste(j, 1) = Liste(i, 1)
Liste(j, 2) = Liste(i, 2)
Liste(i, 0) = x
Liste(i, 1) = y
Liste(i, 2) = z
End If
Next j
Next i
Sirala = Liste
End Function
Son düzenleme: