< návrat zpět

MS Excel

Téma: zadany pocet kopii tabulky rss

Zaslal/a dialektor 10.12.2014 20:25

Ahojte, potrebovla by som pomoc, potreboval by som kopirovat tabulku z harka 1 do sheetu tabulka, tak ze z bunky pocet kopii na harok1 zadam kolko krat sa ma tabulka skopirovat do sheetu tabulka. medzi jednotlivimi kopiami tabulky by som potreboval jeden riadok volny. Dakujem za pomoc

Příloha: rar22734_test2.rar (10kB, staženo 23x)
Zaslat odpověď >
Pavlus(10.12.2014 22:32)#022736
avatar
Co je třeba upřesnit:
1.) Bude tabulka nějak striktně definována? Např. počet sloupců a řádků.
2.) Bude tabulka vyplněna? (Všechny řádky tabulky?)
P.citovat
dialektor(11.12.2014 17:42)#022743
avatar
Ahoj,
1. Tabullka bude mat pevne definvany pocet stlpcou aj riadkou a bude vyplnena.

Dakujemcitovat
Pavlus(12.12.2014 21:53)#022763
avatar
Například takto.
Pozn.: Tabulka musí vždy začínat ve vyžluceném políčku...
P.

Viz příloha:
Příloha: zip22763_kopirovani_tabulky.zip (18kB, staženo 25x)
citovat
dialektor(14.12.2014 13:47)#022784
avatar
Ahoj, funguje to super dakujem velmy pekne za pomoc ale mam este jeden dotaz chcel by som aby som ju dokazal poslat mailom adresa mailu je zadana v policku adresa. nasiel som nejake makra ktomuto ale nefungovalo mi to . Chcel by som posielat mail pomocou outlook 2013 dakuemcitovat
Pavlus(14.12.2014 14:08)#022786
avatar
Specifikuj, co přesně chceš posílat.
Ten soubor s tabulkou, nebo vkládat tabulku do zprávy, chceš ji vkládat jednou nebo dle onoho čísla... Příp. co přesně ti nefungovalo na kódu, který jsi našel?
P.citovat
dialektor(29.12.2014 16:26)#022922
avatar
Ahoj chcel by som poslat iba sheet tabulka .. neviem ci by sa to dalo tak aby sheet tabulka bola priloha spravy ..
Dakujem

Mam este jeden today ohladom predosleho kodu ( pocet kopii tabulky) dalo by sa to tak aby makro kopirovalo iba vyditelne riadky? skusal som upravit premennu pocet_radku takto .Rows(pocet_radku).Hidden ale nefunguje :(

Sub kopiruj_tabulku()
Dim pocet_radku As Integer
Dim pocet_sloupcu As Integer
Dim volny_radek As Long
Dim pocet_kopii As Integer
Dim i As Integer
Dim msg As Byte

Application.ScreenUpdating = False

If Sheets("Hárok1").Range("B2").Value >= 1 Then
pocet_kopii = Sheets("Hárok1").Range("B2").Value
Else
msg = MsgBox("Nebyl vybrán adekvátní počet kopií!", vbCritical + vbOKOnly)
Exit Sub
End If

pocet_radku = Sheets("Hárok1").Range("A1000000").End(xlUp).Row

.Rows(pocet_radku).Hidden


If pocet_radku < 9 Then
msg = MsgBox("Není vytvořena tabulka!", vbCritical + vbOKOnly)
Exit Sub
End If

pocet_sloupcu = Sheets("Hárok1").Range("XFD9").End(xlToLeft).Column

Sheets("Hárok1").Range(Range("A9"), Cells(pocet_radku, pocet_sloupcu)).Select
Selection.Copy

Sheets("tabulka").Activate

For i = 1 To pocet_kopii Step 1
volny_radek = Sheets("tabulka").Range("A1000000").End(xlUp).Row + 2
Sheets("tabulka").Range("A" & volny_radek).Select
ActiveSheet.Paste
Next i

Application.CutCopyMode = False

Sheets("tabulka").Cells(volny_radek + 1, 1).Select
Sheets("Hárok1").Activate
Sheets("Hárok1").Range("B2").Select

Application.ScreenUpdating = True

Dakujem za pomoc s pozdravom D.citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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.

On-line nástroje