UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

TONIELCUBANO


Buenas noches. En el archivo les dejo la pregunta. Soy nuevo en esto de las macros y me está resultando algo difícil. De antemano agradezco sus respuestas. Gracias.
Archivos
PREGUTA DE MACRO.xlsx
No tienes los permisos para descargar los archivos.
(12 KB)

tyno


Hola Toni.
Te paso el archivo con la macro para lo que has pedido. Saludos
Archivos
PREGUTA DE MACRO.zip
No tienes los permisos para descargar los archivos.
(16 KB)

TONIELCUBANO


Hola Tyno. Pues ya te digo que soy bastante pricipiante en esto de las macros. Yo selecciono la celda c2 y en la ficha programador doy clic en macro y se abre una ventana pidiéndome el nombre de la macro ya que así no se habilita la pestaña para ejecutar. También he intentado pegar las instrucciones en una macro nueva y no hace nada. No sé si algo lo estaré haciendo incorrectamente.

tyno


Aaaa. No me di cuenta de mencionarte que la macro que hice se ejecuta con el evento Worksheet_Change.
Esto quiere decir que cuando se realiza una acción(Change) en la Hoja (Worksheet) se ejecuta la macro. No es como los otros metodos que puede ser por medio de un boton, etc.


Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Dim rg As Range
Set rg = Range("a2:a1000000")
If Union(Target, rg).Address = rg.Address Then
 If Target <> "" Then Range("c1:c1000000").Find("") = Target
End If

Set rg = Range("e2:e1000000")
If Union(Target, rg).Address = rg.Address Then
 If Target <> "" Then Range("g1:g1000000").Find("") = Target
End If


End Sub

Entonces cuando ingreses un valor en la columna A o E y des Enter o Tabular se ejecuta la macro y vas a ver que el valor ingresado se va a ir agregando en la columna C o D dependiendo donde ingreses el valor ¿Se entiende? prueba de ir ingresando datos en la columna A por ejemplo y veras que este también se agregan en la columna C. Saludos

TONIELCUBANO


Hola de nuevo tyno. Creo que no estamos en la misma frecuencia. Lo que busco exactamente es que al ejecutar la macro, en la celda C2 que hay "=A3", se cambie a "=A4" y cuando la vuelva a ejecutar cambie a "=A5" y así sucesivamente. Se trata de una rutina que hago manualmente digitando los valores. Lo que pasa es que después de cambiar el valor de la celda C2, doy doble click en la esquina inferior derecha de la celda para rellenar o arrastrar toda la columna "C". Y a parte también, como son bastantes columnas, por eso necesito que se pueda aplicar a cualquier celda de la hoja, concretamente en la celda que yo elija, la celda activa.

TONIELCUBANO


BUENO, YA ESTÁ SOLUCIONADO. GRACIAS POR LA AYUDA.

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.