Text Box İçine Yazdırma Hk.

[petsiye]

Merhaba,

Görsellerdeki Userform içine aşağıdaki kod yardımıyla, Filtreleme sonucunda SADECE GÖRÜNÜR HÜCRELERİ yazdırmak istiyorum ama bir türlü beceremedim. Bu konuda değerli yardımlarınızı talep etmekteyim. ( Farklı filtreler yaptığımda doğal olarak görünür hücreler her seferinde değişeceğini düşünmemiz lazım )



TextBox isimleri : TextBox1 , TextBox2, TextBox3, TextBox4, TextBox5, TextBox6









Verilerin Bulunduğu Sheet Adı "FILTRE" dir. Filtreleme aralığı ise C3:C2000 arasındadır









Userform içinde kullandığım kod ise aşağıdaki gibidir :

Private Sub UserForm_Activate()


TextBox1 = ThisWorkbook.Worksheets("FILTRE").Range("C3").Value
TextBox2 = ThisWorkbook.Worksheets("FILTRE").Range("C4").Value
TextBox3 = ThisWorkbook.Worksheets("FILTRE").Range("C5").Value
TextBox4 = ThisWorkbook.Worksheets("FILTRE").Range("C6").Value
TextBox5 = ThisWorkbook.Worksheets("FILTRE").Range("C7").Value



End Sub

 

[Emir Hüseyin Çoban]

.

Private Sub CommandButton1_Click()

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

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 >= 6 Then Exit For

Next a

End Sub

.

 

[petsiye]

Sayın @Emir Hüseyin Çoban ,

Öncelikle yanıtınız için çok Teşekkür Ederim.

Bu sorudan bağımsız olarak, Aşağıdaki kod yardımıyla, Excel tablosu içinde Hücre içindeki ifadenin Son kısmına, Hücre içindeki ifadeyi de ekleyerek, Hücreye tıklandığı zaman, Web Browser üzerinden ilgili sitede ( Tradingwiev WEb sitesi ), İlgili sembolun Teknik analiz Grafiği açılıyor.

Bunun Aynısını Userform'da bulunan TextBox'a uyarlamak acaba mümkünmüdür ? Yani Userformda bulunan 24 ayrı TextBox içindeki ifadeyi de, aşağıdaki kodun sonuna otomatik eklenmesi, ve sonuçta da, TextBox üzerine tıklandığında da ilgili Web sitesinin Sembol Grafiğinin açılması mümkün müdür ?

Tekrar çok Teşekkür ederim.


Sub KOPRU()

Application.ScreenUpdating = False

For a = 3 To Cells(Rows.Count, "C").End(3).Row
Cells(a, "C").Hyperlinks.Add Cells(a, "C"), "https://tr.tradingview.com/chart/?symbol=" & Cells(a, "C").Text
Next

End Sub