< návrat zpět

MS Excel


Téma: VBA Text box pokročilý rss

Zaslal/a 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: zip7532_priklad_textbox.zip (46kB, staženo 14x)
Zaslat odpověď >

#007533
Jeza.m
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)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

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

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09