VBA. Tiedon tallennus eri taulukkoihin.

Tumpelo

No joo en tiedä onko täysin oikeessa foorumissa.

Eli ongelma on tälläinen että...
Oon tehny User Formin ja siinä on erinäisiä teksti bokseja joista pitäis saada tallennettu tietoa Taulukko1 ja Taulukko2. Siis TextBox1:sen tieto Taulukko1:een ja TextBox2:sen tieto Taulukko2:seen... Miten pitää määritellä mihin taulukkoon tallennan...
Mitä pitäs tehdä ja myönnän olevani tumpelo, kiitos.

4

784

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Kotikoodari

      TextBox1:n koko sisällön varastointiin riittää merkkijonomuuttuja:
      (muut TextBoxit kuten TextBox1)

      Dim Mj as String

      Mj=TextBox1.Value


      TextBox1:n sisällön varastointi riveittäin taulukkoon:
      (muut TextBoxit kuten TextBox1)

      Dim Taulukko1() As String
      Dim RiviLkm As Integer
      Dim MjLkm As Integer
      Dim I As Integer
      Dim J As Integer
      Dim Merkki As String
      Dim Mj As String

      'focus textboxille
      TextBox1.SetFocus
      'rivien lukumäärä textboxissa
      RiviLkm = TextBox1.LineCount
      'taulukon tilanvaraus
      ReDim Taulukko1(RiviLkm)

      Mj = ""
      J = 1
      'focus textboxille
      TextBox1.SetFocus
      'textboxin merkkien lukumäärä
      MjLkm = Len(TextBox1.Text)
      For I = 1 To MjLkm
      Merkki = Mid(TextBox1.Text, I, 1)
      'vaununpalautus
      If Merkki = Chr(13) Then
      J = J 1
      'ylitetään rivinvaihtomerkki
      I = I 1
      'tyhjennetään merkkijono
      Mj = ""
      Else
      'lisätään merkki rivin merkkijonoon
      Mj = Mj & Merkki
      'lisätään taulukon indeksiä
      Taulukko1(J) = Mj
      End If
      Next

      'taulukon tulostus
      For I = 1 To RiviLkm
      MsgBox Taulukko1(I)
      Next

    • Kunde

      Tässä lyhyt ja helppo( ei taida toimia kuin Excel 2000--->)

      Private Sub CommandButton1_Click()
      Dim teksti As Variant
      TextBox1.SetFocus
      x = TextBox1.LineCount
      Sheets("Taul1").Activate
      Range("A1").Select
      For i = 0 To x - 1
      teksti = Split(TextBox1, vbNewLine)
      ActiveCell = teksti(i)
      ActiveCell.Offset(1, 0).Select
      Next
      TextBox2.SetFocus
      x = TextBox2.LineCount
      Sheets("Taul2").Activate
      Range("A1").Select
      For i = 0 To x - 1
      teksti = Split(TextBox2, vbNewLine)
      ActiveCell = teksti(i)
      ActiveCell.Offset(1, 0).Select
      Next
      End Sub

    • Tumpelo

      Joo kiitos vain. Sain poimittua noista vinkeistä juuri sellaiset tiedot joilla pääsen taas eteenpäin...

      Kiitos.

    • Tumpelo

      Voinko hakea esim. Taulukko1 tietoa ja tulostaa sen UserFormille???

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Rasismia kaikkialla näkevät ovat Suomen tyhmimpiä ihmisiä

      ja monillahan kuluu myös mielialalääkkeitä, eli päässä on ongelmia. Mutta he eivät tajua kuinka paljon ja ihan todellis
      Maailman menoa
      123
      5282
    2. Persujen mukaan rasismi on huumoria

      Vaan kun koomikko kutsui Halla-ahoa fasistiksi, niin piti haastaa oikeuteen. Mihin se huumorinitaju yhtäkkiä hävisi? ⠀
      Maailman menoa
      181
      5195
    3. BOIKOTOIN - Ei mitään Suomi.fi postilaatikoita käyttöön

      Ainakaan minulle! Vai että pitäisi alkaa siellä käyädä katselemassa tammikuusta 2026 siis periaatteessa päivittäin että
      Maailman menoa
      214
      4122
    4. 217
      3332
    5. Lasse Lehtonen vaatii persuja pyytämään anteeksi aasialaisilta

      Persut ova romahduttaneet Suomen maakuvan parissa päivässä negatiiviseksi rasismillaan ja se alkaa vaikuttamaan jo Suome
      Maailman menoa
      123
      3148
    6. Hallitus on kaadettava ja Orpon on erottava

      Mikään muu hallitus ei ole oman elämäni aikana tuhonnut näin paljon tämän maan taloutta ja työllisyyttä sekä suomen main
      Maailman menoa
      104
      3024
    7. HS 12/25 kysely: persut romahti, demarit raketoi

      Kyyti on kylmää persuleirissä, saattaa vetää siellä silmätkin viirulleen. Sen sijaan SDP:n puoluetoimistolla voidaan pok
      Maailman menoa
      19
      2941
    8. Lasse Lehtonen palasi ambulanssilennolla Suomeen

      Nyt on syytä lopettaa irvailu.
      Maailman menoa
      127
      1884
    9. Rasismi rapauttaa Suomen mainetta ja hallituksen hiljaisuus pahentaa vahinkoa

      Finnairin viesti Japanista on pysäyttävä: suomalaisen politiikan rasismikohut heijastuvat suoraan matkustuspäätöksiin ja
      Maailman menoa
      162
      1802
    10. 61
      1379
    Aihe