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: zip

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)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.