< návrat zpět

MS Excel


Téma: Protahnuti 250stran rss

Zaslal/a 25.10.2010 18:41

Zdravím,

potřeboval bych udělat, 250stran obsahujicí kódy, které by si brali z druhého listu excelu.

První list s názvem "kody" obsahuje 1000 náhodných kodu.
Druhý list s názvem "nacrt" obsahuje pouze první stránku ve které jsou 4 kody převzaty z listu "kody". Nedaří se mi najít způsob jak tento proces uskutečnit na 249 dalších stran a aby to bralo kod po kodu postupně z listu "kody".

viz.: http://leteckaposta.cz/477065109

děkuji za pomoc :)

Zaslat odpověď >

Strana:  1 2   další »
#002870
avatar
aloha

já bych to vyřešil třeba pomocí makra tím to kódem:
Sub vypiskody()
Dim kod As Integer
Dim list As Integer
Dim kody As Worksheet

Set kody = Sheets("kody")

kod = 1
list = 1

Sheets("kody").Activate

Do Until kody.Cells(kod, 1) = ""
Sheets.Add after:=ActiveSheet
ActiveSheet.Name = "nacrt" & list
ActiveSheet.Cells(10, 10) = kody.Cells(kod, 1)
ActiveSheet.Cells(20, 10) = kody.Cells(kod + 1, 1)
ActiveSheet.Cells(30, 10) = kody.Cells(kod + 2, 1)
ActiveSheet.Cells(40, 10) = kody.Cells(kod + 3, 1)
kod = kod + 4
list = list + 1
Loop

End Sub


před spustěním tohoto makra si smaž list "nacrt"

Snad jsem to tak pochopil.citovat
#002871
avatar
Zdravím,

to je skvělé, jen mám malinkatou prosbičku :)
makra mi moc nejdou dokáži si v něm upravit finální pozice kódu, ale nikoliv sloučení buněk :(... což potřebuji, kdyby se to dalo přidat do toho makra byl bych nesmírně rád :)

a kdyby se to generovalo na jeden list pod sebe tak by to bylo nejlepší a zároveň finální podoba tak jak to potřebuji...

Každopádně moc moc děkuji i za tohle :)citovat
#002872
avatar
Není zač, mě to taky někdo někdo šikovný naučil ;-)

Jinak pro sloučení buněk slouží "merge"

Třeba takto: Range(cells(10, 10), cells(10, 11)).Merge

Pokud to chceš mít ješte uprostřed zkus si zapnout nahrávání makra a sluč nějaké buňky a uvidíš jaký kód ti to vypíše 4

A to aby se to generovalo pod sebe to jsem nepochopil jak to myslíš 24citovat
#002877
avatar
hehe, aby se to vygenerovalo na jeden list pod sebe....

ukáži příklad :P
http://leteckaposta.cz/462029916

tedka jdu vyzkoušet to nahrání makra :)citovat
#002878
avatar
to nahrávání mi nějako blbne :-/ :( pokaždé error :D musim to ještě párkrát zkusit je to jakésik divné :)citovat
#002880
avatar
achjo.. nejde to 3 mohl bych poprosit opět o celé makro ? protože mě to opravdu nejde ať dělám co dělám.. :((citovat
#002883
avatar
jo takhle 7 si mohl říct hned 29

Já ted nemužu, možná zítra bych ten kod ti vytvořil ale ted už fakt nemužu.

Nebo ješte zkoušej, raz to určo výjde :-Dcitovat
#002887
avatar
19 už jsem rozbil prupisku, kterou okusuju při tom... 7
prosim 18 nebo začnu třiskat s myškou 7citovat
#002889
avatar
Tak co myška, žije? 7

Tady je můj kod pro porovnáníSub vypiskody()
Dim kod As Long
Dim novyradek As Long
Dim nacrtlist As Worksheet
Dim kodylist As Worksheet

kod = 1
novyradek = 3

Set nacrtlist = Sheets("nacrt")
Set kodylist = Sheets("kody")

Do Until Sheets("kody").Cells(kod, 1) = ""
With nacrtlist
.Cells(novyradek, 8) = kodylist.Cells(kod, 1)
.Range(Cells(novyradek, 8), Cells(novyradek + 1, 10)).Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
With Selection.Font
.Name = "Calibri"
.Size = 18
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontMinor
End With
End With

kod = kod + 1
novyradek = novyradek + 14
Loop
End Sub


4citovat
#002915
avatar
zase ja... 7

piše mi to jakýsik error
na tomto řádku

.Range(Cells(novyradek, 8), Cells(novyradek + 1, 10)).Select

a vubec nevim proč :_/...citovat

Strana:  1 2   další »

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