TextBox İçlerine Yazı Yazdırma Hk.

[petsiye]

Merhaba,

Aşağıdaki kodlar yardımıyla, "FILTRE"isimli Sheet teki C Sütununda , Filtreleme sonrası çıkan Sembolleri ( SEMBOL Sütunundaki verileri ) , Userform içerisinde Text Box içlerine Alt alta başarılı bir şekilde yazdırabiliyorum. Aynı şekide yine "FILTRE"isimli Sheet teki D sütununda bulunan ( ENDEKS - SEKTÖR - BÖLGE Sütunundaki verileri ) verileride görseldeki Userformdaki Text Boxlar içine nasıl yazdırlabilirim.

Özetle : "FILTRE"isimli Sheet teki SEMBOL Sütununda ( C sütunu ) bulunan verileri TExbox1 ile TextBox12 Arasındaki kutulara yazdırmak istiyorum. Aynı şekilde "FILTRE"isimli Sheet teki ENDEKS - SEKTÖR - BÖLGE Sütununda ( D sütunu ) bulunan verileri TExbox13 ile TextBox24 Arasındaki kutulara yazdırmak istiyorum

Yardımcı olabilecek kişilere şimdiden çok Teşekkür Ederim



Private Sub UserForm_Activate()

Dim SF As Worksheet: Set SF = Sheets("FILTRE")

For a = 3 To SF.Cells(Rows.Count, "C").End(3).Row

If SF.Rows(a).EntireRow.Hidden = False Then
say = say + 1
Controls("Textbox" & say).Text = SF.Cells(a, "C")
End If

If say >= 24 Then Exit For

Next a

End Sub

 

[pitchoute]

Merhaba, şöyle deneyip sonucu paylaşabilir misiniz;

Private Sub UserForm_Activate()
    Dim SF As Worksheet
    Set SF = Sheets("FILTRE")
    Dim say As Integer
    say = 0
    Dim a As Long, lastRow As Long
    lastRow = SF.Cells(SF.Rows.Count, "C").End(xlUp).Row
    For a = 3 To lastRow
        If SF.Rows(a).EntireRow.Hidden = False Then
            say = say + 1
            If say <= 12 Then
                Me.Controls("TextBox" & say).Text = SF.Cells(a, "C").Value
                Me.Controls("TextBox" & (say + 12)).Text = SF.Cells(a, "D").Value
            End If
        End If
        If say >= 12 Then Exit For
    Next a
End Sub

 

[petsiye]

Sayın @pitchoute

Sonuç 10 Numara,

Allah razı olsun. Çok Teşekkür ederim.

Saygılarımla

 

[pitchoute]

Allah sizden de razı olsun, iyi çalışmalar