ilk kayıta git makrosu

[bitmez13]

ilk kayıtta git makrosunu şu şekilde yaptım ama yapamadığım ise listview1 deki ilk kayıttın otomatik olarak çift tıklanmış gibi text bookslara gelmesi yardım ederseniz sevinirim şimdiden teşekkürler

Private Sub ilk kayıt_Click()
On Error Resume Next
Sheets(Me.ComboBox1.Text).Select
Range("A2").Select
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""

End Sub

 

[Ferhat Pazarçevirdi]

Eğer lvwReport görünümündeyken; 5 veya daha fazla sütun görüntülüyorsanız;

Aşağıdakileri, kodlarınızın en sonuna ekleyin.

    With ListView1
        If .ListItems.Count > 0 Then
            With .ListItems(1)
                TextBox1 = .Text
                TextBox2 = .SubItems(1)
                TextBox3 = .SubItems(2)
                TextBox4 = .SubItems(3)
                TextBox5 = .SubItems(4)
            End With
        End If
    End With

Değil ise, hata mesajı alacaksınız. Bu durumda; Listview'i nasıl organize ettiğinizi bilmemiz gerekir.

 

[bitmez13]

çok teşekkür ederim sağolasın