All posts by joan

About joan

Joan Junyent Tarrida. Nascut a Torà el 22 de desembre del 1982 i resident la major part de temps a Barcelona. Aprenent d'economista i amant de les noves tecnologies però sobretot d'allò que es pot fer amb elles.

  • WWW: http://www.junyent.org/
  • Correu: joan@junyent.org

    • Galbraith esencial

    Posts, ,

    Aquesta és una entrada que tenia en esborrany des de fa força temps. Arrel de llegir el llibre Galbraith Esencial, publicat per Ed. Crítica em va semblar interessant escriure a la wikipedia alguns conceptes interessants aportats per Galbraith.

    Conceptes clau

    Canvi d’aspecte del blog

    Avisos de servei públic
    junyent.org 2006-2013

    Aspecte del blog junyent.org del 2006 al 2013.

    Feia temps que volia canviar l’aspecte del blog. El darrer disseny era del 2006 i ha aguantat molt bé el pas del temps però volia buscar alguna cosa més simple amb més protagonisme per al contingut. Finalment m’he decidit per al tema Twenty Thirteen, el que serà el proper tema per defecte de WordPress. He creat un child theme i en les properes setmanes n’aniré modificant alguns elements.

    Ilurion 04/05/2013 – Karl Marx (I)

    Aquest dissabte a Ilurion hem parlat de Marx i del marxisme. Aquí teniu l’audio i les meves notes de la secció.

    Marx és sense cap mena de dubte un dels personatge més influents, no ja del S.XIX, si no sobretot del S.XX. En el seu nom s’han fet gairebé totes les revoluions político-socials des de finals del S.XIX. I en el seu nom es dugueren a terme també barbaries com l’Stalinisme. I contra la seva doctrina s’han aixecat gairebé tots els moviments reaccionaris dels darrers 150 anys.

    Molts intenten culpar a Marx de la tragèdia de l’stalinisme i el fracàs de l’anomenat “socialisme real”. Fernández Buey fa en aquest punt una comparació interessant, “seria com si consideréssim a Jesús de Natzaret culpable de tots els crims que s’han comès en nom del cristianisme”.

    I és que, com digué Bertol Brecht, paradoxalment, “s’ha escrit tant de Marx que ha acabat essent un perfecte desconegut!”

    Des d’aquí, per tant animem a que tothom llegeixi els textos de Marx, per a poder coneixer-lo de primera mà.

    De totes maneres, si algú vol conèixer Marx sense llegir-lo directament, recomanem les obres de dos autors que ens han deixat recentment:

    • F. Fernández Buey; Marx (sin ismos), El Viejo Topo, 1998.
    • E. Hosbawm; Cómo cambiar el mundo, Marx y el marxismo 1840-2011, Crítica, 2011.

    És possible parlar de Marx sense parlar de marxisme? No només és possible si no que és altament necessari. Marx fou per damunt de tot un estudiós de la societat del seu temps, un estudiós i un crític del capitalisme. Quan el llegim ens adonem que moltes de les seves observacions continuen sent vàlides uns 150 anys després. Continue reading →

    Crear listas a partir de tablas (MS Excel)

    ClipBlog, Posts

    Con a siguiente macro podemos crear listas a partir de tablas en excel. Con estas listas podemos luego crear tablas dinámicas.


    Sub flat_table()

    ' Para crear listas a partir de tablas.
    ' Fuente: Macro for converting Crosstab data into a flat table
    ' http://www.ozgrid.com/forum/showthread.php?t=45511

    Dim wsData As Worksheet
    Dim wsNew As Worksheet
    Dim rngSrc As Range
    Dim rngDst As Range
    Dim LastCol As Long
    Dim LastRow As Long
    Dim LastRowDst As Long
    Dim I As Long

    Set wsData = Worksheets(ActiveSheet.Name)
    Set wsNew = Worksheets.Add

    LastRow = wsData.Range("A" & Rows.Count).End(xlUp).Row
    LastRowDst = 2
    LastCol = wsData.Range("IV1").End(xlToLeft).Column

    wsNew.Range("A1:C1") = Array("Fila", "Columna", "Valor")
    For I = 2 To LastRow
    Set rngSrc = wsData.Range("A" & I)
    Set rngDst = wsNew.Range("A" & LastRowDst)

    rngSrc.Copy rngDst.Resize(LastCol - 1)

    rngSrc.Offset(-(I - 1), 1).Resize(, LastCol - 1).Copy
    rngDst.Offset(0, 1).PasteSpecial Transpose:=True
    rngSrc.Offset(, 1).Resize(, LastCol - 1).Copy
    rngDst.Offset(0, 2).PasteSpecial Transpose:=True
    LastRowDst = LastRowDst + (LastCol - 1)
    Next I
    End Sub