Tarkoituksena olisi hakea Taulu1:stä tietoja silleen rivittäin (joka rivillä on useita soluja) ja sitten näyttää ne TextBox:ssa.
Siis poimia useita rivejä kuten a-rivin tiedot (a, a1,a2...) ja sitten siirtyä seuraavalle TextBox:n riville ja näyttää b-rivin tiedot (b,b1,b2...) ja niin edelleen.
Varsinainen ongelma on tuo textbox:n toiminta miten saan tiedot TextBox:n ja vaihdettua riviä kun pitää siirtyä a rivistä b riville.
a, a1, a2, a3, a4.
b, b1, b2, b3, b4.
c, c1, c2, c3, c4.
Taitaa olla aika sekavasti kuvailtu...
Siis poimia useita rivejä kuten a-rivin tiedot (a, a1,a2...) ja sitten siirtyä seuraavalle TextBox:n riville ja näyttää b-rivin tiedot (b,b1,b2...) ja niin edelleen.
Varsinainen ongelma on tuo textbox:n toiminta miten saan tiedot TextBox:n ja vaihdettua riviä kun pitää siirtyä a rivistä b riville.
a, a1, a2, a3, a4.
b, b1, b2, b3, b4.
c, c1, c2, c3, c4.
Taitaa olla aika sekavasti kuvailtu...
Vastaukset 2
Vanhimmat
En nyt ole varma meneekö rivit oikein,mutta vaihtamalla looppia saat ne haluamaasi järjestykseen
Private Sub UserForm_Initialize()
Dim i As Integer
Dim j As Integer
Dim Alue As Variant
Dim Teksti As String
Set Alue = Range("A1:C10")
For j = 1 To Alue.Columns.Count
For i = 1 To Alue.Rows.Count
Teksti = Teksti & " " & Cells(i, j)
Next i
Teksti = Teksti & vbNewLine
Next j
TextBox1 = Teksti
End Sub
Joo kyllä tästä lienee apua kunhan saan muokattua sitä sopivampaan muotoon. Yritän saada sen silleen että
lukee Taulu1:stä Rivin c4,c10 ->
tulostaa tiedot TextBox1 ->
TextBox:n rivinvaihto ->
lukee Taulu1:stä Rivin d4,d10 ->
tulostaa tiedot TextBox1 ->
TextBox:n rivinvaihto ->
lukee Taulu1:stä Rivin e4,e10 -> jne...
Ja yritän vielä luoda ehtoa joka vertaa Taulu1:n rivin ensimmäisen solun arvoa ja jos arvo on "Kyllä" niin sitten tämä rivi tulostetaan TextBox:n...
Tässähän tämä päivä sitten meneekin...
Kiitos avusta.