Jose BN

Diego! desde la primera fila....muchas gracias! Tema resuelto. Saludos

Nada puede hacer el motor de búsqueda de google a tu par Haplox..... nada!!!!!

Hola, [email protected] del foro quisiera solicitarles la colaboración con lo siguiente, tengo un libro en el cual intento copiar datos de una hoja a otra, hasta aquí parecen ir bien las cosas pero quisiera agregar una condición al copiado para que previo a ejecutar este copy revise el rango definido en a hoja origen llamada "Diario" y si detecta celdas vacías genere el aviso de la celda que esta en blanco y no proceda a copiar hasta que todas las celdas se encuentren completas, si esto se cumple copie los datos a la hoja BD. Como ya lo dijo el buen amigo Haplox: "Seguro que de la bola de cristal de los gurus sale algo... Gracias de antemano" Saludos J CONSULTA FORO.xlsm

Mil gracias! Primo Gerson pequeño y obvio detalle...tema resuelto!!! Saludos J

Gersón muy amable tu consideración, comprendo lo que dices. Solo me gustaría insistir para entender porque "de crece" el calculo del porcentaje cuando se supera el valor de "A" como me sucede con el ultimo archivo que compartí. Saludos J

Gersón, JSDJSD & nueva maravilla del perú (Silvia) Muchas gracias! por el soporte! Observó que existe un error en el calculo de la eficiencia, al momento que el dato de "B" es mayor "A" , ejemplo si la cantidad entregada es=92 el resultado a devolver debe ser 101% (92/91=1.01...) pero el código emite un resultado del 99% Viendo el código de Gersón si el valor de A1 es 91 (.Offset ,1) y valor de B1 es 91 (.Offset , -1) el resultado lo realiza correctamente en "C1"=100%, pero si el dato en "B" es mayor los resultados parecen estar incorrectos! o algo debe estar jugando una mala partida en mi equipo .Offset(, 1) = .Offset(, -1) / .Value J

Gerson lo digo por tu gran amigo avalencia He cerrado el excel pero continua igual, algo parece ir mal con los parametros. Si tienes oportunidad de revisar te lo agradezco J 2VARIACION CELDA.xlsm

Hola! Gersón las cosas que salen de honduras son tan maravillosas como el Perú! Se ajusta a lo que andaba buscando, solo una consulta, si cambio el valor máximo a 110 deja de funcionar If .Value > 110 Or .Value < 90 Then En qué pueda estar el fallo. Saludos J

Hola! amigos Quisiera solicitarles ayuda para el siguiente caso, tengo un libro en donde la columna A tiene un valor dado, en la columna B el usuario digita la cantidad real entregada y en la columna C de determina la eficiencia del pedido (B/A), el dato que cambia en la hoja es en la columna B estoy intentando crear una serie de aviso que le resalten las variaciones al usuario cuando el valor de C está por encima o por debajo de los margenes datos (>100 ó <90), hasta ahí creo ir por buen camino (eso espero!): Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Column = 2 Then ThisRow = Target.Row If Target.Value > 100 Then MsgBox "La celda " & Target.Address & " El valor debe corregirse excede los parametros establecidos", vbExclamation, "JBalladares ---- Aviso automático" Range("C" & ThisRow).Interior.ColorIndex = 5 Else If Target.Column = 2 Then ThisRow = Target.Row If Target.Value < 90 Then MsgBox "La celda " & Target.Address & " El valor debe corregirse está por debajo de los parametros establecidos", vbExclamation, "JBalladares ---- Aviso automático" Range("C" & ThisRow).Interior.ColorIndex = 3 Else Range("C" & ThisRow).Interior.ColorIndex = xlColorIndexNone End If End If End If End If End Sub Me gustaría como primer punto que el calculo realizado en la columna C (dividir B/A) se realizará una vez que se digite el dato en B mostrando el resultado como valor. Lo segundo es forzar al usuario a corregir el valor que digito en B si este no cumple los criterios(basado en el resultado de C), si el valor no cumple no le permita continuar digitando datos y lo posicione en la celda que debe corregir si esto es posible. Manteniendo los avisos y rellenos de color expuestos en el código del evento Worksheet_Change mostrado arriba. Agradezco la ayuda que me puedan brindar. Saludos! J VARIACION CELDA.xlsm

Marcos 14 no crees que pueda faltar un poco más de esfuerzo de tu parte? este sitio esta plagado de personas humildes que dedican su tiempo desinteresado para ayudar a los que sabemos tanto o nada(donde me incluyo).

Marcos14 Duda alguna no tengo que los tiros de Antoni deben estar dando en el blanco! El archivo por algunas razones técnicas de mi equipo no me permitieron abrir tu archivo, pero si lo que necesitas es dimensionar hacia la derecha (observa el código abajo), la propuesta que te hice lo hace es solo que debes ajustar al tamaño del textbox llamado Cant que mencionas, como repito asumiendo sin ver tu archivo. Private Sub UserForm_Click() Dim NewHeight As Single NewHeight = Height If NewHeight = Val(Tag) Then 'Height = Val(Tag) * 3 Width = Val(Tag) * 3 Else 'Height = Val(Tag) Width = Val(Tag) End If End Sub Te comparto unos ejemplos de redimensionar form por si te son de utilidad o bien sean funcionales para adaptar a tu necesidad. De no ser útil la propuesta no dudo que el gran Antoni se luzca por estos rumbos! Saludos JB Auto ajustar form.xlsm

Private Sub UserForm_Activate() UserForm1.Caption = "Click r!" Tag = Height ' Mantener el tamaño inicial. End Sub Private Sub UserForm_Click() Dim NewHeight As Single NewHeight = Height If NewHeight = Val(Tag) Then Height = Val(Tag) * 2 Else Height = Val(Tag) End If End Sub Private Sub UserForm_Resize() UserForm1.Caption = "New Height: " & Height & " " & "Click to resize me!" End Sub Marcos14 Al dar clic sobre el formulario verás el cambio y como este retorna su tamaño inicial en el segundo clic , espero te pueda ser útil. Saludos

A ver si es esto: Private Sub UserForm_Initialize() Application.WindowState = xlMaximized Me.Width = Application.Width Me.Height = Application.Height End Sub especificar el tamaño del UserForm en una macro Programe el tamaño adecuado del UserForm en la macro siguiendo estos pasos: Haga clic con el botón secundario en el UserFormy luego haga clic en Ver código. En su macro de UserForm, siga estos pasos: Escriba UserForm1. Height = número, donde número es un número entre 0 y + 32.767. Los valores más altos también pueden funcionar, dependiendo de la configuración del sistema. Escriba UserForm1. width = Number, donde Number es un número entre 0 y + 32.767. Los valores más altos también pueden funcionar, dependiendo de la configuración del sistema.

En el archivo que envió JSDJSD cuando seleccionas el negativo obtienes el consecutivo es lo que entendí que buscas? Private Sub optbtn_negativo_Click() Estado = "Negativo" Max = WorksheetFunction.Max(Hoja1.Range("A2:A" & Uf)) Call UFila Me.LblID.Caption = CDbl(Max) + 1 End Sub pero los tiros continúan en el aire!!!!

Esto es obra del gran Antoni! Creo que lo que te hace falta es la parte final para dar el formato a la suma: For i = 0 To ListBox1.ListCount - 1 Suma = Suma + CCur(ListBox1.List(i, 4)) Next TotalTickquet.Text = FormatCurrency(Suma)