José Saúl Méndez Alonso

Te recomiendo colocar una etiqueta al lado de cada caja de texto y añadir el siguiente código en el evento Change de cada una, también te puede ser útil para validad que ninguna caja se quede vacía. Private Sub TextBox1_Change() If (TextBox1.Text) =...

Te dejo un código que puede servirte para rellenar la columna con la fórmula y detenerse cuando encuentre una celda vacía. Sub Rellenar() On Error GoTo Err_Rellenar Dim nCel As Integer nCel = 2 While Not Trim(Range("O" & nCel).Value) = "" Range("P" &...

Te dejo un ejemplo de código en MS Access. Private Sub IdPregunta_DblClick(Cancel As Integer) DoCmd.OpenForm "Det subform", acNormal, , "[IdPregunta]=" & [IdPregunta], acFormEdit, acWindowNormal End Sub Debes elegir sobre que control haces el doblo...

Te dejo esté código espero te sea de utilidad. Sub CreaHojas(ByVal sNombre As String) On Error GoTo Err_CreaHojas Sheets.Add After:=ActiveSheet Sheets(Sheets.Count).Select ActiveSheet.Name = sNombre 'La asignación de datos la harías en las celdas de...

Te dejó una macro que puede servir para tu propósito. Sub Colores() On Error GoTo Err_Colores Dim nCel As Double Dim sDato As String nCel = 2 While Not Trim(Range("J" & nCel).Value) = "" sDato = Range("J" & nCel).Value If UCase(Left(sDato, 1)) = "J"...

Te pasó el siguiente código que sirve para lo que solicitas, como podrás ver inicio en la fila 2, suponiendo que en la fila 1 tengas encabezados. Espero te sea de utilidad. Sub Valores() On Error GoTo Err_Valores Dim nCel As Integer nCel = 2 While...

Usa un inputbox, asocia la respuesta a una variable y luego con evalúa se valor con IF THEN, ELSEIF, ELSE END IF, o puedes usar un SELECT CASE, y en caso de ser 1 (UNO) pues que ejecute el módulo que tu quieras, en caso contrario que se ejecute el...

Intenta usando la función ESERROR(), que te devuelve FALSO o VERDADERO, en caso de encontrar un error. Puedes evaluar una celda o bien una fórmula. Si me envías un ejemplo de tu archivo te puedo ayudar a resolver tu problema. Mi correo es...

Intenta con esto: en una celda a la derecha de la celda con la fecha de pago pon esta fórmula =SI(DIASEM(B1,2)=6,B1-1,SI(DIASEM(B1,2)=7,B1+1,B1)) En el ejemplo uso la función SI para saber si la fecha es Sábado o Domingo, Sí es Sábado le resta uno,...

Intenta lo siguiente: Columna A Columna B Columna C Bienaventurados Los Que Sufren =A1 & " " & B1 Amar Es Perdonar =A2 & " " & B2 Fernando Funcionario Público =A3 & " " & B3