PC Ekspert Forum - Pomoć - EXCEL macro za transponiranje

PC Ekspert Forum (https://forum.pcekspert.com/index.php)

- Web dizajn, programiranje i ostalo (https://forum.pcekspert.com/forumdisplay.php?f=39)

- - Pomoć - EXCEL macro za transponiranje (https://forum.pcekspert.com/showthread.php?t=221133)

Pomoć - EXCEL macro za transponiranje

Imam adrese u excelu u jednom stupcu, svaka je odvojena sa 2 prazna reda.

Trebao bih znači prebaciti redove u kojima je adresa u stupce.

Primjer:

Code:

RED1

RED2

RED3

RED4

Prazan red

Prazan red

RED1

RED2

RED3

RED4

RED5

RED6



A treba mi:

RED1 | RED2 | RED3 | RED4

RED1 | RED2 | RED3 | RED4 | RED5 | RED6

Ako netko može napravit macro, bio bih zahvalan :chears:

Ne treba ti makro za to. Iskoristi mogućnosti pivotiranja.

Možeš pokazat na primjeru?

Digni negdje na net svoj primjer i daj mi link na PM, ap ću se pozabavit s time.

EDIT:
Ako imaš fiksan broj redova za svaku adresu (tipa 7) uključujući prazne redove, možeš iskoristiti ovaj makro:

Citiraj:

Sub test()
Dim j As Integer
j = 10
x = WorksheetFunction.CountA(Range("A:A")) / j
For i = 1 To x
Cells(i, 2).Resize(, j) = Application.Transpose(Cells((i - 1) * j + 1, 1).Resize(j))
Next i
End Sub

Samo upiši željeni broj redova kao varijablu j (ovdje je broj 10).
Primjer (sa brojem 10):
http://img98.imageshack.us/img98/903...7145251.th.jpg

Samo ne znam kako se ponaša sa praznim redovima. Poigraj se malo. MOžeš i za x upisati ukupni broj redova ili iskoristiti drugu funkciju, uglavnom poigraj se malo.

Redovi adresa nisu fiksni (variraju 3-6) jedino što se ne mijenja je razmak (2 prazna reda).

EDIT: poslao sam ti link na PM. Tnx

Evo ti rješenje.
Malo dotjeraj i to je to :D
http://jumbo.iskon.hr/dl/1fqvh11k6j0jv8r2/