|
|
Prueba con el siguiente código; hace lo siguiente:
1. insertas cualquier valor en $G$7
2. se activa el evento SelecetionChange. Capturo el valor de la celda que se ha modificado.
3. se dispara el evento change de la hoja, filtro el valor de la celda que me interesa (G7) para que ejecute 2 acciones: a) poner en A1, el valor de la fecha actual y b) ejecuta el procedimiento PonerEnMayusculas.
dim celda as string
dim cambiado as boolean
private sub worksheet_change(...
if celda="$G$7" and cambiado=true then
cells(1,1).value=date
PonerEnMayusculas(celda)
end if
end sub
private sub worksheet_selectionchange(...
celda=activecell.address
cambiado=true
end sub
sub PonerEnMayusculas(byval posicion as string)
range(posicion).value=ucase$(range(posicion).value)
end sub
Es decir aprovecha un evento para ejecutar varias acciones, cada una de ellas encapsulada en un sub diferente.
Espero que te sirva como idea...
|