For y=1 to 9 yerine sutun isimleri belirlemek

[mesutaygun70]

Sub detay()
Sheets("KİŞİ").Range("A2:I100000").Value = ""
Dim x As Long
Dim y As Long
Dim ks As Integer
ks = 1
For x = 1 To 100000
If Sheets("İZİNLER").Range("A" & x).Value = "" Then Exit For
If Sheets("İZİNLER").Range("a" & x).Value = TextBox1.Text Then
ks = ks + 1
For y = 1 To 9
Sheets("KİŞİ").Cells(ks, y).Value = Sheets("İZİNLER").Cells(x, y).Value
Next y
End If
Next x
ListBox2.ColumnCount = 9
ListBox2.RowSource = "KİŞİ!A1:I" & ks
End Sub

şeklinde kodum var
For y = 1 To 9
yerine ben A, C, D ve I sutunlarını seçmek için nasıl bir değişiklik yapabilirim.

 

[hamitcan]

Bu şekilde dener misiniz ?

Sub detay()
    Sheets("KİŞİ").Range("A2:I100000").Value = ""
    Dim x As Long
    Dim y As Long
    Dim ks As Integer
    ks = 1
    For x = 1 To 100000
    If Sheets("İZİNLER").Range("A" & x).Value = "" Then Exit For
    If Sheets("İZİNLER").Range("a" & x).Value = TextBox1.Text Then
    ks = ks + 1
    For y = 1 To 9
    If y = 2 Then GoTo 10
    If y = 5 Then GoTo 10
    If y = 6 Then GoTo 10
    If y = 7 Then GoTo 10
    If y = 8 Then GoTo 10
    Sheets("KİŞİ").Cells(ks, y).Value = Sheets("İZİNLER").Cells(x, y).Value
10
    Next y
    End If
    Next x
    ListBox2.ColumnCount = 9
    ListBox2.RowSource = "KİŞİ!A1:I" & ks
End Sub

 

[hamitcan]

Farklı bir örnek daha yaptım. Bunu da deneyebilir misiniz ?

Sub detay()
    Sheets("KİŞİ").Range("A2:I100000").Value = ""
    Dim x As Long
    Dim y As Long
    Dim ks As Integer
    Dim arr
    ks = 1
    For x = 1 To 100000
    If Sheets("İZİNLER").Range("A" & x).Value = "" Then Exit For
    If Sheets("İZİNLER").Range("a" & x).Value = TextBox1.Text Then
    ks = ks + 1
    arr = Array(1, 3, 4, 9)
    For y = 0 To UBound(arr)
    Sheets("KİŞİ").Cells(ks, arr(y)).Value = Sheets("İZİNLER").Cells(x, arr(y)).Value
10
    Next y
    End If
    Next x
    ListBox2.ColumnCount = 9
    ListBox2.RowSource = "KİŞİ!A1:I" & ks
End Sub

 

[mesutaygun70]

B

Sub detay()
Sheets("KİŞİ").Range("A2:I100000").Value = ""
Dim x As Long
Dim y As Long
Dim ks As Integer
ks = 1
For x = 1 To 100000
If Sheets("İZİNLER").Range("A" & x).Value = "" Then Exit For
If Sheets("İZİNLER").Range("a" & x).Value = TextBox1.Text Then
ks = ks + 1
For y = 1 To 9
Sheets("KİŞİ").Cells(ks, y).Value = Sheets("İZİNLER").Cells(x, y).Value
Next y
End If
Next x
ListBox2.ColumnCount = 9
ListBox2.RowSource = "KİŞİ!A1:I" & ks
End Sub

şeklinde kodum var
For y = 1 To 9
yerine ben A, C, D ve I sutunlarını seçmek için nasıl bir değişiklik yapabilirim.

Bu kodla izinler sayfasındaki arama işlemini yukardan aşağıya yapıyor. Yani en son işlem en sonda gösteriyor. Ben Arama işlemini aşağıdan yukarıya yapabilirmiyim. En son işlemi Listbox ta ilk sırada görmek istiyorum.

 

[Muzaffer Ali]

Merhaba.

Aşağıdaki kodu deneyin.
Array(9, 4, 3, 1) kısmı kolon sıra numarasını temsil ediyor.

I=9, D=4, C=3, A=1
Başka kolon eklemek isterseniz buna göre ekleyebilirsiniz.

Sub Test()
    Dim x As Long
    Dim y As Long
    Dim ks As Integer
    Dim Kolon As Variant
    Dim SatirSay As Integer
    SatirSay = Sheets("İZİNLER").Cells(Rows.Count, "A").End(xlUp).Row
    Kolon = Array(1, 3, 4, 9)
    Sheets("KİŞİ").Range("A2:I" & SatirSay).Value = ""
    ks = 1
    For x = SatirSay To 1 Step -1
        If Sheets("İZİNLER").Range("A" & x).Value = "" Then Exit For
            If Sheets("İZİNLER").Range("a" & x).Value = TextBox1.Text Then
            ks = ks + 1
            For y = 1 To UBound(Kolon)
                Sheets("KİŞİ").Cells(ks, Kolon(y - 1)).Value = Sheets("İZİNLER").Cells(x, y).Value
            Next y
        End If
    Next x
    ListBox2.ColumnCount = 9
    ListBox2.RowSource = "KİŞİ!A1:I" & ks
End Sub