No jala los datos de la hoja
Hola!!!
Quisiera que me pudieran ayudar nuevamente. El problema que tengo es el siguiente.
En la siguiente tabla de datos que se encuentra en la hoja denominada "Cuadricula" , en vez de que salgan ceros tienen que salir datos jalados de otras hojas de excel y no me sale ni los datos ni su totales. Quisiera que me pudieran ayudar
N Empleados Integro. Liquid. Dto. S.S. I.R.P.F.
CTRL - INS - CCIAL - CCIAL 3 0.00 0.00 0.00 0.00
CTRL - INS - CCIAL - OF 4 0.00 0.00 0.00 0.00
CTRL - INS - CCIAL - OTR 2 0.00 0.00 0.00 0.00
CTRL - INS - CCIAL - LOG 4 0.00 0.00 0.00 0.00
CTRL - INS - CCIAL - DTR 1 0.00 0.00 0.00 0.00
TOTAL SERV. CENTRALES 14 0.00 0.00 0.00 0.00
AV - INS - CCIAL - CCIAL 2 0.00 0.00 0.00 0.00
AV - LIB - CCIAL - DEP 3 0.00 0.00 0.00 0.00
AV - LIB - CCIAL - DTR 1 0.00 0.00 0.00 0.00
AV - LIB - CCIAL - LOG 2 0.00 0.00 0.00 0.00
TOTAL A CORUΡA 8 0.00 0.00 0.00 0.00
y asi sucesivamenteee.......
Aqui les pongo el codigo de la macro es bastante largo y en verdad espero que me puedan ayudar!!!! Y poder saber donde se tiene que modificar para que salgan datos.
Si necesitan el excel donde se encuentra la BD se las puedo proporcionar.... Muchas gracias por tu ayudaa!!!
---------------------------------------------------------------------------------------------------------------------------
Sub BarreProfesActivos(clave, Nombre, Indice, NumHoja As Worksheet)
IndiceInic = Indice
For i = 1 To BuscaFinal(Hoja1)
If Left(Hoja2.Range("A" & i), 2) = clave Then
NumHoja.Range("A" & Indice).Value = Hoja2.Range("A" & i).Value
NumHoja.Range("B" & Indice).FormulaLocal = "=CONTAR.SI('Tabla Datos'!C:C;A" & Indice & ")"
NumHoja.Range("C" & Indice).FormulaLocal = "=SUMAR.SI('Tabla Datos'!C:C;A" & Indice & ";'Tabla Datos'!E:E)"
NumHoja.Range("D" & Indice).FormulaLocal = "=SUMAR.SI('Tabla Datos'!C:C;A" & Indice & ";'Tabla Datos'!F:F)"
NumHoja.Range("E" & Indice).FormulaLocal = "=SUMAR.SI('Tabla Datos'!C:C;A" & Indice & ";'Tabla Datos'!G:G)"
NumHoja.Range("F" & Indice).FormulaLocal = "=SUMAR.SI('Tabla Datos'!C:C;A" & Indice & ";'Tabla Datos'!H:H)"
NumHoja.Range("G" & Indice).FormulaLocal = "=SUMAR.SI('Tabla Datos'!C:C;A" & Indice & ";'Tabla Datos'!I:I)"
Indice = Indice + 1
End If
Next i
'Poner el formato
Indice = Indice - 1
With NumHoja.Range("A" & Indice)
'.Value = "TOTAL " & Nombre
.Font.Size = 10
.Font.Bold = True
.Font.Italic = True
.HorizontalAlignment = xlRight
End With
With NumHoja.Range("B" & Indice)
'.FormulaLocal = "=SUMA(B" & IndiceInic & ":B" & Indice - 1 & ")"
.Font.Bold = True
'.Font.Italic = True
End With
With NumHoja.Range("C" & Indice)
'.FormulaLocal = "=SUMA(C" & IndiceInic & ":C" & Indice - 1 & ")"
.Font.Bold = True
'.Font.Italic = True
End With
With NumHoja.Range("D" & Indice)
'.FormulaLocal = "=SUMA(D" & IndiceInic & ":D" & Indice - 1 & ")"
.Font.Bold = True
'.Font.Italic = True
End With
With NumHoja.Range("E" & Indice)
'.FormulaLocal = "=SUMA(E" & IndiceInic & ":E" & Indice - 1 & ")"
.Font.Bold = True
'.Font.Italic = True
End With
With NumHoja.Range("F" & Indice)
'.FormulaLocal = "=SUMA(F" & IndiceInic & ":F" & Indice - 1 & ")"
.Font.Bold = True
'.Font.Italic = True
End With
With NumHoja.Range("G" & Indice)
'.FormulaLocal = "=SUMA(G" & IndiceInic & ":G" & Indice - 1 & ")"
.Font.Bold = True
'.Font.Italic = True
End With
Indice = Indice + 1
'poner los activos
With NumHoja.Range("A" & Indice)
.Value = "Activos"
.Font.Size = 10
.Font.Bold = True
.Font.Italic = True
.HorizontalAlignment = xlRight
End With
With NumHoja.Range("B" & Indice)
.FormulaLocal = "=CONTAR.SI(DESREF('Tabla Datos'!C:C;COINCIDIR(A" & Indice - 1 & ";'Tabla Datos'!C:C;0)-1;6;COINCIDIR(A" & Indice - 1 & ";'Tabla Datos'!C:C;1)-COINCIDIR(A" & Indice - 1 & ";'Tabla Datos'!C:C;0)+1;1);""<>0"")"
.Font.Bold = True
.Font.Italic = True
End With
Indice = Indice + 1
End Sub
Function BuscaActivos(Nombre)
cuenta = 0
For i = 1 To BuscaFinal(Hoja2)
If Hoja2.Range("C" & i).Value = Nombre And Hoja2.Range("I" & i).Value <> 0 Then cuenta = cuenta + 1 Else
Next i
BuscaActivos = cuenta
End Function
Sub BarreEmpresa(clave1, clave2, Nombre, Indice, NumHoja As Worksheet)
IndiceInic = Indice
For i = 1 To BuscaFinal(Hoja1)
If (Left(Hoja2.Range("A" & i), 2) = clave1) Or (Left(Hoja2.Range("A" & i), 2) = clave2) Then
NumHoja.Range("A" & Indice).Value = Hoja2.Range("A" & i).Value
NumHoja.Range("B" & Indice).FormulaLocal = "=CONTAR.SI('Tabla Datos'!A:A;A" & Indice & ")"
NumHoja.Range("C" & Indice).FormulaLocal = "=SUMAR.SI('Tabla Datos'!C:C;A" & Indice & ";'Tabla Datos'!D:D)"
NumHoja.Range("D" & Indice).FormulaLocal = "=SUMAR.SI('Tabla Datos'!C:C;A" & Indice & ";'Tabla Datos'!E:E)"
NumHoja.Range("E" & Indice).FormulaLocal = "=SUMAR.SI('Tabla Datos'!C:C;A" & Indice & ";'Tabla Datos'!F:F)"
' NumHoja.Range("F" & Indice).FormulaLocal = "=SUMAR.SI('Tabla Datos'!C:C;A" & Indice & ";'Tabla Datos'!H:H)"
' NumHoja.Range("G" & Indice).FormulaLocal = "=SUMAR.SI('Tabla Datos'!C:C;A" & Indice & ";'Tabla Datos'!I:I)"
Indice = Indice + 1
End If
Next i
'Resumen
With NumHoja.Range("A" & Indice)
.Value = "TOTAL " & Nombre
.Font.Size = 10
.Font.Bold = True
.Font.Italic = True
.HorizontalAlignment = xlRight
End With
With NumHoja.Range("B" & Indice)
.FormulaLocal = "=SUMA(B" & IndiceInic & ":B" & Indice - 1 & ")"
.Font.Bold = True
'.Font.Italic = True
End With
With NumHoja.Range("C" & Indice)
.FormulaLocal = "=SUMA(C" & IndiceInic & ":C" & Indice - 1 & ")"
.Font.Bold = True
'.Font.Italic = True
End With
With NumHoja.Range("D" & Indice)
.FormulaLocal = "=SUMA(D" & IndiceInic & ":D" & Indice - 1 & ")"
.Font.Bold = True
'.Font.Italic = True
End With
With NumHoja.Range("E" & Indice)
.FormulaLocal = "=SUMA(E" & IndiceInic & ":E" & Indice - 1 & ")"
.Font.Bold = True
'.Font.Italic = True
End With
' With NumHoja.Range("F" & Indice)
' .FormulaLocal = "=SUMA(F" & IndiceInic & ":F" & Indice - 1 & ")"
' .Font.Bold = True
' '.Font.Italic = True
' End With
' With NumHoja.Range("G" & Indice)
' .FormulaLocal = "=SUMA(G" & IndiceInic & ":G" & Indice - 1 & ")"
' .Font.Bold = True
' '.Font.Italic = True
' End With
Indice = Indice + 1
End Sub
Crear cuenta