petsiye
Altın Üye
- Katılım
- 28 Eylül 2009
- Mesajlar
- 190
- Excel Vers. ve Dili
- Office 2019 TR 32 Bit
- Altın Üyelik Bitiş Tarihi
- 10-05-2029
Merhaba,
Aşağıdaki kod yardımıyla, Userform İçinde bulunan toplam 150 tane Text Box'a, FILTRE isimli Sheet'den, Filtreleme sonrasındaki ilk 25 satırı Userform içindeki Textboxlara yazdırabiliyorum. Burada sorun Yok.
Fakat FILTRE isimli sayfada, Eğer filtreleme sonrası 25'ten fazla satır kalmışsa, Userform içine Ekleyeceğim bir command buton ile, FILTRE adle sheet deki 26. satır sonrası verileri de Yine aynı Userform içindeki TextBox lara yazdırmak istiyorum. Kod üzerindeki sayılarda birçok değişiklik yaptım fakat birtürlü başaramadım
Yardımcı olabileceklere şimdiden Teşekkür ederim.
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 <= 25 Then
Me.Controls("TextBox" & say).Text = SF.Cells(a, "C").Value
Me.Controls("TextBox" & (say + 25)).Text = SF.Cells(a, "D").Value
Me.Controls("TextBox" & (say + 50)).Text = SF.Cells(a, "JVL").Value
Me.Controls("TextBox" & (say + 75)).Text = SF.Cells(a, "HTB").Value
Me.Controls("TextBox" & (say + 100)).Text = SF.Cells(a, "V").Value
Me.Controls("TextBox" & (say + 125)).Text = SF.Cells(a, "W").Value
Me.Controls("TextBox" & (say + 150)).Text = SF.Cells(a, "X").Value
End If
End If
If say >= 25 Then Exit For
Next a
Aşağıdaki kod yardımıyla, Userform İçinde bulunan toplam 150 tane Text Box'a, FILTRE isimli Sheet'den, Filtreleme sonrasındaki ilk 25 satırı Userform içindeki Textboxlara yazdırabiliyorum. Burada sorun Yok.
Fakat FILTRE isimli sayfada, Eğer filtreleme sonrası 25'ten fazla satır kalmışsa, Userform içine Ekleyeceğim bir command buton ile, FILTRE adle sheet deki 26. satır sonrası verileri de Yine aynı Userform içindeki TextBox lara yazdırmak istiyorum. Kod üzerindeki sayılarda birçok değişiklik yaptım fakat birtürlü başaramadım
Yardımcı olabileceklere şimdiden Teşekkür ederim.
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 <= 25 Then
Me.Controls("TextBox" & say).Text = SF.Cells(a, "C").Value
Me.Controls("TextBox" & (say + 25)).Text = SF.Cells(a, "D").Value
Me.Controls("TextBox" & (say + 50)).Text = SF.Cells(a, "JVL").Value
Me.Controls("TextBox" & (say + 75)).Text = SF.Cells(a, "HTB").Value
Me.Controls("TextBox" & (say + 100)).Text = SF.Cells(a, "V").Value
Me.Controls("TextBox" & (say + 125)).Text = SF.Cells(a, "W").Value
Me.Controls("TextBox" & (say + 150)).Text = SF.Cells(a, "X").Value
End If
End If
If say >= 25 Then Exit For
Next a
