Hola Carlos... Hola a todos... Por el código que muestras, tal vez podrías considerar el uso del "Formato Condicional" para que evites el uso de una macro tan sencilla.
Saludos a todos... Mauricio -----Mensaje original----- De: Carlos Cantelar [mailto:[EMAIL PROTECTED] Enviado el: vie 09/05/2008 13:53 Para: [email protected] Asunto: [usr] Problemas con una función heredada de Microsoft Office Hola a todos, TEngo una hoja de Calculo que se creó con Microsoft Excel, esta hoja contiene un boton que realiza una funcion muy sencilla, poner una celda determinada en negrita. no he conseguido ver cual es la función equivalente en OO Basic. Adjunto la función Private Sub CommandButton3_Click() For y = 4 To 15 Worksheets("Gastos Mensuales").Cells(y, 11).Font.FontStyle = "normal" Next For y = 4 To 15 If Month(Date) = Worksheets("Gastos Mensuales").Cells(y, 7) Then Worksheets("Gastos Mensuales").Cells(y, 11).Font.FontStyle = "Bold" End If Next End Sub El problema parece que radica en la función FontStyle y no encuentro su equivalente. Agradezco cualquier ayuda. Saludos.
--------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
