Este explorador ya no se admite.
Actualice a Microsoft Edge para aprovechar las características y actualizaciones de seguridad más recientes, y disponer de soporte técnico.
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(144, 87%, 23%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EAQ%3C/text%3E%3C/svg%3E)
Porque este codigo en BVA bota error 424... :ActiveCell.text = Ucase(strWord)
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(220.8, 1%, 31%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EJJ%3C/text%3E%3C/svg%3E)
Asegúrate de que la celda activa no esté vacía
If Not IsEmpty(ActiveCell.Value) Then
ActiveCell.Value = UCase(ActiveCell.Value)
End If
**
Usa el método Value explícitamente
ActiveCell.Value = UCase(ActiveCell.Value)
**
Asegúrate de estar trabajando en una hoja de cálculo activa*
If TypeOf ActiveSheet Is Worksheet Then
ActiveCell.Value = UCase(ActiveCell.Value)
End If
Hola Audad buen día,
Si buscas insertar algún valor en una celda, usa la propiedad Value de un objeto tipo Range.
Por ejemplo:
ActiveCell.Value = UCase(strWord)
Con ActiveCell.Text lo que estás haciendo realmente es pedir el valor de dicha celda activa, con su formato. Prueba usando MsgBox ActiveCell.Text. Te devolverá el valor del texto con formato.
Revisa los siguientes enlaces:
https://learn.microsoft.com/es-es/office/vba/api/excel.range.text (Devuelve el valor)
https://learn.microsoft.com/en-us/office/vba/api/excel.range.value (Devuelve o puedes insertar valor).
Espero haberte ayudado.
Saludos.