Skip to main content

AccessTr.neT


Userboxta Texbox Verilerinin Sütünlara Girilmesi Forumda Yok

Userboxta Texbox Verilerinin Sütünlara Girilmesi Forumda Yok

#7
Kodu alttaki gibi düzenledim.Son sütun ve satıra göre yapar.
UserForm_Initialize kodunuda buna göre ayarlayabilirsiniz sütun artırtıkça.
Deneyin olmazsa bakarız müsait olunca.


Private Sub CommandButton1_Click() 'Saving Button
    Dim bulAy As Range, bulKalem As Range
    Dim sonData As Long, sonDataKolonNo As Integer

    If TextBox2.Value = "" Then
        MsgBox "Gider Fatura Tar.", vbExclamation
        TextBox2.SetFocus
        Exit Sub
    End If
   
    With Sheets("Data")
   
        Set bulAy = .Range("A:A").Find(Me.ComboBox2.Value, , xlValues, 1)
        Set bulKalem = .Rows(1).Find(Me.ComboBox3.Value, , xlValues, 1)
        sonData = .Cells(Rows.Count, 1).End(3).Row
        sonDataKolonNo = .Cells(1, Columns.Count).End(xlToLeft).Column
       
        If sonData < 2 Then GoTo son:
        If sonDataKolonNo < 2 Then GoTo son:
       
        If Not bulAy Is Nothing And Not bulKalem Is Nothing Then
            Call Main 'Progress Bar
          .Cells(bulAy.Row, bulKalem.Column) = Me.TextBox4.Value
           
            MsgBox "Registration is successful", vbApplicationModal, ""
           
            ListBox1.List = .Range(.Cells(2, "A"), .Cells(sonData, sonDataKolonNo)).Value
            TextBox14.Value = ListBox1.ListCount
        Else
            GoTo son
        End If
    End With
son:
    Set bulAy = Nothing
    Set bulKalem = Nothing
End Sub
Cevapla
#8
(23/06/2021, 17:51)feraz yazdı: Kodu alttaki gibi düzenledim.Son sütun ve satıra göre yapar.
UserForm_Initialize kodunuda buna göre ayarlayabilirsiniz sütun artırtıkça.
Deneyin olmazsa bakarız müsait olunca.


Private Sub CommandButton1_Click() 'Saving Button
    Dim bulAy As Range, bulKalem As Range
    Dim sonData As Long, sonDataKolonNo As Integer

    If TextBox2.Value = "" Then
        MsgBox "Gider Fatura Tar.", vbExclamation
        TextBox2.SetFocus
        Exit Sub
    End If
   
    With Sheets("Data")
   
        Set bulAy = .Range("A:A").Find(Me.ComboBox2.Value, , xlValues, 1)
        Set bulKalem = .Rows(1).Find(Me.ComboBox3.Value, , xlValues, 1)
        sonData = .Cells(Rows.Count, 1).End(3).Row
        sonDataKolonNo = .Cells(1, Columns.Count).End(xlToLeft).Column
       
        If sonData < 2 Then GoTo son:
        If sonDataKolonNo < 2 Then GoTo son:
       
        If Not bulAy Is Nothing And Not bulKalem Is Nothing Then
            Call Main 'Progress Bar
          .Cells(bulAy.Row, bulKalem.Column) = Me.TextBox4.Value
           
            MsgBox "Registration is successful", vbApplicationModal, ""
           
            ListBox1.List = .Range(.Cells(2, "A"), .Cells(sonData, sonDataKolonNo)).Value
            TextBox14.Value = ListBox1.ListCount
        Else
            GoTo son
        End If
    End With
son:
    Set bulAy = Nothing
    Set bulKalem = Nothing
End Sub
teşekkürler
Cevapla
#9
Rica ederim.
Cevapla
#10
Zaman bulmuşken neden bulmadığını çözdüm.Alttaki gibi değiştirin.
Kalemlerin sonunda boşluk olduğu içinmiş bulmaması.
bulAy kod satırınada Trim ekleyebilirsiniz aynı şekilde.

Set bulKalem = .Rows(1).Find(Trim(Me.ComboBox3.Value), , xlValues, 1)
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task