tabloyu textboxlara aktarmak

[excellcan]

Forumda emeği geçen herkese merhaba. Arkadaşlar ekli çalışmada basit bir tablo hazırladım. J18:M22 aralığındaki verileri Userform1'e döngü ile olduğu gibi aktarmak istiyorum. İlgilenen arkadaşlara şimdiden teşekkürler.

 

[Orion1]

Dosyanız ektedir.

Private Sub CommandButton1_Click()
Dim hcr As Range
Dim k As Byte
For Each hcr In Range("K18:M22")
        k = k + 1
        Controls("TextBox" & k).Text = ""
        Controls("TextBox" & k).Text = hcr.Value
Next
End Sub

 

[excellcan]

Dosyanız ektedir.

Private Sub CommandButton1_Click()
Dim hcr As Range
Dim k As Byte
For Each hcr In Range("K18:M22")
        k = k + 1
        Controls("TextBox" & k).Text = ""
        Controls("TextBox" & k).Text = hcr.Value
Next
End Sub

Hocam emeğinize sağlık. Çok teşekkürler.

 

[excellcan]

Dosyanız ektedir.

Private Sub CommandButton1_Click()
Dim hcr As Range
Dim k As Byte
For Each hcr In Range("K18:M22")
        k = k + 1
        Controls("TextBox" & k).Text = ""
        Controls("TextBox" & k).Text = hcr.Value
Next
End Sub

Hocam bu kodları şarta bağlı olarak yeniden nasıl düzenleyebiliriz ? Şöyle ki J sütunundaki satır başlıklarını bir Combobox'a atadım. Combobox dan "A" yı seçince tabloda sadece A başlığına denk gelen verileri alsın. Ya da "C" yi seçince
sadece C ye karşılık değerleri alsın. İlginiz için şimdiden teşekkürler.

 

[Orion1]

Hocam bu kodları şarta bağlı olarak yeniden nasıl düzenleyebiliriz ? Şöyle ki J sütunundaki satır başlıklarını bir Combobox'a atadım. Combobox dan "A" yı seçince tabloda sadece A başlığına denk gelen verileri alsın. Ya da "C" yi seçince
sadece C ye karşılık değerleri alsın. İlginiz için şimdiden teşekkürler.

Dosyanız ektedir.
Önce propertiesten(textboxlarda) tag ayarların yaptım.

Private Sub ComboBox1_Change()
Dim k As Range, txt As Control
For Each txt In Me.Controls
    If TypeName(txt) = "TextBox" Then txt.Value = Empty
Next

Set k = Range("J18:J22").Find(ComboBox1.Value, , xlValues, xlWhole)
If Not k Is Nothing Then
    For Each txt In Me.Controls
        If txt.Tag = ComboBox1.Text & 1 Then txt.Value = k.Offset(0, 1)
        If txt.Tag = ComboBox1.Text & 2 Then txt.Value = k.Offset(0, 2)
        If txt.Tag = ComboBox1.Text & 3 Then txt.Value = k.Offset(0, 3)
    Next
End If
Set k = Nothing
End Sub

 

[excellcan]

Dosyanız ektedir.
Önce propertiesten(textboxlarda) tag ayarların yaptım.

Private Sub ComboBox1_Change()
Dim k As Range, txt As Control
For Each txt In Me.Controls
    If TypeName(txt) = "TextBox" Then txt.Value = Empty
Next

Set k = Range("J18:J22").Find(ComboBox1.Value, , xlValues, xlWhole)
If Not k Is Nothing Then
    For Each txt In Me.Controls
        If txt.Tag = ComboBox1.Text & 1 Then txt.Value = k.Offset(0, 1)
        If txt.Tag = ComboBox1.Text & 2 Then txt.Value = k.Offset(0, 2)
        If txt.Tag = ComboBox1.Text & 3 Then txt.Value = k.Offset(0, 3)
    Next
End If
Set k = Nothing
End Sub

Hocam emeğinize sağlık , tam istediğim gibi olmuş. Epey zamandır hücrelerden textboxlara değer aktarma konusuna kafa yoruyordum. Mevzu epeyce netleşti. Sorduğum tüm sorulara da yanıt verdiniz. Herşey gönlünüzce olsun.