Tengo un problema muy urgente con una búsqueda de VB
Amigo necesito tu respuesta de inmediato tengo una macro de búsqueda que siempre me marca error 424 pero ya tiene todos los objetos que necesita, mi deseo es que busque en un campo ubicado en la columna B de excel, incluyo la macro.
Sub Busqueda()
Dim nLinD As Long
Dim nCol As Long
Dim nLin As Long
Dim Grupo As String
nLinD = 6
nLin = 6
Grupo = InputBox("Ingrese el grupo a buscar")
If Grupo = "" Then Exit Sub
While ActiveSheet.Cells(nLinD, 1) <> ""
If ActiveSheet.Cells(nLinD, 2) = Grupo Then
For nCol = 1 To 454
ActiveWorkbook.ActiveSheet.Cells(nLinD, nCol) = Sheet.Add.After.Cells(nLin, nCol)
ActiveWorkbook.Sheets.Add After:=Worksheets(Worksheet.Count)
Next nCol
nLin = nLin + 1
End If
nLinD = nLinD + 1
Wend
End Sub
El error me lo marca en las lineas en negritas, gracias de ante mano por tu ayuda
Sub Busqueda()
Dim nLinD As Long
Dim nCol As Long
Dim nLin As Long
Dim Grupo As String
nLinD = 6
nLin = 6
Grupo = InputBox("Ingrese el grupo a buscar")
If Grupo = "" Then Exit Sub
While ActiveSheet.Cells(nLinD, 1) <> ""
If ActiveSheet.Cells(nLinD, 2) = Grupo Then
For nCol = 1 To 454
ActiveWorkbook.ActiveSheet.Cells(nLinD, nCol) = Sheet.Add.After.Cells(nLin, nCol)
ActiveWorkbook.Sheets.Add After:=Worksheets(Worksheet.Count)
Next nCol
nLin = nLin + 1
End If
nLinD = nLinD + 1
Wend
End Sub
El error me lo marca en las lineas en negritas, gracias de ante mano por tu ayuda
Respuesta de José Saúl Méndez Alonso
1
No entiendo muy bien cual es el propósito de esta linea
ActiveWorkbook.ActiveSheet.Cells(nLinD, nCol) = Sheet.Add.After.Cells(nLin, nCol)
Pero lo que te puedo comentar es que la segunda línea te provoca un error porque estas intentando añadir una hoja nueva después de la última hoja (Error en el modelo de objetos de Office)
ActiveWorkbook.Sheets.Add After:=Worksheets(Worksheet.Count)
En su lugar puedes usar el siguiente código para evitar el error, el resultado es el mismo pero requiere de dos pasos
Application.ScreenUpdating = False 'Congela la pantalla
Worksheets.Add
ActiveSheet.Move After:=Sheets(ActiveWorkbook.Sheets.Count)
Application.ScreenUpdating = True'Refresca la pantalla
Respecto a la primera línea no existe una colección u objeto llamado Sheet por eso te marca el error 424 si me explicas cual es el propósito de esa línea te podré ayudar más.
ActiveWorkbook.ActiveSheet.Cells(nLinD, nCol) = Sheet.Add.After.Cells(nLin, nCol)
Pero lo que te puedo comentar es que la segunda línea te provoca un error porque estas intentando añadir una hoja nueva después de la última hoja (Error en el modelo de objetos de Office)
ActiveWorkbook.Sheets.Add After:=Worksheets(Worksheet.Count)
En su lugar puedes usar el siguiente código para evitar el error, el resultado es el mismo pero requiere de dos pasos
Application.ScreenUpdating = False 'Congela la pantalla
Worksheets.Add
ActiveSheet.Move After:=Sheets(ActiveWorkbook.Sheets.Count)
Application.ScreenUpdating = True'Refresca la pantalla
Respecto a la primera línea no existe una colección u objeto llamado Sheet por eso te marca el error 424 si me explicas cual es el propósito de esa línea te podré ayudar más.
