• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: VBA Text box pokročilý

Zaslal/a Skoky 6.3.2012 13:52

Ahoj potřeboval bych trochu poradit. Potřebuji kopírovat do textboxu určitě množství dat stažených z prohlížeče (viz příloha - již vloženo do exclu). Z čehož po zkopírování potřebuji oblast ("C27:Q226") přesunout normálně do excelu po jednotlivých buňkách aby se s nimi dalo pracovat.
Samozřejmě bych mohl vše přesunout napevno rovnou do xls (což aktuálně dělám), ale přes textbox se zbavím nepotřebných sloučených buněk, textboxů a checkboxů, které si zkopíruji z prohlížeče. Navíc s tím chci pracovat přes userform.

Doufám, že jsem to napsal nějak srozumitelně a že mi s tím nějaká chytrá hlava poradí.

Díky

Příloha: 7532_priklad_textbox.zip (46kB, staženo 14x)

Zaslat odpověď >

---

Jeza.m(6.3.2012 16:41)#007533

Jen pokus :-)
Private Sub CommandButton1_Click()
Dim tmp As String
For rd = 27 To 226 Step 2
For sl = 3 To 18
If tmp <> "" Then tmp = tmp & "|" & Cells(rd, sl) Else tmp = Cells(rd, sl)
Next

If tmp <> "" Then
If TextBox1.Text <> "" Then TextBox1.Text = TextBox1.Text & Chr(10) & tmp Else TextBox1.Text = tmp
End If
tmp = ""
Next
End Sub
M@citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse