Textbox ara topluca veri alma

[kemal turan]

Merhaba
Telefondan yazdığım için dosya ekleyemedim.
Userform initialize olayına bağlı olarak
Sheets ("Tahsılat").Range ("b6:b26") arasındaki verileri (hepsi dolu olmayabilir) sıralı textbox1 -20 ye topluca alabilecek bir kod rica ediyorum.
Teşekkürler

 

[vardar07]

Boş olanlar TextBox a boş olarakmı gelecek?

 

[kemal turan]

Merhaba vardar hocam
Sn.Orion beyin arşiv çalışmasından aşağİdari kodu
Private Sub UserForm_Initialize()
Dim t As Integer, veri As Range
For Each veri In Range("D4:I7")
t = t + 1
Controls("TextBox" & t).Value = veri.Value
Next
End Sub

Kodu revize ederek sorunu çözdüm.
Sizin ilginize ve hocamın emeğine teşekkür ediyorum

 

[Orion1]

Buyurun.

Private Sub UserForm_Initialize()
Dim i As Byte
For i = 6 To 20
    Me.Controls("TextBox" & i - 5) = Cells(i, "B").Value
Next i
End Sub

 

[kemal turan]

Orhon hocam merhaba
Arşiv cevabınız ve bir önceki mesajınız her ikisinide revize ettim.
Sayfadan bu şekilde 5 sutundan veri alıyorum. Her iki çözümünüzde format sorunu çıktı. Format tanımladığımda boş olan hücrelerden alakası olmayan tarih verisi getiriyor. Bu sorun için yardım rica ediyorum

 

[kemal turan]

Orhon hocam merhaba
Arşiv cevabınız ve bir önceki mesajınız her ikisinide revize ettim.
Sayfadan bu şekilde 5 sutundan veri alıyorum. Her iki çözümünüzde format sorunu çıktı. Format tanımladığımda boş olan hücrelerden alakası olmayan tarih verisi getiriyor. Bu sorun için yardım rica ediyorum

 

[kemal turan]

1 to 20 textbox a sütununda "ıdNo"format sayı
21 to 40 textbox "vade" format tarih
41 to 60 textbox "borç" format cdbl sayı
61 to 80 textbox "ödenen" format cdbl sayı

 

[Orion1]

Orhon hocam merhaba
Arşiv cevabınız ve bir önceki mesajınız her ikisinide revize ettim.
Sayfadan bu şekilde 5 sutundan veri alıyorum. Her iki çözümünüzde format sorunu çıktı. Format tanımladığımda boş olan hücrelerden alakası olmayan tarih verisi getiriyor. Bu sorun için yardım rica ediyorum

Buyurun.

Private Sub UserForm_Initialize()
Dim i As Byte
For i = 6 To 20
    If IsDate(Cells(i, "B").Value) Then
        Me.Controls("TextBox" & i - 5) = Format(Cells(i, "B").Value, "dd.mm.yyyy")
    End If
Next i
End Sub

 

[kemal turan]

Oldu hocam.ben format (cdbl şeklinde yapmıştım.
Teşekkürler

 

[Orion1]

Oldu hocam.ben format (cdbl şeklinde yapmıştım.
Teşekkürler

Tarih sorgusu için isdate,
Sayı sorgusu için ise isnumeric kullanınız.

 

[kemal turan]

Teşekkür ederim