Excel - Relacion Columnas para Reporte de hrs

   
Vista:
Imágen de perfil de miguel

Relacion Columnas para Reporte de hrs

Publicado por miguel (20 intervenciones) el 27/09/2017 22:29:59
que tal amigos, soy programador jr pero nunca he usado macros y no se si pueda relacionar dos columnas por ejemplo tengo una tabla en excel que contiene 'nombre','actividad' y 'hrs' y lo que quiero hacer es un macro que al momento que escriba no se Erick me aparescan un total de hrs y cuales activdades realizo pero no tengo idea de como hacerlo en excel yo lo haria en java pero ellos afuerza lo quieren en excel jaja de ante mano mcuhas gracias por sus ideas Saludos!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Andres Leonardo

Relacion Columnas para Reporte de hrs

Publicado por Andres Leonardo (927 intervenciones) el 28/09/2017 00:34:04
Lo mejor que podrias hacer es crear un reporte y hacer una tabla dinamica

te adjunto un print Ejemplo




TablaDinamicaHoras
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
Imágen de perfil de miguel

Relacion Columnas para Reporte de hrs

Publicado por miguel (20 intervenciones) el 28/09/2017 13:36:21
Perfecto es lo que busco muchas gracias ahora tengo que programarlo :/ jaja!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres Leonardo

Relacion Columnas para Reporte de hrs

Publicado por Andres Leonardo (927 intervenciones) el 28/09/2017 15:40:43
graba la macro de crear la tabla dinamica y la invocas y listo

que bueno que te haya servido.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
Imágen de perfil de miguel

Relacion Columnas para Reporte de hrs

Publicado por miguel (20 intervenciones) el 28/09/2017 17:12:37
Que tal Andres te platico, En mi trabajo tienen una app que exporta CSV que contiene info para hacer reportes semanales yo necesito importarla (macro que ya hice) y luego generar la tabla dinamica con otro macro pero como la BD ira creciendo semana a semana necesito un macro que identifique cuantos campos tiene para que no queden datos fuera del rango y con el macro configurar los reportes de la tabla justo como el Screen que dejaste arriva! .........ahora no se si se puede realizar tengo muy poca experiencia en esto :/ jaja

ese es mi macro para Importar el CSV con un boton (me cuesta mucho entender el lenguaje xD)

igual le sirve a alguien este macrillo :P

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Sub import()
 
 Dim t As Single
    t = Timer
    Sheets("Hoja1").Cells.ClearContents
    strFile = Application.GetOpenFilename("CSV, *.csv")
        If strFile = Empty Then
           Response = MsgBox("Ningún fichero seleccionado", _
           vbOKOnly, "Error")
        Exit Sub
        Else
        End If
 
    With Sheets("Hoja1").QueryTables.Add(Connection:= _
        "TEXT;" & strFile _
        , Destination:=Sheets("Hoja1").Range("$A$1"))
        .Name = "fichero"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 850
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False 'CSV: punto y coma
        .TextFileCommaDelimiter = True
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1) '5 columnas
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
 MsgBox "Importado con exito"
 
 
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres Leonardo

Relacion Columnas para Reporte de hrs

Publicado por Andres Leonardo (927 intervenciones) el 28/09/2017 19:24:44
solo deberias leer la hoja 1 y ver cuantos registros tienes y luego solo aplicas lo grabado de la tabla dinamica y te funcionaria Listo

deja ver si te subo el ejemplo que hice ... luego de eso solo seria identificar el rango y listo....

estoy desde el movul deja que llegue a la maquina
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de miguel

Relacion Columnas para Reporte de hrs

Publicado por miguel (20 intervenciones) el 28/09/2017 21:11:44
Este macro lo utilizo para seleccionar el rango actualmente utilizado y luego aplico el grabado de la tabla dinamica con el asistente

1
2
3
4
Sub SelccionarRangoUtilizado()
'Selecciona el rango de datos utilizado en la hoja
    ActiveSheet.UsedRange.Select
End Sub

Pero cuando importe el archivo CSV con mas datos el macro me traia la misma tabla que grabo el asistente osea no actualiza o no toma todos los datos que importo, como si solo desplegara una tabla dinamica guardada :'(


Ah y Gracias por tu tiempo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Revisar política de publicidad