IF

publicado el 18 de agosto3 años

Buenas tardes, me pueden ayudar con una función por favor, el asunto es el siguiente:

Tengo una hoja donde vienen diversos documentos que deben ir en un expediente. Cuando están registrados les pongo la palabra SI y cuando falta un documento pongo la palabra NO.

Lo que quiero que haga Excel es que en una columna con el nombre de Documentos Faltantes me ponga el texto del documento que falta en base a si en su columna dice SÍ o NO, o en caso de que no me falte ninguno porque en ambas diga SÍ y SÍ, o al contrario que me falten porque en ambas diga NO y NO.

Por ejemplo:

Documentos Faltantes Factura Comprobante de Pago
Ninguno SI SI
Factura NO SI
Comprobante de pago SI NO
Factura y Comprobante de pago NO NO

Según es con la fórmula IF, pero no encuentro la manera de utilizarla. Si podrían darme la sintaxis de cómo debe ir la fórmula se los agradecería mucho.

Gracias por sus respuestas.

publicado el 18 de agosto3 años

Hola

Lo bonito de Excel es que hay muchas formas de lograr lo que uno quiere, la función SI no es la única que te puede ayudar.

Adjunto un archivo con 5 formas distintas de lograrlo, seguramente los maestros formuleros encontrarán otras formas distintas, esperemos para ver qué locuras inventaron, seguro aprenderé algo más

Muestra Varias Opciones.xlsx

publicado el 18 de agosto3 años

Hola a ambos,

Otra opción podría ser, suponiendo que la tabla citada:

Hace 3 horas, Jonathan0 dijo:

Documentos Faltantes Factura Comprobante de Pago
Ninguno SI SI
Factura NO SI
Comprobante de pago SI NO
Factura y Comprobante de pago NO NO

ocupe el rango A1:C5 :

=ELEGIR(COINCIDIR(B2&C2;{"SISI";"NOSI";"SINO";"NONO"};);"Ninguno";B$1;C$1;B$1&" y "&C$1)

La fórmula iría en A2 y puede copiarse verticalmente hasta donde sea necesario.

Saludos,

publicado el 20 de agosto3 años

.................y bueno, sólo a efectos didácticos, utilizando la función =SI [con otras], también podemos conseguir los mismos resultados (la fórmula es un poco más larga, sin embargo) :

=SI(Y(--XO(B2=C2)=1;B2="SI");"Ninguno";SI(--XO(B2=C2)=0;DESREF(A$1;;COINCIDIR("NO";B2:C2;));B$1&" y "&C$1))

Saludos,

publicado el 20 de agosto3 años

Hace 14 minutos , Victor7 dijo:
La fórmula anterior puede acortarse un poco:
=SI(Y(B2=C2;B2="SI");"Ninguno";SI(B2<>C2;DESREF(A$1;;COINCIDIR("NO";B2:C2;));B$1&" y "&C$1))
Saludos,

Editado el el 20 de agosto3 años por Victor7
Cambio en la fórmula

publicado el 22 de agosto3 años

Hola

Otra mas utilizando LET y UNIRCADENAS

=LET(c,SI(B2:C2<>{"SI","SI"},B$1:C$1,""),UNIRCADENAS(" y ",,SI(MAX(LARGO(c)),c,"Ninguno")))

Cambiar las referencias a las de tu libro

publicado el 22 de agosto3 años

Hace 2 horas, Gerson Pineda dijo:
Hola

Otra mas utilizando LET y UNIRCADENAS
=LET(c,SI(B2:C2<>{"SI","SI"},B$1:C$1,""),UNIRCADENAS(" y ",,SI(MAX(LARGO(c)),c,"Ninguno")))
Cambiar las referencias a las de tu libro

Hola estoy probando tu formula y me sale duplicado

publicado el 22 de agosto3 años

Hace 7 minutos , patriciomates dijo:

Hola estoy probando tu formula y me sale duplicado

A lo mejor hay espacios en esas celdas

Te adjunto el archivo

Let con funcion SI.xlsx

publicado el 22 de agosto3 años

Hace 7 minutos , Gerson Pineda dijo:

A lo mejor hay espacios en esas celdas

Te adjunto el archivo

Let con funcion SI.xlsx 10.86 kB · 0 descargas

publicado el 24 de agosto3 años

En 22/8/2022 at 15:17 , patriciomates dijo:

Hola estoy probando tu formula y me sale duplicado

Pues es para que quede claro que falta el comprobante de pago, seguro Gerson lo hizo a propósito?

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

Ir al listado de temas

Domina Excel, de Cero a Experto

¿Atascado? Deja de buscar soluciones puntuales. Aprende a dominar Excel para siempre con nuestro curso online. Más de 115 lecciones y soporte directo.

Ver el Curso Completo

194 Archivos
99 Comentarios
30 Revisiones
Última descarga

Nuevo mapa de municipios españoles
- 2

Crear un loop para emitir recibos

Hola! como estás? ante todo muchas gracias por tu aporte.
Te comento, hice la prueba pero tengo dos cuestiones. La macro original normalmente guarda una copia del recibo emitido en una carpeta de la pc y tambien envía una copia por correo.

Ahora bien, la macro funciona porque los recibos se me han guardado en la carpeta de la pc, pero uno de los problemas que tengo es que ahora no los envía por correo. Por otro lado, faltaría hacer que la nueva macro vaya reemplazando el contenido de la celda P17 con el codigo del inmueble que está imprimiendo de la lista, ya que, de lo contrario, siempre se imprime el mismo recibo.
Agradezco mucho si me podés ayudar a solucionar esas dos cuestiones

Por Corvette, · publicado el viernes a las 21:072 días
Crear un loop para emitir recibos

Prueba y comenta
ALQUILERES L - para POL.xlsm

Por JSDJSD, · publicado el viernes a las 09:053 días
Corregir error en código VBA (valores de “A pagar” y “Saldo” no se copian correctamente)

Muchas gracias JSDJSD, por la respuesta y por tomarse el tiempo de colaborarme.
Con ello doy por cerrado el tema
Un cordial saludo,
Dorge

Por dorgelis, · publicado el jueves a las 20:323 días
Crear un loop para emitir recibos

Buenas tardes! Como están?
Les comento, tengo una planilla que utilizo para emitir recibos de pago de las propiedades de las que administro el alquiler en mi inmobiliaria. Actualmente la planilla funciona bien, pero cuando tengo que imprimir los recibos, tengo que ir haciéndolos de a uno y me resultaría más practico escribir una lista de las propiedades de las que ya estoy en condiciones de realizar los recibos y que la macro se vaya repitiendo hasta que haya emitido todos los recibos (ya que la macro es bastante lenta y tengo que esperar unos 10 segundos entre recibo y recibo y son como 120 los que tengo que hacer)
Actualmente el recibo se completa cambiando el valor de una celda (que es el que identifica a cada inmueble), por lo que entiendo que lo unico que tendría que hacer el loop, es imprimir el primer recibo, copiar de una lista el número de identificacion de la siguiente propiedad de la lista, copiarlo en la celda que completa el recibo, volver a ejecutar la macro para generar el siguiente recibo y así sucesivamente hasta finalizar toda la lista. Eventualmente estaría bueno que aparezca un aviso cuando ya haya finalizado de emitir todos los recibos.
Adjunto el archivo en donde dejé indicado donde pondría la lista de codigos de propiedad a emitir, el boton que ejecuta las macros y cual es la celda que la macro iría modificando para completar los recibos con los datos de cada uno de los inmuebles a imprimir
La hojas se desbloquean con la clave 4324 o con el boton rojo que hay en las mismas (cada vez que se ejecuta la macro se vuelve a bloquear)
Desde ya les agradezco la ayuda!
Anexo:
La macro individual actual es la siguiente (en la planilla se ejecuta con un boton amarillo que está en la hoja consultas).

Sub Imagen13_Haga_clic_en()
Dim Izq As Single, Arr As Single, Ancho As Single, Alto As Single
Application.DisplayAlerts = False
Application.ScreenUpdating = False
ActiveSheet.Unprotect "4324"
With Range("H7:R34")
Izq = .Left: Arr = .Top: Ancho = .Width: Alto = .Height: .CopyPicture
End With
With ActiveSheet.ChartObjects.Add(Izq, Arr, Ancho, Alto)
.Activate
.Chart.Paste
.Chart.Export "C:\Users\Usuario\Google Drive\LOCACIONES\REC. PROPIETARIOS\" & Format(Range("q20"), "mmmYY") & " - " & Range("Q9") & " - " & Range("P17") & " - " & Range("K19") & ".JPG"
.Delete
End With
'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ (desactivé esto para que no imprima en papel)
'IgnorePrintAreas:=False
Range("AH6").Select
Selection.Copy
Range("AH9").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Range("Y7:AI33").Select
Selection.Copy
Range("H7").Select
ActiveSheet.Paste
Range("a4").Select
ActiveSheet.Protect "4324"
ActiveWorkbook.Save
Dim Email As CDO.Message
Set Email = New CDO.Message
correo_origen = "nqn.negocios@gmail.com"
Clave_correo_origen = "wkfhaapcnjljbwju"
correo_destino = Range("ak27").Value
Asunto = Range("ak28")
Mensaje = Range("ak29")
'correo_copia = "envioacorreocopia@gmail.com"
'correo_copia_oculta = "enviocopiaoculta@gmail.com"
Email.Configuration.Fields(cdoSMTPServer) = "smtp.gmail.com"
Email.Configuration.Fields(cdoSendUsingMethod) = 2
With Email.Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = CLng(465)
.Item("http://schemas.microsoft.com/cdo/" & "configuration/smtpauthenticate") = Abs(1)
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = correo_origen
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = Clave_correo_origen
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
End With
With Email
.To = correo_destino
.From = correo_origen
.Subject = Asunto
.TextBody = Mensaje
.Configuration.Fields.Update

If (Trim(correo_copia) = "") Then
.CC = correo_copia
End If
.AddAttachment (Range("ak30").Value)

On Error Resume Next
.Send
End With
End Sub
Sub powerbuttonINQ()
Dim Izq As Single, Arr As Single, Ancho As Single, Alto As Single
Application.DisplayAlerts = False
Application.ScreenUpdating = False
ActiveSheet.Unprotect "4324"
With Range("H7:R33")
Izq = .Left: Arr = .Top: Ancho = .Width: Alto = .Height: .CopyPicture
End With
With ActiveSheet.ChartObjects.Add(Izq, Arr, Ancho, Alto)
.Activate
.Chart.Paste
.Chart.Export "C:\Users\Usuario\Google Drive\LOCACIONES\REC. INQUILINOS\" & Format(Range("q20"), "mmmYY") & " - " & Range("Q9") & " - " & Range("P17") & " - " & Range("J17") & ".JPG"
.Delete
End With
'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
'IgnorePrintAreas:=False
Range("AH6").Select
Selection.Copy
Range("AH9").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Range("Y7:AI33").Select
Selection.Copy
Range("H7").Select
ActiveSheet.Paste
Range("a4").Select
ActiveSheet.Protect "4324"
ActiveWorkbook.Save
Dim Email As CDO.Message
Set Email = New CDO.Message
correo_origen = "nqn.negocios@gmail.com"
Clave_correo_origen = "wkfhaapcnjljbwju"
correo_destino = Range("ak27").Value
Asunto = Range("ak28")
Mensaje = Range("ak29")
'correo_copia = "envioacorreocopia@gmail.com"
'correo_copia_oculta = "enviocopiaoculta@gmail.com"
Email.Configuration.Fields(cdoSMTPServer) = "smtp.gmail.com"
Email.Configuration.Fields(cdoSendUsingMethod) = 2
With Email.Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = CLng(465)
.Item("http://schemas.microsoft.com/cdo/" & "configuration/smtpauthenticate") = Abs(1)
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = correo_origen
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = Clave_correo_origen
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
End With
With Email
.To = correo_destino
.From = correo_origen
.Subject = Asunto
.TextBody = Mensaje
.Configuration.Fields.Update

If (Trim(correo_copia) = "") Then
.CC = correo_copia
End If
.AddAttachment (Range("ak30").Value)

On Error Resume Next
.Send
End With
End Sub

ALQUILERES L - para POL.xlsm

Por Corvette, · publicado el jueves a las 18:473 días
Corregir error en código VBA (valores de “A pagar” y “Saldo” no se copian correctamente)

Prueba y comenta
CODIGO DE CELDA NO TRASLADA EL VALOR DESEADO EN ARCHIVO AYUDA EXCEL.xlsm

Por JSDJSD, · publicado el jueves a las 17:473 días

No hay usuarios registrado para ver esta página.

Conéctate a Ayuda Excel

IF

Featured Replies

Archivado

Archivos

Nuevo mapa de municipios españoles

Agenda Calendario Vintage

Cómo conservar la función AHORA()

Agenda v01

Gráficos de aranceles con colores difusos

Estadísticas de descargas

Mensajes

Crear un loop para emitir recibos

Crear un loop para emitir recibos

Corregir error en código VBA (valores de “A pagar” y “Saldo” no se copian correctamente)

Crear un loop para emitir recibos

Corregir error en código VBA (valores de “A pagar” y “Saldo” no se copian correctamente)

Visualizado recientemente 0

Account

Navigation

Buscar

Configure browser push notifications

Chrome (Android)

Chrome (Desktop)

Safari (iOS 16.4+)

Safari (macOS)

Edge (Android)

Edge (Desktop)

Firefox (Android)

Firefox (Desktop)