Busqueda en varias hojas de un libro.

Solo consultas sobre macros y código VBA Excel.
Reglas del Foro
1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!
Responder
Montidevil
Miembro Nuevo
Miembro Nuevo
Mensajes: 1
Registrado: 13 Jun 2019 05:18

Busqueda en varias hojas de un libro.

Mensaje por Montidevil » 13 Jun 2019 05:25

Buenos dias.
Tengo una macro con un For, para hacer busquedas.

Sub Busqueda1()

Dim kg As Double
Dim kg1 As Double
Dim med As Integer
Dim med_ As Integer
Dim med_1 As Integer
Dim inc As Integer
Dim inc1 As Integer
Dim med1 As Integer
Dim fil As Integer
Dim fil1 As Integer
Dim i As Integer


For i = 5 To 320

If Sheets("Hoja1").Cells(i, "F").Value = Sheets("Hoja3").Cells(8, "E") And Sheets("Hoja1").Cells(i, "I").Value >= 0 Then
kg = kg + Sheets("Hoja1").Cells(ind, "H").Value
med_ = med_ + Sheets("Hoja1").Cells(ind, "I").Value
inc = inc + 1
End If

If Sheets("Hoja2").Cells(i, "F").Value = Sheets("Hoja3").Cells(8, "E") And Sheets("Hoja2").Cells(i, "I").Value >= 0 Then
kg1 = kg1 + Sheets("Hoja2").Cells(i, "H").Value
med_1 = med_1 + Sheets("Hoja2").Cells(i, "I").Value
inc1 = inc1 + 1
End If
Next
Sheets("Hoja3").Cells(4, "C").Value = inc
Sheets("Hoja3").Cells(5, "C").Value = inc1
Sheets("Hoja3").Cells(4, "D").Value = med_ / inc
Sheets("Hoja3").Cells(5, "D").Value = med_1 / inc1
Sheets("Hoja3").Cells(4, "E").Value = kg
Sheets("Hoja3").Cells(5, "E").Value = kg1
End Sub

Me esta dando un error 9, subindice fuera del intervalo.

Esta misma macro solo con un if y dentro de la misma hoja me funciona perfecta.
Sub Consulta()
Dim ind As Integer
Dim in2 As Integer
Dim cod As String
Dim kg As Integer
Dim k2 As Double


in2 = 0
Sheets("Villalar20182").Cells(2, "I").Value = 0
Sheets("Villalar20182").Cells(3, "I").Value = 0
Sheets("Villalar20182").Cells(1, "K").Value = 0

For ind = 5 To 999
If Sheets("Villalar20182").Cells(ind, "F").Value = Sheets("Villalar20182").Cells(1, "I") And Sheets("Villalar20182").Cells(ind, "I").Value >= 0 Then
kg = kg + Sheets("Villalar20182").Cells(ind, "i").Value
in2 = in2 + 1
k2 = k2 + Sheets("Villalar20182").Cells(ind, "H").Value

End If
Next
Sheets("Villalar20182").Cells(2, "I").Value = kg / in2
Sheets("Villalar20182").Cells(3, "I").Value = in2
Sheets("Villalar20182").Cells(1, "K").Value = k2
End Sub

Puede ser el fallo al llamar a otras hojas del libro?
De macros me hago 4 cosas, soy hombre de autómatas.
Gracias a todos de antemano.
Un saludo.



Avatar de Usuario
Antoni
Miembro Frecuente
Miembro Frecuente
Mensajes: 6353
Registrado: 22 Dic 2009 04:58
Ubicación: GALICIA (ESPAÑA)

Re: Busqueda en varias hojas de un libro.

Mensaje por Antoni » 13 Jun 2019 06:49

Revisa el nombre de las hojas, no coinciden en los ejemplos que has puesto.



Responder