Saltar al contenido
Te enseño 7 de los trucos que me permitieron trabajar 2 horas menos al día >>>

Validación para mayúscula

Leonardo Briceño

Por Leonardo Briceño
en Excel General

Recommended Posts

Leonardo Briceño Aficionado

Leonardo Briceño

publicado
publicado

Hola amigos de Ayuda Excel

Quiero hacerles una consulta. Tengo la siguiente fórmula en Validación de Datos (personalizada) =SI(O(A1="SI",A1="NO"),VERDADERO,FALSO) para restringir el uso de la celda únicamente a esas dos opciones Si o NO. Pero deseo que las opciones sean siempre en mayúscula. Hay alguna forma de convertir "si a SI" o "no a NO" de manera automática. Es decir, que si el usuario escriba "si" en la celda aparezca "SI".

Muchas gracias!!!!

  • Gerson Pineda changed the title to Validación para mayúscula
Leonardo Briceño Aficionado

Leonardo Briceño

publicado
  • Autor
publicado

Buen día @Gerson Pineda muchas gracias por la propuesta de la macro en el archivo. Me puede funcionar perfectamente. Pero tengo un detalle, la celda donde se debe indicar el SI o el NO, es una rango combinado de celdas, para que se vea grande el dato que no va a estar siempre en la misma posición. Me explico, la hoja donde se requiere esa respuesta es una plantilla que se agrega al libro n cantidad de veces y cada hoja va a tener diferente información por lo que el rango dispuesto para el SI o el NO puede subir o bajar de su posición inicial. Por supuesto, siempre en la misma columna. Ejm, en una hoja puede estar en F8, en otra en F20, en otra en F23.........Como se haría en ese caso? Gracias

Gerson Pineda Mentor

Gerson Pineda

publicado
publicado

Hola Leonardo

Hace 2 horas, Leonardo Briceño dijo:

Por supuesto, siempre en la misma columna. Ejm, en una hoja puede estar en F8, en otra en F20, en otra en F23.........Como se haría en ese caso? Gracias

¿Lograste ver la macro de evento? y si la viste, solo es cosa de adaptar el rango a tu necesidad 

 

Saludos 

Leonardo Briceño Aficionado

Leonardo Briceño

publicado
  • Autor
publicado

Si @Gerson Pineda si la vi. Como te dije antes, la propuesta me puede servir. Está excelente!!! Así escriba en minúscula, se pone en mayúscula automáticamente. Si fuera que la celda para la respuesta SI o NO estuviera siempre en un rango fijo no tengo problema en adaptarla, pero como te mencioné anteriormente, la plantilla u hoja se agrega al libro a través de una hoja macro. Esta hoja base para cargar información puede tener poca o mucha información y dependiendo de eso, la celda donde se debe responder SI o NO puede subir o bajar de su posición inicial. El inconveniente que tengo es que otra macro se activa a través de un botón cuando la respuesta es SI, pero me di cuenta que con si la macro no funciona. Por eso es que pregunté como se haría.

John Jairo V Asiduo a Ayuda Excel

John Jairo V

publicado
publicado

¡Hola, @Leonardo Briceño!

Es claro que con la macro de evento proporcionada por Gerson (un saludo) puedes realizar el cambio de minúsculas a mayúsculas.  Te doy otra alternativa más sencilla que quizá te pueda servir:  Usar fuente tipo versalitas.  Estas fuentes siempre usan mayúsculas en su esencia, así que te evitas la macro.  Si gustas verifica sobre ellas para aplicarlas en tu archivo.  ¡Bendiciones!

Gerson Pineda Mentor

Gerson Pineda

publicado
publicado
Hace 8 horas, Leonardo Briceño dijo:

Si fuera que la celda para la respuesta SI o NO estuviera siempre en un rango fijo no tengo problema en adaptarla, pero como te mencioné anteriormente, la plantilla u hoja se agrega al libro a través de una hoja macro. Esta hoja base para cargar información puede tener poca o mucha información y dependiendo de eso, la celda donde se debe responder SI o NO puede subir o bajar de su posición inicial

Entonces dentro de la macro, modifica para que sea una columna completa, además indicarte que esto es lo que pasa cuando un usuario no sube una muestra en Excel tal cual en su estructura, así que en futuras consultas ya sabes

La opción de @John Jairo V también es buena alternativa

 

Saludos a ambos!

Archivado

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

Ir al listado de temas

  • 109 ¿Te parecen útiles los tips de las funciones? (ver tema completo)

    1. 1. ¿Te parecen útiles los tips de las funciones?


      • Sí
      • No
      • Ni me he fijado en ellos

  • Current Donation Goals

    • Mantenimiento de la comunidad
      Raised 0.00 EUR of 130.00 EUR target

  • Archivos

  • Estadísticas de descargas

    • Archivos
      188
    • Comentarios
      98
    • Revisiones
      29
    Más información sobre "Cambios en el Control Horario"
    Última descarga
    Cambios en el Control Horario
    Por pegones1

    4    1

  • Crear macros Excel

  • Mensajes

    • DiegoPC
      FORMULA PARA BUSCAR DIFERENTES RESULTADOS Y MOSTRARLOS

      Por DiegoPC · publicado

      Hola, veo que tienes 365, así que esta forma funcionará   Almacen.xlsx
    • jues
      Guardar Formulario en PDF

      Por jues · publicado

      Buenos días  @LeandroA espero estes bien Tengo un caso idéntico al planteado en la siguiente pregunta: Sin embargo, a diferencia de quien planteo originalmente la pregunta al correr el código no obtengo ningún resultado podrían ayudarme a resolver este inconveniente y que al hacer click en el Botón Guardar (CommandButton3) del Formulario RCS (frmrcs) el archivo pdf quede configurado con orientación vertical, márgenes superior, inferior, derecho e izquierdo = 1 y en página tamaño carta. Si acaso influye uso Microsoft Excel LTSC MSO (versión 2209 Compilación16.0.1.15629.20200) de 64 bits Mucho le sabre agradecer la ayuda que me pueda dar  RCS PRUEBA - copia.xlsm
    • DiegoLG
      Surtido de Mercancía

      Por DiegoLG · publicado

      @JSDJSDCon gusto mi estimado Para la opción 1: Sub Surtirhastadondealcanse() Dim ws As Worksheet Set ws = ThisWorkbook.Sheets(1) Dim filaInicio As Integer: filaInicio = 4 Dim filaFin As Integer: filaFin = 7 Dim colInventario As Integer: colInventario = 2 Dim colSolicitudesInicio As Integer: colSolicitudesInicio = 4 ' Columna C Dim colResultadoInicio As Integer: colResultadoInicio = 9 ' Columna I Dim colTotalSurtido As Integer: colTotalSurtido = 12 ' Columna L Dim colFinalInventario As Integer: colFinalInventario = 13 ' Columna M Dim numClientes As Integer: numClientes = 3 Dim fila As Integer, i As Integer For fila = filaInicio To filaFin Dim inventario As Double inventario = Val(ws.Cells(fila, colInventario).Value) Dim solicitudes(1 To 3) As Double Dim surtido(1 To 3) As Variant Dim totalSurtido As Double: totalSurtido = 0 ' Leer solicitudes For i = 1 To numClientes If IsNumeric(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) Then solicitudes(i) = CDbl(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) Else solicitudes(i) = 0 End If surtido(i) = "POR FALTA STOCK" Next i ' Surtir de acuerdo al inventario disponible For i = 1 To numClientes If solicitudes(i) > 0 Then If inventario >= solicitudes(i) Then surtido(i) = solicitudes(i) inventario = inventario - solicitudes(i) totalSurtido = totalSurtido + solicitudes(i) ElseIf inventario > 0 Then surtido(i) = inventario totalSurtido = totalSurtido + inventario inventario = 0 Else surtido(i) = "POR FALTA STOCK" End If End If Next i ' Escribir resultados en las columnas correspondientes para cada cliente For i = 1 To numClientes With ws.Cells(fila, colResultadoInicio + i - 1) If surtido(i) = "POR FALTA STOCK" Then .Value = surtido(i) .Font.Color = vbRed Else .Value = surtido(i) .Font.Color = vbBlack End If End With Next i ' Escribir total surtido y existencia final ws.Cells(fila, colTotalSurtido).Value = totalSurtido ws.Cells(fila, colFinalInventario).Value = inventario Next fila MsgBox "Resultado surtido cargado con éxito...", vbInformation End Sub Para la opción 2:   Sub surtirenpartesiguales() Dim ws As Worksheet Set ws = ThisWorkbook.Sheets(1) Dim filaInicio As Integer: filaInicio = 13 Dim filaFin As Integer: filaFin = 16 Dim colInventario As Integer: colInventario = 2 Dim colSolicitudesInicio As Integer: colSolicitudesInicio = 4 ' Columna C Dim colResultadoInicio As Integer: colResultadoInicio = 9 ' Columna I Dim colTotalSurtido As Integer: colTotalSurtido = 12 ' Columna L Dim colFinalInventario As Integer: colFinalInventario = 13 ' Columna M Dim numClientes As Integer: numClientes = 3 Dim fila As Integer, i As Integer For fila = filaInicio To filaFin Dim inventario As Double inventario = Val(ws.Cells(fila, colInventario).Value) Dim solicitudes(1 To 3) As Double Dim surtido(1 To 3) As Variant Dim totalSurtido As Double: totalSurtido = 0 Dim totalPedido As Double: totalPedido = 0 ' Leer solicitudes For i = 1 To numClientes If IsNumeric(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) Then solicitudes(i) = CDbl(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) totalPedido = totalPedido + solicitudes(i) Else solicitudes(i) = 0 End If surtido(i) = 0 Next i ' Si hay suficiente inventario, surtir lo que el cliente pide If inventario >= totalPedido Then For i = 1 To numClientes If solicitudes(i) > 0 And inventario >= solicitudes(i) Then surtido(i) = solicitudes(i) inventario = inventario - solicitudes(i) totalSurtido = totalSurtido + solicitudes(i) End If Next i Else ' Reparto base igualitario Dim baseSurtido As Long baseSurtido = Int(inventario / numClientes) For i = 1 To numClientes If solicitudes(i) > 0 Then If solicitudes(i) <= baseSurtido Then surtido(i) = solicitudes(i) inventario = inventario - solicitudes(i) totalSurtido = totalSurtido + solicitudes(i) Else surtido(i) = baseSurtido inventario = inventario - baseSurtido totalSurtido = totalSurtido + baseSurtido End If End If Next i ' Repartir sobrante restante uno por uno, respetando lo pedido Do While inventario > 0 For i = 1 To numClientes If surtido(i) < solicitudes(i) Then surtido(i) = surtido(i) + 1 totalSurtido = totalSurtido + 1 inventario = inventario - 1 If inventario = 0 Then Exit For End If Next i Loop End If ' Escribir resultados en las columnas correspondientes para cada cliente For i = 1 To numClientes With ws.Cells(fila, colResultadoInicio + i - 1) If surtido(i) = 0 Then .Value = "POR FALTA STOCK" .Font.Color = vbRed Else .Value = surtido(i) .Font.Color = vbBlack End If End With Next i ' Escribir total surtido y existencia final ws.Cells(fila, colTotalSurtido).Value = totalSurtido ws.Cells(fila, colFinalInventario).Value = inventario Next fila MsgBox "Resultado surtido cargado con éxito...", vbInformation End Sub Saludos, Diego
    • jose_alk
      FORMULA PARA BUSCAR DIFERENTES RESULTADOS Y MOSTRARLOS

      Por jose_alk · publicado

      Buenos dias.  Estoy trabajando en una hoja para poder llevar un control de un pequeño almacén.  Tengo un pedido con varias líneas y "lotes" y necesito sacar las ubicaciones que coincidan con la referencia y lote que pone en el pedido. El problema viene cuando tengo la misma referencia y mismo lote en ubicaciones diferentes y necesito sacar la información en columnas diferentes. No se si  me he explicado bien, pero creo que con el ejemplo adjunto se entiende mejor. Agradecería mucho si me pudieran ayudar  Libro1.xlsx
    • jues
      Buscar Datos con un ComboBox

      Por jues · publicado

      Exelente solución mil gracias 

  • Visualizado recientemente

    • No hay usuarios registrado para ver esta página.
×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.