Ayuda Urgente!! Fallo en el código.

[Deivid]

Hola amigos. Tengo esta macro pero me da error 1004 en esta línea de código:
Worksheets("CHECKHORNO").Cells(endrow, i).select


Acá va el código entero:
Sub ProtectEntireRow()
Dim i as integer
Dim endrow as long
Dim startcolumn as long

Endrow =range("c16").End(xldown).select

startcolumn =3
For i=startcolumn to 38
Worksheets("CHECKHORNO").Celos(endrow, i).select -->> Aquí esta el fallo.
Selección.locked=true
NeXT i
Ene Sub
Un saludo y gracias de antemano

 

[Marcelo Branco]

Hola,

Prueba esta

Sub ProtectEntireRow()
    Dim i As Integer
    Dim endrow As Long
    Dim startcolumn As Long
 
    endrow = Range("c16").End(xlDown).Row
    startcolumn = 3
    For i = startcolumn To 38
        Worksheets("CHECKHORNO").Cells(endrow, i).Locked = True
    Next i
End Sub

espero que ayude

M.

 

[mjrofra]

Hola,

no sé si te esté entendiendo bien, pero a lo mejo no necesitas un bucle para hace lo que quieres.

¿Algo así quizás?

Sub ProtectEntireRow()
    
    Sheets("CHECKHORNO").Range("c16").End(xlDown).Resize(, 36).Locked = True
    
End Sub

 

[MgaNic]

Hola Deivid; No se si he captado bien la idea que deseas desarrollar ahí te dejo una solución de lo que creo interpretar:

Sub ProtectEntireRow()

Dim Endrow As Long
ActiveSheet.Unprotect
Range("c3").Select
Endrow = Range(Selection, Selection.End(xlDown)).Select
Endrow = Range(Selection, Selection.End(xlToRight)).Select
ActiveSheet.Protect
[a1].Activate

End Sub

Saludes y Bendiciones

 

[MgaNic]

Estimado connect iphone:

No se si he comprendido bien tu intención:

Utilizar los valores de un rango de celdas para mover el cursor y/o establecer valores en c/u de ellas.
En tu código tienes varios errores por los que no te funcionaría.
He aquí a como lo comprendí. He puesto valores a partir de la línea 16 de la columna "A", iniciando en 3 y terminando
en 38 que es el ciclo for que deseas implementar erroneamente.

Sub ProtectEntireRow() ' *** INICIO ***
Cells.ClearFormats 'Borro negritas puestas a Endrow
Range("b:b").ClearContents 'Para mayor claridad trabajo en la columna "b"
Dim Endrow As Range 'declaro la variable de rango para Endrow.
Range("a16").Select ' inserté valores del 3 al 38
Set Endrow = Range(Selection, Selection.End(xlDown))
'selecciono el valor o valores del rango que tendrá Endrow
Range("b1").Select 'empiezo a trabajar en columna "b"
For Each xx In Endrow 'aca utilizando los valores de "Endrow" moveré el cursor
Cells(xx, 2).Select 'pongo el cursor en "b3" y lo selecciono
Selection = xx 'en la celda seleccionada tomaré el valor de Endrow,
'en ese momento, y lo escribiré
Selection.Locked = True
Next
Cells(1, 3).Select 'Selecciono "c1"
Selection = "La Dirección de Endrow es: " & Endrow.Address 'Dirección del rango
Endrow.Font.Bold = True 'pongo en negritas el rango Endrow
End Sub ' *** FIN ****

Espero haber sido de utilidad.

Bendiciones