Abraham Valencia

Pues suponiendo que en el rango A1:A10 de tu hoja, quieres que te salga un Msgbox si escribes alguna palabra con eñe (ñ) Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, [a1:a10]) Is Nothing Then Exit Sub If Target Like "*ñ*"...

Abre este archivo, primero sin habilitar las macros para que veas unas pequeñísimas instrucciones y usuarios/claves, ya después lo abres con las macros habilitadas http://es.geocities.com/eavj666peru/Usuarios.xls Abraham

Pues, quieres hacer eso en un Msgbox? En realidad me parece poco practico. En todo caso, faltan algunos detalles en tu dilema. Prueba algo así: Sub xxx() Dim celda As Range Dim strmsj$ For Each celda In Range("C1:C5") If celda <> "" Then strmsj$ =...

Pero, hablas de activar/desactivar el optionbutton como tal (Enabled) es decir casi bloquearlo para su uso, ¿o te refieres a que se active/desative la opción? Si es lo segundo, e es algo así: If Optionbutton1 = True Then OptionButton2 = False Else...

Este ejemplo: http://es.geocities.com/eavj666peru/Formulario.xls Abraham

Pues con la grabadora de macros te dabas una idea. Usa algo así: ActiveWorkbook.SaveAs Filename:= Range("R5"), FileFormat:= _ xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _ , CreateBackup:=False No olvidando que en la...

Pues si es posible, obviamente con macros. Date una vueltita por aquí: http://www.rondebruin.nl/sendmail.htm Abraham

Pues, las autoformas no tienen eventos, pero, lo que podrías hacer es que salga un Msgbox cuando seleccionas algunas celdas en donde este la autoforma, usando el evento Slection_Change de la hoja. Abraham

Pues, no mencionas como envías lo ingresado en el textbox a la celda, pero, me da la impresión de que lo esta enviando con formato de texto. Hazlo así: Range("Z28") = Val (Textbox1) Abraham

Pues, una forma, en el código del userform: Private Sub UserForm_Activate() Label1 = Time Reloj End Sub En un modulo "normal": Sub reloj() UserForm1.Label1.Caption = Time Tiempo End Sub Sub Tiempo() Application.OnTime Now + TimeValue("00:00:01"),...