MS Excel

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ší »

Niffki(25.10.2010 21:05)#002870

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

neyo(26.10.2010 1:33)#002871

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

Niffki(26.10.2010 6:32)#002872

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

A to aby se to generovalo pod sebe to jsem nepochopil jak to myslíš

citovat

neyo(26.10.2010 10:14)#002877

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

neyo(26.10.2010 10:22)#002878

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

neyo(26.10.2010 10:39)#002880

achjo.. nejde to

mohl bych poprosit opět o celé makro ? protože mě to opravdu nejde ať dělám co dělám.. :((citovat

Niffki(26.10.2010 13:49)#002883

jo takhle

si mohl říct hned

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

neyo(26.10.2010 15:03)#002887

už jsem rozbil prupisku, kterou okusuju při tom...

prosim

nebo začnu třiskat s myškou

citovat

Niffki(27.10.2010 7:12)#002889

Tak co myška, žije?

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

citovat

neyo(28.10.2010 14:29)#002915

zase ja...

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ší »

Téma: Protahnuti 250stran

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje