Macros - Crear una Tabla - Respuesta para Juan Carlos
Publicado por Antoni Masana (2539 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


0