Generare dintr-un tabel excel a n tabele cu acelasi antet

#1
vdingo11

Posted 27 January 2020 - 13:30

Senior Member

Grup: Senior Members
Posts: 4,273
Înscris: 24.08.2005

Saluatre.
Am in excel un tabel care are 200 de inregistrari.
Ma intereseaza daca exista vreo solutie sa pot genara 200 de tabele care sa aiba fiecare acelasi cap de tabel, sa fie despartite printr-o linie goala si sa fie mai multe pe o pagina.
Initial m-am gandit la generarea scrisorilor dar imi va genera cate o pagina pentru fiecare inregistrare si asta inseamna 200 de pagini. Ideal ar fi sa am pe fiecare pagina cate inregistrari sunt posibile.
Nu doresc rezolvarea cu VB ca nu ma pricep.

Multumesc.

Edited by vdingo11, 27 January 2020 - 13:31.

Back to top

#2
mopy

Posted 27 January 2020 - 13:41

Member

Grup: Members
Posts: 395
Înscris: 09.10.2006

Rows to repeat at top: https://support.offi...08-ffcc8b022409

Back to top

#3
trollerul_de_serviciu

Posted 27 January 2020 - 13:48

Guru Member

Grup: Senior Members
Posts: 10,987
Înscris: 23.03.2018

Eu nu prea inteleg problema.
200 de inregistrari originale
200 de tabele noi
Acelasi cap de tabel
Apoi..... ce urmeaza ?!
sa fie despartite printr-o linie goala .... cine ?
Cele 200 de inregistrari originale ?
Pai, si atunci, care e diferenta dintre cele 200 de tabele noi ?
si sa fie mai multe pe o pagina... asta e irelevant, se impart automat pe pagini.
Apoi, unde sa fie plasate cele 200 de tabele ?

Sau vrei un singur sheet, cu acelasi cap de tabel pe fiecare pagina, un rind gol, apoi cele 200 de inregistrari originale ?
In acest caz, cred ca rezolvarea e cea data de colegul Torrente

de mai sus.

Edited by trollerul_de_serviciu, 27 January 2020 - 13:48.

Back to top

#4
vdingo11

Posted 27 January 2020 - 13:55

Senior Member

Grup: Senior Members
Posts: 4,273
Înscris: 24.08.2005

Incerc mai clar: un tabel cu un cap de tabel si 200 de inregistrari.
Doresc sa fac 200 de tabele cu acelasi cap de tabel si o singura linie care este pe rand una din cele 200 de inregistrari
Aceste tabele sa fie separate intre ele cu un mic spatiu si sa fie in acelasi sheet sau document word.
Am atasat o imagine cu simularea: in stg. tabelul initial iar in dreapta cum trebuie sa arate documentul final.

Attached Files

justificare.png 12.5K 44 downloads

Edited by vdingo11, 27 January 2020 - 14:02.

Back to top

#5
trollerul_de_serviciu

Posted 27 January 2020 - 14:01

Guru Member

Grup: Senior Members
Posts: 10,987
Înscris: 23.03.2018

Cred ca se face simplu si cu VBA, nu e complicat.
Poate sa-ti faca cineva scriptul, tu doar sa modifici citeva variabile (celulele cu acp tabel si inregistrari).

Probabil se poate si cu formule standard Excel.... poate ceva mai complicat

Edited by trollerul_de_serviciu, 27 January 2020 - 14:02.

Back to top

#6
vdingo11

Posted 27 January 2020 - 14:12

Senior Member

Grup: Senior Members
Posts: 4,273
Înscris: 24.08.2005

Eu lucram foarte bine cu scrisorile din Word dar nu stiu cum sa fac sa nu genereze pagini diferite pentru fiecare tabel.

Back to top

#7
mopy

Posted 27 January 2020 - 14:13

Member

Grup: Members
Posts: 395
Înscris: 09.10.2006

Se poate face mail merge din inregistrarile excel catre un word [ https://www.youtube-nocookie.com/embed/yr0szWDBJYo?feature=oembed - Pentru incarcare in pagina (embed) Click aici ]

Edited by mopy, 27 January 2020 - 14:15.

Back to top

#8
vdingo11

Posted 27 January 2020 - 14:20

Senior Member

Grup: Senior Members
Posts: 4,273
Înscris: 24.08.2005

mopy, on 27 ianuarie 2020 - 14:13, said:

Se poate face mail merge din inregistrarile excel catre un word [ https://www.youtube-nocookie.com/embed/yr0szWDBJYo?feature=oembed - Pentru incarcare in pagina (embed) Click aici ]

Posibil sa iasa cum doresc cu Labels. O sa ma joc un pic la setari
Multumesc.

M-am jucat si este ok.
Nu am lucrat niciodata cu Labels.
Multumesc mult.

Edited by vdingo11, 27 January 2020 - 14:35.

Back to top

#9
kopilu_198

Posted 27 January 2020 - 14:42

Senior Member

Grup: Senior Members
Posts: 2,396
Înscris: 25.10.2008

desi nu e solutia pe care o vrei tu, vei avea 200 sheet-uri, poti incerca cu urmatorul macro"

Spoiler

Sub Splitdatabycol()
Dim lr As Long
Dim ws As Worksheet
Dim vcol, i As Integer
Dim icol As Long
Dim myarr As Variant
Dim title As String
Dim titlerow As Integer
Dim xTRg As Range
Dim xVRg As Range
Dim xWSTRg As Worksheet
On Error Resume Next
Set xTRg = Application.InputBox("Please select the header rows:", "Kutools for Excel", "", Type:=8)
If TypeName(xTRg) = "Nothing" Then Exit Sub
Set xVRg = Application.InputBox("Please select the column you want to split data based on:", "Kutools for Excel", "", Type:=8)
If TypeName(xVRg) = "Nothing" Then Exit Sub
vcol = xVRg.Column
Set ws = xTRg.Worksheet
lr = ws.Cells(ws.Rows.Count, vcol).End(xlUp).Row
title = xTRg.AddressLocal
titlerow = xTRg.Cells(1).Row
icol = ws.Columns.Count
ws.Cells(1, icol) = "Unique"
Application.DisplayAlerts = False
If Not Evaluate("=ISREF('xTRgWs_Sheet!A1')") Then
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = "xTRgWs_Sheet"
Else
Sheets("xTRgWs_Sheet").Delete
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = "xTRgWs_Sheet"
End If
Set xWSTRg = Sheets("xTRgWs_Sheet")
xTRg.Copy
xWSTRg.Paste Destination:=xWSTRg.Range("A1")
ws.Activate
For i = (titlerow + xTRg.Rows.Count) To lr
On Error Resume Next
If ws.Cells(i, vcol) <> "" And Application.WorksheetFunction.Match(ws.Cells(i, vcol), ws.Columns(icol), 0) = 0 Then
ws.Cells(ws.Rows.Count, icol).End(xlUp).Offset(1) = ws.Cells(i, vcol)
End If
Next
myarr = Application.WorksheetFunction.Transpose(ws.Columns(icol).SpecialCells(xlCellTypeConstants))
ws.Columns(icol).Clear
For i = 2 To UBound(myarr)
ws.Range(title).AutoFilter field:=vcol, Criteria1:=myarr(i) & ""
If Not Evaluate("=ISREF('" & myarr(i) & "'!A1)") Then
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = myarr(i) & ""
Else
Sheets(myarr(i) & "").Move after:=Worksheets(Worksheets.Count)
End If
xWSTRg.Range(title).Copy
Sheets(myarr(i) & "").Paste Destination:=Sheets(myarr(i) & "").Range("A1")
ws.Range("A" & (titlerow + xTRg.Rows.Count) & ":A" & lr).EntireRow.Copy Sheets(myarr(i) & "").Range("A" & (titlerow + xTRg.Rows.Count))
Sheets(myarr(i) & "").Columns.AutoFit
Next
xWSTRg.Delete
ws.AutoFilterMode = False
ws.Activate
Application.DisplayAlerts = True
End Sub

te intreaba care va fi capul de tabel si apoi coloana dupa care va face impartirea in sheet-uri.

dar nu pui tu un simplu filtru pe datele tale? nu vad la ce ar ajuta sa ai aceeasi informatie cum vrei tu, daca nu faci ceva cu ea, o introduci intr-un document, de ex

Edited by MarianG, 27 January 2020 - 15:03.
i spoil codes

Back to top

#10
X41Xu1

Posted 27 January 2020 - 14:49

Member

Grup: Members
Posts: 683
Înscris: 06.03.2015

Uită de VBA, Word și alte bazaconii care nu-și au locul aici.
Îți trebuie 2 formule:
- Prima, în F1: =A$1
- A doua, în F2: =OFFSET(A$1,(ROW()+1)/3,0)
Formatează cum vrei cele 2 celule (F1 și F2): ca în exemplul tău, F1 - Bold și F1:F2 all borders.
Selectează cele două celule și copiază-le două coloane la dreapta.
Selectează aria F1:H3 (astfel încît să conțină și un rînd liber.
Copiază selecția în jos (trage de colțul de jos dreapta)

Succes!

P.S.: Dacă folosești Office în limba română, înlocuiește virgulele cu punct și virgulă.

Back to top

#11
kopilu_198

Posted 27 January 2020 - 14:50

Senior Member

Grup: Senior Members
Posts: 2,396
Înscris: 25.10.2008

daca vrei sa folosesti datele intr-un word, asta te poate ajuta
[ https://www.youtube-nocookie.com/embed/RsmcydWRWWs?feature=oembed - Pentru incarcare in pagina (embed) Click aici ]

Back to top

#12
vdingo11

Posted 27 January 2020 - 15:19

Senior Member

Grup: Senior Members
Posts: 4,273
Înscris: 24.08.2005

kopilu_198, on 27 ianuarie 2020 - 14:42, said:

dar nu pui tu un simplu filtru pe datele tale? nu vad la ce ar ajuta sa ai aceeasi informatie cum vrei tu, daca nu faci ceva cu ea, o introduci intr-un document, de ex

Informatiile respective le imprim si le fac ca un fel de fluturasi dupa taiere

kopilu_198, on 27 ianuarie 2020 - 14:50, said:

daca vrei sa folosesti datele intr-un word, asta te poate ajuta
[ https://www.youtube-nocookie.com/embed/RsmcydWRWWs?feature=oembed - Pentru incarcare in pagina (embed) Click aici ]

de asta stiam dar nu ma ajuta deloc.

Back to top

#13
vdingo11

Posted 28 January 2020 - 11:30

Senior Member

Grup: Senior Members
Posts: 4,273
Înscris: 24.08.2005

Va mai deranjez cu o intrebare: am intr-o celula o formula de genul: =Fila1!D14 si in loc sa imi puna valoarea din celula D14 si Fila1 imi afiseaza textul =Fila1!D14
Ce este gresit de afiseaza textul formulei?

X41Xu1, on 27 ianuarie 2020 - 14:49, said:

Uită de VBA, Word și alte bazaconii care nu-și au locul aici.
Îți trebuie 2 formule:

Multumesc.
este perfec asa dar as mai avea nevoie de un sfat. Dupa ce pregatesc dupa cum ai spus mai sus ma intereseazaca acel rand gol sa fie mai inalt. Chiar daca il fac mai inalt cand copiez selectia in jos imi face tot inaltime normala. As putea sa formatez cumva ca acel rand nou sa fie automat mai inalt pentru toate cele 200 de inregistrari sa nu ma chinui manual?

Edited by vdingo11, 28 January 2020 - 11:43.

Back to top

#14
X41Xu1

Posted 29 January 2020 - 01:41

Member

Grup: Members
Posts: 683
Înscris: 06.03.2015

vdingo11, on 28 ianuarie 2020 - 11:30, said:

Va mai deranjez cu o intrebare: am intr-o celula o formula de genul: =Fila1!D14 si in loc sa imi puna valoarea din celula D14 si Fila1 imi afiseaza textul =Fila1!D14
Ce este gresit de afiseaza textul formulei?

Există două posibilități:

Cel mai probabil celula este este formatată ca Text. Schimbă formatul celulei în General sau ce este convenabil pentru tine.
Există și varianta în care ai schimbat modul de vizualizare. Apasă Ctrl ~ și vezi dacă se schimbă ceva.

vdingo11, on 28 ianuarie 2020 - 11:30, said:

Multumesc.
este perfec asa dar as mai avea nevoie de un sfat. Dupa ce pregatesc dupa cum ai spus mai sus ma intereseazaca acel rand gol sa fie mai inalt. Chiar daca il fac mai inalt cand copiez selectia in jos imi face tot inaltime normala. As putea sa formatez cumva ca acel rand nou sa fie automat mai inalt pentru toate cele 200 de inregistrari sa nu ma chinui manual?

O variantă simplă este să mărești fontul în celula F3, înainte de selectarea ariei F1:H3.
Succes!

Back to top

#15
vdingo11

Posted 29 January 2020 - 08:22

Senior Member

Grup: Senior Members
Posts: 4,273
Înscris: 24.08.2005

Multumesc de ajutor.

Back to top

Anunturi

Bun venit pe Forumul Softpedia!

Generare dintr-un tabel excel a n tabele cu acelasi antet

#1 vdingo11 Posted 27 January 2020 - 13:30

#2 mopy Posted 27 January 2020 - 13:41

#3 trollerul_de_serviciu Posted 27 January 2020 - 13:48

#4 vdingo11 Posted 27 January 2020 - 13:55

Attached Files

#5 trollerul_de_serviciu Posted 27 January 2020 - 14:01

#6 vdingo11 Posted 27 January 2020 - 14:12

#7 mopy Posted 27 January 2020 - 14:13

#8 vdingo11 Posted 27 January 2020 - 14:20

#9 kopilu_198 Posted 27 January 2020 - 14:42

#10 X41Xu1 Posted 27 January 2020 - 14:49

#11 kopilu_198 Posted 27 January 2020 - 14:50

#12 vdingo11 Posted 27 January 2020 - 15:19

#13 vdingo11 Posted 28 January 2020 - 11:30

#14 X41Xu1 Posted 29 January 2020 - 01:41

#15 vdingo11 Posted 29 January 2020 - 08:22

Anunturi

▶ 0 user(s) are reading this topic

Sign In

#1
vdingo11

Posted 27 January 2020 - 13:30

#2
mopy

Posted 27 January 2020 - 13:41

#3
trollerul_de_serviciu

Posted 27 January 2020 - 13:48

#4
vdingo11

Posted 27 January 2020 - 13:55

#5
trollerul_de_serviciu

Posted 27 January 2020 - 14:01

#6
vdingo11

Posted 27 January 2020 - 14:12

#7
mopy

Posted 27 January 2020 - 14:13

#8
vdingo11

Posted 27 January 2020 - 14:20

#9
kopilu_198

Posted 27 January 2020 - 14:42

#10
X41Xu1

Posted 27 January 2020 - 14:49

#11
kopilu_198

Posted 27 January 2020 - 14:50

#12
vdingo11

Posted 27 January 2020 - 15:19

#13
vdingo11

Posted 28 January 2020 - 11:30

#14
X41Xu1

Posted 29 January 2020 - 01:41

#15
vdingo11

Posted 29 January 2020 - 08:22