< návrat zpět

MS Excel

Téma: Prepojenie hárkov - Excel 2010 rss

Zaslal/a denaMmm 26.5.2020 14:18

Ahoj, ospravedlňujem sa za - pre vás detinský - dotaz, som laik čo sa týka excelu.
Problém je nasledovný: mám hárok č. 1., v ňom spísaných zákazníkov po riadkoch: meno (stĺpec A), adresa (B), tovar (C), dátum (D), iný údaj (E). Menoslov potrebujem preniesť do iného hárku či zošita s tým, že prvý riadok v novom zošite je stále hlavička A1, v ďalšom riadku meno A2, v ďalšom adresa A3, atď. po posledný údaj – A6. A7 = zasa hlavička. Všetky údaje sa samozrejme skopírujú z prvého riadku hárku č. 1. No ak chcem v hárku č. 2 skopírovať ďalší riadok z hárku č. 1, automaticky mi excel berie údaje zo 7-ho riadku pôvodného hárku. Manuálne viem spraviť, ale pri niekoľko sto zákazníkoch by som brala jednoduchšie riešenie zrušenia cyklického opakovania 1

Příloha: xlsx46707_zosit2.xlsx (11kB, staženo 20x)
Zaslat odpověď >
Jiří497(26.5.2020 15:07)#046708
avatar
Nevím, jak přesně budete kopírovat v tom Hárku2.
Možná by šlo použít NEPŘÍMÝ.ODKAZ.

=NEPŘÍMÝ.ODKAZ("Hárok1!A"&CELÁ.ČÁST(ŘÁDEK()/7)+1)
Anglická verze (asi):=INDIRECT("Hárok1!A"&INT(ROW()/7)+1)
Příloha: xlsx46708_46707_zosit2.xlsx (11kB, staženo 16x)
citovat
elninoslov(26.5.2020 15:37)#046709
elninoslov
Ťahať hodnoty nieje problém, ten vidím v kopírovaní tej hlavičky (písmo, veľkosť, rez, farba, pozadie). To som si inak asi nikdy nevšimol, že mi nejde nastaviť veľkosť písma cez PF. Rovnako mi nejde zároveň Bold aj Italic 8
Příloha: xlsx46709_46707_zosit2.xlsx (13kB, staženo 20x)
citovat
denaMmm(27.5.2020 13:51)#046714
avatar

Jiří497 napsal/a:

Anglická verze (asi):=INDIRECT("Hárok1!A"&INT(ROW()/7)+1)Příloha: 46708_46707_zosit2.xlsx (11kB, staženo 1x)

s tou anglickou verziou to ide, žiaľ cyklicky sa opakuje jedna chyba, ktorá sa postupne eliminuje po nej tri riadky sú v poriadku...

elninoslov napsal/a:

Ťahať hodnoty nieje problém, ten vidím v kopírovaní tej hlavičky (písmo, veľkosť, rez, farba, pozadie).

žiaľ hlavička musí byť, aj keď tú farbu som dala iba kvôli lepšiemu rozlíšeniu. predtým sa v práci všetko vypisovalo ručne, preto sa snažím uľahčiť si robotu...
Příloha: xlsx46714_zosit2.xlsx (16kB, staženo 18x)
citovat
Jiří497(27.5.2020 14:56)#046716
avatar
Ano, ten můj vzorec nefunguje. 9 Ani česky, ani anglicky, ani po slovensky.... 1

Však použijte ten vzorec od elninoslov. Ten funguje dobře.
Jestli je problém, že vám nefungují české funkce, tak si ten elninoslov vzorec přepište na anglické.
=INDEX(Hárok1!A:E;INT((ROW()-1)/6)+1;MOD(ROW()-1;6))

Nebo je problém někde jinde?citovat
elninoslov(27.5.2020 16:03)#046718
elninoslov
Ak nevyhovuje naťahovanie vzorcov, tak použite jednoduché makro, ktoré zmaže staré, rozkopíruje nové hodnoty a naformátuje:
Sub Rozkopiruj()
Dim R As Long, RV As Long, S As Byte, D(), V(), i As Long, x As Byte, Poz As Long, Hlava As Range

With Worksheets("Hárok1")
S = 5
R = .Cells(Rows.Count, 1).End(xlUp).Row
D = .Cells(1, 1).Resize(R, S).Value
End With

Application.ScreenUpdating = False
With Worksheets("Hárok2")
.UsedRange.Clear
RV = R * (S + 1)
ReDim V(1 To RV, 1 To 1)

For i = 1 To R
Poz = Poz + 1
V(Poz, 1) = "Rovnaká hlavička"
If Hlava Is Nothing Then Set Hlava = .Cells(Poz, 1) Else Set Hlava = Union(Hlava, .Cells(Poz, 1))
For x = 1 To S
Poz = Poz + 1
V(Poz, 1) = D(i, x)
Next x
Next i

With .Cells(1, 1).Resize(RV)
.Value = V
.HorizontalAlignment = xlLeft
End With
.Activate
End With

With Hlava
.Interior.Color = 16576511
.Font.Bold = True
.Font.Italic = True
.Font.Size = 14
.HorizontalAlignment = xlCenter
End With
Application.ScreenUpdating = True
End Sub
Příloha: zip46718_rozkopirovanie.zip (22kB, staženo 15x)
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