Excel - Macros - Crear una Tabla - Respuesta para Juan Carlos

   
Vista:
Imágen de perfil de Antoni Masana

Macros - Crear una Tabla - Respuesta para Juan Carlos

Publicado por Antoni Masana (264 intervenciones) el 10/06/2015 12:37:04
Pon esta macro y llenaras la tabla

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
Sub Llenar_Tabla()
    Lin_Orig = 2
    While Sheets("Resultados").Cells(Lin_Orig, 1) <> ""
       c_Local = Sheets("Resultados").Cells(Lin_Orig, 1)
       c_Visit = Sheets("Resultados").Cells(Lin_Orig, 2)
       c_Datos = Sheets("Resultados").Cells(Lin_Orig, 3)
 
       Lin_Posi = 0: Lin_Dest = 2
       Col_Posi = 0: Col_Dest = 2
 
       While Lin_Dest > 1 And Sheets("Tabla").Cells(Lin_Dest, 1) <> ""
          If c_Local = Sheets("Tabla").Cells(Lin_Dest, 1) Then
             Lin_Posi = Lin_Dest
             Lin_Dest = 1
          Else
             Lin_Dest = Lin_Dest + 1
          End If
       Wend
 
       While Col_Dest > 1 And Sheets("Tabla").Cells(1, Col_Dest) <> ""
          If c_Visit = Sheets("Tabla").Cells(1, Col_Dest) Then
             Col_Posi = Col_Dest
             Col_Dest = 1
          Else
             Col_Dest = Col_Dest + 1
          End If
       Wend
 
       If Lin_Posi > 0 And Col_Posi > 0 Then
          Sheets("Tabla").Cells(Lin_Posi, Col_Posi) = c_Datos
       End If
 
       Lin_Orig = Lin_Orig + 1
    Wend
    MsgBox "Tabla actualizada"
End Sub
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