Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

obrnuti pivot?? jel moze

[es] :: Office :: Excel :: obrnuti pivot?? jel moze

[ Pregleda: 1625 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

maliradoznalac
radoznalac, okolina

Član broj: 215676
Poruke: 278
*.4.nat.stcable.net.



+10 Profil

icon obrnuti pivot?? jel moze31.08.2009. u 23:16 - pre 177 meseci
Imam tabelu u kojoj su podaci organizovani kao u pivot tabeli. Ustvari imam puno takvih tabela, jer da je jedna vec bi je prekucao :-)
Da li postoji nacin da od takve tabele napravim obicnu tabelu koja ima zaglavlje samo u prvom redu a da ne poblesavim prekucavajuci???
Prikačeni fajlovi
 
Odgovor na temu

timmy
Jovan Timotijevic

Moderator
Član broj: 37087
Poruke: 634

Sajt: www.e-tim.net


+89 Profil

icon Re: obrnuti pivot?? jel moze02.09.2009. u 14:01 - pre 177 meseci
Evo probaj sa sledecim kodom.

Najpre selektuj tvoju tabelu pa pozovi ovu proceduru a ona ce napraviti
listu vrednosti od kojih je ovaj izvestaj mogao kao pivot da nastane.

Podaci se kopiraju na Sheet2, a to bi moglo dalje da se podesava.

Code:

Private Sub RePivot()
Dim lRows As Long
Dim lCols As Long
Dim lr As Long
Dim lc As Long
Dim tbl As Range
Dim tm As Variant
Dim tl As Variant
Dim val As Variant

    Set tbl = ActiveCell.CurrentRegion
    lRows = tbl.Rows.Count
    lCols = tbl.Columns.Count
    
    If lorws = 1 Or lCols = 1 Then
        MsgBox "Selekcija mora biti veca!", vbCritical, "Greska"
    Else
        Sheets("Sheet2").Activate
        For lr = 2 To lRows
            For lc = 2 To lCols
                tm = tbl.Offset(0, lc - 1).Resize(1, 1).Value
                tl = tbl.Offset(lr - 1, 0).Resize(1, 1).Value
                val = tbl.Offset(lr - 1, lc - 1).Resize(1, 1).Value
                If val <> "" Then
                    ActiveCell.FormulaR1C1 = tl
                    ActiveCell.Offset(0, 1).Range("A1").Select
                    ActiveCell.FormulaR1C1 = tm
                    ActiveCell.Offset(0, 1).Range("A1").Select
                    ActiveCell.FormulaR1C1 = val
                    ActiveCell.Offset(1, -2).Range("A1").Select
                End If
            Next
        Next
    End If
End Sub



Pozdrav
 
Odgovor na temu

maliradoznalac
radoznalac, okolina

Član broj: 215676
Poruke: 278
*.dynamic.stcable.net.



+10 Profil

icon Re: obrnuti pivot?? jel moze02.09.2009. u 21:19 - pre 177 meseci
hvala za ovaj kod, ovo vredi bar dva piva :-)
 
Odgovor na temu

[es] :: Office :: Excel :: obrnuti pivot?? jel moze

[ Pregleda: 1625 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.