¿Cómo aumentar el zoom de una sola celda sin que se cambie el tamaño de toda la fila?

Un pequeño reto para realizar con macros.
¿Cómo puedo Aumentar el zoom de una sola celda que está seleccionada o de alguna otra sin que se cambie el tamaño de toda la fila o columna? Ya lo realicé aumentando el tamaño de letra pero cambia toda la fila el tamaño de la celda...
¿Se me ocurre insertar un userform pero hay alguna otra forma?

1 Respuesta

Respuesta
1
Tengo la siguiente rutina que te adjunto, lamentablemente no tengo el nombre del autor de la misma (si ve esta consulta que escriba un mensaje diciendo ES MÍA, que muchos se lo vamos a agradecer, además sé que lo hizo con fines solidarios)
La tenés que colocar en el objeto ThisWorkbook:
'*******************************************************************************
'* Workbook_SheetSelectionChange
'* Sencillo código para resaltar la celda seleccionada, duplicando el tamaño de
'* la celda y aumentando el tamaño de la fuente...
'* Argumentos:
'* uso: Workbook_SheetSelectionChange
'* ESH 13/05/05 23:44
'*******************************************************************************
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Static Celda As Range, _
bytColor As Byte
On Error GoTo Workbook_SheetSelectionChange_TratamientoErrores
Application.ScreenUpdating = False
' vuelvo a poner las fila y columna anteriores como estaban
Celda.RowHeight = 12.75 ' Celda.RowHeight / 2
Celda.ColumnWidth = 10.71 ' Celda.ColumnWidth / 2
Celda.Font.Size = 10
Celda.Font.Bold = False
Celda.Interior.ColorIndex = bytColor
' guardo en la variable estatica la fila y columna actual
Set Celda = Target
' duplico el ancho y el alto de fila y columna actuales
Celda.RowHeight = Celda.RowHeight * 2
Celda.ColumnWidth = Celda.ColumnWidth * 2
Celda.Font.Size = 14
Selection.Font.Bold = True
' cambio el color a la celda activa
Celda.Interior.ColorIndex = 4
Workbook_SheetSelectionChange_Salir:
Application.ScreenUpdating = True
On Error GoTo 0
Exit Sub
Workbook_SheetSelectionChange_TratamientoErrores:
Resume Next
End Sub ' Workbook_SheetSelectionChange

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Marcar automáticamente datos iguales en celdas excel y contar datos iguales por línea

Pregunta dirigida a Dante Amor, Tras el uso de la macro que me facilitaste: ( la cual copio y pego). Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor If Not Intersect(Target, Range("A:E")) Is Nothing Then...
1 respuesta

Celda Activa, presionar enter para disparar Macro

Quiero hacer una macro que al dar ENTER en una celda dispare una macro, en la hoja "AL 1-MAR-08" en la columna A escribo un código, lo que hace la macro es buscar ese código en otra hoja "CATALOGO PROD", al encontrarlo, brinca 1 columna y el valor de...
1 respuesta

Hacer búsqueda y filtrar sin botón para luego su selección

Tengo este código. Private Sub Worksheet_Change(ByVal Target As Range) 'desactivamos la actualizacion de la pantalla, es decir ocultamos lo que la macro hace Application.ScreenUpdating = False 'si existe algun error de uso lo ignora o salta al...
2 respuestas

Macros en códigos de hojas Excel

Necesito desarrollar una macro que me copie la fórmula de una celda superior. Escribí este código: Private Sub Worksheet_change(ByVal Target As Range) Dim ufila As Byte ufila = Range("a:A").End(xlUp).Row Dim rango1 As Range Range("a2").Select Do...
1 respuesta

Actualizar datos en base de datos

¿Cómo agrego la opción de que antes de realizar una búsqueda nueva, o bien agregando un botón nuevo, actualice cualquier dato que se modifique, directamente en la base? En lectura simple sería: Hoja Búsqueda: Si se modifica cualquier dato, en rango...
1 respuesta

Sumar valor en misma celda

Como lo hago para que al introducir un valor en una celda me sume automáticamente 25. Es decir que al poner 100 en una celda me de esta misma 125
1 respuesta

Inserción de filas en Excel mediante VBA

Resulta que necesito saber como puedo crear en prima instancia una fila cuando un usuario de clic sobre los números que estén en la parte superior izquierda de la hoja de calculo... Con la grabadora de Macroshago el proceso y me genera el siguiente...
2 respuestas

Asignar formato moneda a celda

Junto con saludar, tengo el siguiente problema: Necesito asignar formato de moneda a una celda pero el tipo de moneda dependerá del valor que sea indicado en una deterninada celda. Ejemplo: Si en la celda A1 escribo USD, el formato de la celda C1...
1 respuesta

Autocompletar Texto

Quisiera saber si existe alguna forma de autocompletar texto pero, desdé una celda en Excel, es decir no con ningún combobox o un textbox sino dentro de la propia celda en la hoja de calculo, claro esto validado desde un rango. Ejemplo: Yo Tengo una...
1 respuesta

Ir a la primera celda de una fila cualquiera

Me gustaría saber como puedo ir, con una macro de excel, a la primera celda de una fila cualquiera (me valdría decir a la primera celda de la fila que tenga datos, ya que todas tienen datos). Es decir, Yo selecciono una fila cualquiera y la macro...
1 respuesta