Macro que se da error

Hola, buenos días, recurro a ti como siempre porque me agrada que respondes pronto y certero.
Hoy tengo el siguiente problema, la macro que a continuación te detallo da error al tratar de ejecutar la instrucción Range("K2"). Select.
Me podrías ayudar a que la ejecute. Gracias
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Sheets("ENTRADA").Select
Range("K2").Select
ActiveCell.FormulaR1C1 = "SI"
Range("origen").Select
    For i = 1 To 35
    valor = ActiveCell
    veces = ActiveCell.Offset(1, 0)
        For j = 1 To veces
            If Range("inicio") = "" Then
               Range("inicio") = valor
            Else
               Range("m5000").End(xlUp).Offset(1, 0).Select
               ActiveCell = valor
            End If
        Next
        Range("origen").Offset(2, 0).Select
        ActiveCell.Name = "origen"
    Next
    Range("G12").Select
    ActiveCell.Name = "origen"
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
End Sub

1 respuesta

Respuesta
1
El botón lo has dibujado en otra hoja y te da "Error en el método Select de la clase Range" no se puede seleccionar así hay que hacerlo de esta forma:
Primero aunque tu le has cambiado el nombre a la hoja Excel las nombra como Hoja1, 2,3,4... pues tienes que ver que hoja es la que tu llamas ENTRADA, vamos a suponer que es la 4 pues el código quedaría así:
Sheets("Hoja4").select
ActiveSheet.[k2].Select
Y ya lo tienes.
>Un saludo
>Julio
Gracias por tu respuesta pero disculpa mi ignorancia, como le hago para saber que número de hoja es la que yo llamo "entrada' si ya la renombre?
Saludos
Pues pulsas encima de la etiqueta ENTRADA con el botón derecho y eliges ver código te aparecerá el editor de VBA y tendrás marcada la hoja con el nombre de Excel y el que tu le has dado.
>Un saludo
>Julio
Hola, al parecer la hoja es la hoja9 lo saque parándome sobre el nombre de la hoja 'entrada' y preionando el botón derecho, seleccionando la opción 'ver código'.
Ahora el error dice
Error 9
'subíndice fuera del intervalo'
¿Qué otra cosa podrá ser?
Gracias
Comprueba que el código lo has puesto bien:
Sheets("Hoja9").select
ActiveSheet.[k2].Select
Prueba y me dices
>Un saludo
>Julio
Qué pena contigo pero sigue saliendo el error.
Tedejo la instrucción completa por si acaso.
Gracias mil
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Sheets("Hoja9").Select
ActiveSheet.[K2].Select
ActiveCell.FormulaR1C1 = "SI"
Sheets("Hoja4").Select
Range("origen").Select
    For i = 1 To 35
    valor = ActiveCell
    veces = ActiveCell.Offset(1, 0)
        For j = 1 To veces
            If Range("inicio") = "" Then
               Range("inicio") = valor
            Else
               Range("m5000").End(xlUp).Offset(1, 0).Select
               ActiveCell = valor
            End If
        Next
        Range("origen").Offset(2, 0).Select
        ActiveCell.Name = "origen"
    Next
    Range("G12").Select
    ActiveCell.Name = "origen"
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
End Sub
Es que no has seguido las instrucciones que te he puesto no solo sirve para seleccionar una celda también los nombres de rangos, tu tienes esto:
Sheets("Hoja4").Select
Range("origen").Select
Y deberías de tener esto:
Sheets("Hoja4").Select
ActiveSheet.Range("origen").Select
Tenías que decirme donde te daba el eroor no que volvía a darlo me estabas volviendo loco hasta que no me has enviado la macro. Cuando te da un error pulsas en depurar y la linea que da el error te la maarca en amarillo si no es la que te había dicho debías decirme o haberte dado cuenta tu de que era en otra linea.
>Un saludo
>Julio
PD: corrige todas las lineas que tienes mal.
La macro sin esto
Sheets("Hoja9").Select
ActiveSheet.[K2].Select
ActiveCell.FormulaR1C1 = "SI"
Sheets("Hoja4"). Select
Funciona perfecto, solo quiero que vaya a la hoja entrada celda k2 y escriba 'si' luego resgrese. ¿Me entiendes?
Saludos
Vale, pues ya te he dicho como:
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Sheets("Hoja9").Select
ActiveSheet.[K2].Select
ActiveCell.Value= "SI"
Sheets("Hoja4").Select
ActiveSheet.Range("origen").Select
    For i = 1 To 35
    valor = ActiveCell
    veces = ActiveCell.Offset(1, 0)
        For j = 1 To veces
            If Range("inicio") = "" Then
               Range("inicio") = valor
            Else
               Range("m5000").End(xlUp).Offset(1, 0).Select
               ActiveCell = valor
            End If
        Next
        Range("origen").Offset(2, 0).Select
        ActiveCell.Name = "origen"
    Next
    Range("G12").Select
    ActiveCell.Name = "origen"
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
End Sub
Prueba ahora, las dos ultimas lineas te sobran no tienen ningún código.
>Un saludo
>Julio
Debes de finalizar y puntuar la consulta, si no en sucesivas ocasiones No se tendrán en cuenta tus consultas y se descartaran.
Qué pena !
Creí que ya lo había hecho.
Has sido muy pero muy amable.
Nuevamente te ofrezco mis disculpas por no haber cerrado el tema anteriormente.
Saludos

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Macro Excel Buscar Hoja y copiar datos en otra Hoja de mi Libro Excel.

Necesito una Macro Excel de modo que me permite buscar una Hoja determinada dentro de un Libro y copiar los datos de una Rango de la misma a otra Hoja que yo le diga. En este caso sería necesario habilitar un espacio en la Hoja4 en el que indicando...
1 respuesta

Macro que copia celdas sin repetir los datos copiados

Hará cosa de dos meses os consultaba una duda sobre una macro que me copiase celdas de una hoja a otra en determinadas columnas (la pregunta era: "Crear macro que copie celdas si cumplen una condición".) Me funcionó a la perfección, pero usándola me...
1 respuesta

Copiar rango de celdas a partir de la celda activa a otra hoja del mismo libro

Tengo un rango de celdas que contienen formulas que llenan la información de las celdas. Necesito copiar de este rango de celdas solo los valores de las celdas que se hayan poblado con información congruente o interesante. Para esto la columna A...
1 respuesta

Ocultar filas con celdas vacías

No he programado en mi vida una Macro, así que os cuento lo que necesito y lo que he utilizado "de oídas" buscando por internet. Tengo un Libro con distintas Hojas vinculadas y en una de ellas quiero ocultar las filas (desde la 52 hasta la 71) en las...
2 respuestas

Macro para calcular consumos mensuales y promedio en Excel 2003

Estoy trabajando en una planilla de Excel 2003 donde se registran las salidas de elementos (Salidas.xls) en ella figura el código, la fecha, el cliente, y por ultimo la cantidad solicitada. También arme otra planilla (ConsumoAnual.xls) en ella se...
1 respuesta

Copiar rango de celdas de una hoja a otra de acuerdo a condicional

A ver si pueden brindarme una ayuda. He desarrollado una macro que inserta un rango de celdas desde una hoja (01) a otra (02) Asi: Sub CopiarRangoActual() Sheets("01").Select Range("A1").CurrentRegion.Copy Sheets("02").Select...
2 respuestas

Eliminar filas de varias hojas a la vez

Me gustaría eliminar filas de varias hojas, cuyo rango de celdas contengan determinadas palabras y que se insertaran las filas eliminadas en otra hoja nueva llamada "HOJA DEFINITIVA". Las palabras en cuestión son: "obras completas" (las dos palabras...
1 respuesta

Realizar reportes en excel

De nuevo por aca estoy solicitando de su valiosa ayuda. Tengo una hoja llamada registros, en donde en b9(fecha); c9(articulo);c10(entradas) d10(salidas). Tengo un formulario llamado reportes en donde deseo ingresar el nombre del articulo y que me...
1 respuesta

Combobox sin repetir dato y con celdas vacías

Espero logres ayudarme si te es posible con esta duda, veras tengo un userform con 2 combobox uno para mostrarme las hojas de calculo y otro para mostrarme lo valores de las celdas de la columna "B" a partir del B3 sin repetir los valores..: ....
1 respuesta

Posición de celdas con un texto

Tenía esta macro desarrollada para que me informe la posición de las celdas en las que contiene un texto buscado: Sub buscar_cosas() On Error Resume Next Application.ScreenUpdating = False Range("J:K").Clear 'Esto debería ser variable... (sólo sirve...
1 respuesta