crear macro para agregar datos

[carlosar]

Hola Buenas Tardes Miren Estuve Pensando Lo Que Necesito Y Es Lo Siguiente Creo Que Con Esto Solucionaria Mi Problema

En Excel tengo dos hojas quisiera que en la primera tener en la columna

a id
b categoria
c descripcion

Tener un boton que diga
"Agregar" en la hoja uno

Que estos datos se insertaran en la hoja dos en el renglon siguiente al ultimo

De esta forma al tener protegida la hoja dos no podrian modificar los datos espero haber sido mas claro gracias por su ayuda

[mrocf]

Ahora sí que se entiende tu necesidad.

Pues mira, puedes incorporar una macro como la que sigue:

Código:

Sub Copiar_y_Pegar()
Sheets("Hoja2").Protect _
    Password:="mipassword", _
    DrawingObjects:=False, Contents:=False, Scenarios:=False
[A2:C2].Copy Destination:=Sheets("Hoja2").[A65536].End(xlUp).Offset(1, 0)
Sheets("Hoja2").Protect _
    Password:="mipassword", _
    DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub 

Naturalmente, tienes que:
a) reemplazar las dos apariciones de "mipassword" por la verdadera clave que tiene tu Hoja2;

b) tienes que proteger tu proyecto pues de lo contrario es muy sencillo averiguar la clave; y

c) Advierte que en la macro he supuesto que los datos se introducen en el rango "A2:C2". Modifica ese rango de ser necesario.

Saludos