Ayuda Código: strValor

Hola Experto:
Mi problema es el siguiente: Tengo una macro asignada a un botón en una hoja de Excel. El meollo del asunto es que necesito que: si la celda CF5 es diferente a CY5 me envíe un mensaje y si es igual prosiga con la macro.
Por diferente me refiero a: si la celda CF5 tiene datos y la celda CY5 esta vacía.
Y por igualdad a: si CF5 y CY5 están vacías o con datos las dos celdas.
He intentado con este código pero no se me da pues todas las opciones (Vacías las dos, Con datos las dos, una con datos y otra vacía) me dan el mensaje te escribo tal código:
strValor1 = Trim(Range("A2").Value2 <> "")
If strValor1 <> Range("B2").Value2 <> "" Then
MsgBox ("Una de las celdas tiene datos y la otra no ingrese o borre los datos")
Range("A2").Select
Exit Sub
Exit Sub
End If
Y te preguntaras por que ese código?;  porque ya tengo con este código la macro de mi trabajo y este es el pedazo de código que ejecuta esta macro:
strValor1 = Trim(Range("E7").Value)
strValor2 = Trim(Range("M7").Value)
strValor3 = Trim(Range("AS7").Value)
strValor4 = Trim(Range("AS15").Value)
If strValor1 = "" Then
MsgBox "NO ingresó el NÚMERO DE CONTROL del servidor público, favor de ingresarlo."
Range("E7").Select
Exit Sub
End If
If strValor2 = "0" Then
MsgBox "Este NÚMERO DE CONTROL no se ha asignado algún Servidor Público, verifique el número. Si es el correcto ingrese al menú y vaya al botón ''Modificar Servidor Público''."
Range("E7").Select
Exit Sub
End If
If strValor3 = "" Then
MsgBox "NO selecciono un DIAGNÓSTICO, favor de seleccionar al menos uno."
Range("AS7").Select
Exit Sub
End If
If strValor4 = "" Then
MsgBox "NO registró al MIEMBRO DEL EQUIPO MÉDICO que atendió al paciente, favor de elegirlo"
Range("AS15").Select
Exit Sub
End If
Application.ScreenUpdating = True
Application.EnableEvents = False
Application.ScreenUpdating = False
Hoja5.Visible = xlSheetVisible
Sheets("Archivo Mensual").Select
ActiveSheet.Unprotect "AMhoja5"
Sheets("Ingresar Pacientes").Select
Range("H139:AF139").Select
Range("H139:AF139").Copy
Sheets("Archivo Mensual").Select
Range("A1505").Select
ActiveCell.End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
ActiveSheet.Protect "AMhoja5"
Hoja5.Visible = xlSheetVeryHidden
Sheets("Ingresar Pacientes").Select
Range( _
"E7,AS7,AS9,AS11,CF5,CY5,CF7,CY7,CF9,CY9,CF11,CF13,CF15,BN7,BN9,BN11,BN13,BN15,AS15" _
).Select
Selection.ClearContents
Range("E7").Select
Application.ScreenUpdating = True
Application.EnableEvents = True
PacienteRegistroCorrecto.Show
End Sub
Espero darme a entender y gracias por tu ayuda de antemano.
Atentamente. Juan Hernández México

1 Respuesta

Respuesta
1
Prueba con esto
Private Sub CommandButton1_Click()
    If (Range("CF5").Value2 <> "" And _
        Range("CY5").Value2 <> "" And _
        Range("CF5").Value2 = Range("CY5").Value2) Then 'Si las 2 son iguales y para diferenciarlas de las que están vacías las 2 celdas
            MsgBox ("Continuar Macro")
    Else
        If (Range("CF5").Value2 = "" Or _ 'Si una de las 2 está vacía o las 2
            Range("CY5").Value2 = "" Or _
            (Range("CF5").Value2 = "" And _
             Range("CY5").Value2 = "")) Then
                MsgBox ("Ha de ingresar datos en una de las celdas o en las dos")
                Exit Sub
        Else 'Aquí no sabía que poner, si hay datos pero son diferentes
            MsgBox ("Los datos no son iguales") 
            Exit Sub
        End If
    End If
End Sub
Antes que nada debo agradecer tu pronta respuesta, tu atenta y rápida atención a mi problema.
El código está muy bien, resuelve mi problema (le ajuste algunos símbolos de <> por =): ahora si las celdas están ocupadas, aunque sea diferentes los datos, ejecutaría la macro; si las celdas una con datos y otra vacía me envía el mensaje de problema, pero hay un problema más: cuando las celdas están vacías se supone que pasaría a ejecutar la macro, más no es así. No hace nada.
If (Range("CF5").Value2 = "" And _
     Range("CY5").Value2 = "" And _
     Range("CF5").Value2 = Range("CY5").Value2) Then
' Aquí debería pasar a continuar con la macro pero no hace nada
Else
     If (Range("CF5").Value2 = "" Or _
          Range("CY5").Value2 = "" Or _
         (Range("CF5").Value2 = "" And _
          Range("CY5").Value2 = "")) Then
          MsgBox ("Ingresar datos en una de las celdas, para ejecutar macro")
          Exit Sub
      Else 'No hay problema si son diferentes
               MsgBox ("Continuar macro")
               Exit Sub
      End If
End If
"Antares18"    Me podrías ayudar de nuevo a resolver este inconveniente. Gracias
Atte. Juan Hernández // México
No cambies el primer igual, ni el segundo porque con eso estoy diciendo que en las celdas hay datos y que esos datos sean iguales. Tal como lo has puesto sólo pasará si las dos celdas están vacías
If (Range("CF5").Value2 = "" And _
     Range("CY5").Value2 = "" And _
     Range("CF5").Value2 = Range("CY5").Value2) Then
' Aquí debería pasar a continuar con la macro pero no hace nada
"Antares18" Gracias, me ayudaste bastante. Que tengas un excelente día y sigas tu camino hacia los primero lugares de Todo Expertos Excel.
Atte. Juan Hernández // México

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Validar celdas antes de antes de ejecutar macro

Espero que bien. Mi nombre es ricardo Acudo a ti ya que veo tienes una excelente experiencia y la compartes de forma desinteresada. Mi problema es el siguiente: Tengo una macro que copia la información de una hoja y la pega en un archivo diferente,...
1 respuesta

Ejecutar macro según el valor de la celda

Que tal necesito de su valiosa ayuda tengo que ejecutar una macro en automático esto depende del valor de la celda. Estoy utilizando la siguiente macro: Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Address = "$S$1" And...
1 respuesta

Impresión continua según número de orden de boleta

Necesito una macro para impresión continua de boletas, resulta que tengo 2 hojas de calculo una de ellas se llama "Datos Generales" y otra "Boleta de Pago", está funcionando de la siguiente manera en la hoja "Boleta" ingreso de una forma manual según...
1 respuesta

Rangos en caja de texto

Tengo un formulario en excel 2003 ahora bien unos de ellos se llama temperatura mi pregunta es como puedo poner un rango limitante dentro de esta es decir el valor tiene que estar entre 15 y 35 y si no es así que mande un código de error, ya que lo...
1 respuesta

Macro que busque un valor en una columna y que lo pegue en otra columna de otro libro.

Tengo un señor problema, resulta que tengo 20 datos en la columna E de un libro llamado DESVIACIONES, necesito buscar desde la E7 hasta la E26 los datos mayores o iguales a 0, si encuentra alguno que lo copie y lo peque en otra hoja llamada Hoja2 en...
1 respuesta

Inactivar celda excel si otra está vacía

Tengo una plantilla en excel, donde debo ingresar unos datos desde la fila A5 hasta A20, el problema que tengo es que en ocasiones no se utiliza desde la primera celda, es decir, por descuido se deja la fila A5 vacía, y al guardar el reporte queda...
1 respuesta

Buscar valores en una columna en VBA

En mi hoja de excel tengo una columna, que contiene algunas celdas con un valor "X". Deseo, mediante una macro, localizar estas celdas y eliminar el contenido de la celda. ¿Cómo puedo hacerlo?
1 respuesta

Como contar celdas vacías con una macro

Tengo una base de datos la cual genero con una macro lo que necesito es que me cuente las celdas vacías que deje el empleado al momento de hacer su revisión que me made un msgbox diciéndome el total de celdas vacías es de "n" y las marque con un...
2 respuestas

¿Cómo puedo hacer validación de datos al ejecutar una macros de guardado?

Tengo una macro en una hoja llamada NUEVO CLIENTE que guarda infroamcion en otra hoja llamada CLIENTES REGISTRADOS. Application.ScreenUpdating = False Sheets("CLIENTES REGISTRADOS ").Unprotect password:="28021990" Application.ScreenUpdating = False...
1 respuesta

Macro para actualizar base de datos (copiar y pegar)

Estoy realizando una plantilla para alimentar la una base de datos tengo la hoja ingresar en la que hay q diligencias todos los todos los datos requeridos como lo son radicado, tipo de producto, proceso etc; después de diligenciar los datos doy click...
1 respuesta