¿Por qué no me esta funcionando el comando .font.bold?
Buenas, te consulto porque estoy haciendo unos macros y lo único que no me esta funcionando es una función bastante básica y no entiendo porque.
" Hoja2.Cells(q + 1, r).Font.Bold = True 'no funciona!! "
Esta es la parte donde tengo aplicada la función:
For q = 1 To j
For r = 3 To 4
p = Hoja2.Cells(q + 1, r)
If Left(p, 1) = "l" Or Left(p, 1) = "i" Then
Hoja2.Cells(q + 1, r).Font.Bold = True 'no funciona!!
Else
Hoja2.Cells(q + 1, r) = Mid(Hoja2.Cells(q + 1, r), 12, 5)
End If
Next r
Next q
Las variables están perfectas, no tengo problema. ¿Puede ser que sea porque esta función solo se aplica a rangos?
Saludos y gracias
" Hoja2.Cells(q + 1, r).Font.Bold = True 'no funciona!! "
Esta es la parte donde tengo aplicada la función:
For q = 1 To j
For r = 3 To 4
p = Hoja2.Cells(q + 1, r)
If Left(p, 1) = "l" Or Left(p, 1) = "i" Then
Hoja2.Cells(q + 1, r).Font.Bold = True 'no funciona!!
Else
Hoja2.Cells(q + 1, r) = Mid(Hoja2.Cells(q + 1, r), 12, 5)
End If
Next r
Next q
Las variables están perfectas, no tengo problema. ¿Puede ser que sea porque esta función solo se aplica a rangos?
Saludos y gracias
1 Respuesta
Respuesta de Juan Carlos González Chavarría
1
Gracias! Otra pregunta más, ¿cómo hago para que no me surja error cuando me ponen cancelar en este inputbox?
Fecha = CDate(InputBox("Escriba fecha de las planillas.", "Fecha", Date))
probe con if vbcancel then y no me lo toma, lo estoy usando mal?
If vbCancel Then
xxx
else
yyy
end if
Saludos y gracias!
Fecha = CDate(InputBox("Escriba fecha de las planillas.", "Fecha", Date))
probe con if vbcancel then y no me lo toma, lo estoy usando mal?
If vbCancel Then
xxx
else
yyy
end if
Saludos y gracias!
Adapta esto:
Dim Mensaje, Estilo, Título, Ayuda, Ctxt, Respuesta, MiCadena
Mensaje = "¿Desea continuar?" ' Define el mensaje.
Estilo = vbYesNo + vbCritical + vbDefaultButton2 ' Define los botones.
Título = "Demostración de MsgBox" ' Define el título.
Ayuda = "DEMO.HLP" ' Define el archivo de ayuda.
Ctxt = 1000 ' Define el tema
' el contexto
' Muestra el mensaje.
Respuesta = MsgBox(Mensaje, Estilo, Título, Ayuda, Ctxt)
If Respuesta = vbYes Then
Range("A3").Value = 1
Else
Range("A1").Select
Exit Sub
End If
Dim Mensaje, Estilo, Título, Ayuda, Ctxt, Respuesta, MiCadena
Mensaje = "¿Desea continuar?" ' Define el mensaje.
Estilo = vbYesNo + vbCritical + vbDefaultButton2 ' Define los botones.
Título = "Demostración de MsgBox" ' Define el título.
Ayuda = "DEMO.HLP" ' Define el archivo de ayuda.
Ctxt = 1000 ' Define el tema
' el contexto
' Muestra el mensaje.
Respuesta = MsgBox(Mensaje, Estilo, Título, Ayuda, Ctxt)
If Respuesta = vbYes Then
Range("A3").Value = 1
Else
Range("A1").Select
Exit Sub
End If
