Foros del Web » Soporte técnico » Ofimática »

crear macro para agregar datos

Estas en el tema de crear macro para agregar datos en el foro de Ofimática en Foros del Web. 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 ...
  #1 (permalink)  
Antiguo 13/08/2007, 16:45
 
Fecha de Ingreso: abril-2007
Mensajes: 12
Antigüedad: 16 años, 11 meses
Puntos: 0
crear macro para agregar datos

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
  #2 (permalink)  
Antiguo 13/08/2007, 21:49
Avatar de mrocf  
Fecha de Ingreso: marzo-2007
Ubicación: Bs.As.
Mensajes: 1.103
Antigüedad: 17 años
Puntos: 88
De acuerdo Re: crear macro para agregar datos

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
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 06:45.