Leaderboard

amigo @eugeniocol, revisa el anexo, coloque dos formas de hacerlo, hay muchas formas de hacerlo, pero la forma como esta en tu macro, pues es la peor jejeje, suerte Foro copia con criterio.xlsm

¡Hola, a ambos! Revisa el adjunto, donde propongo una opción con formulación y formato condicional. ¡Bendiciones! Unificar.xlsx

¡Hola, de nuevo! Revisa el adjunto, con la modificación de acuerdo con lo nuevo que pides. ¡Bendiciones! Libro1Ejemplo.xlsx

Gerson gracias por tu aporte,y gracias por hacerte disponible a ayudar,tengo apenas semanas practicando y me surgen muchas dudas,ya hice mi primera medida con calculate y sumx sencillo ya que he visto que se combinan con funciones nivel superior,espero llegar a esos niveles,me quede enganchado,ya no veo la TD como antes con las medidas he podido hacer cosas que no sin ellas,ejemplo al colocar un campo varias veces pero digamos una para promedio y otra para suma y le cambias el nombre se cambia el nombre para las 2 columnas eso me frustraba,con las medidas quede muy satisfecho,lo dicho seguiré practicando y espero contar con esta comunidad como hasta ahora saludos cordiales ,tema cerrado

Que genio! Se complica mucho calcular el tiempo entre 2 estados en particular seleccionados por mi?

joe muchas gracias me obsesioné poniendo .Range en vez de coma, y también con el rango de la celda Muchas gracias

Prueba esto Sub ActualizaExistencias() Dim c As Range, Registros As Object Dim celda Set c = Hoja1.Range("D3:F" & Hoja1.Range("c" & Rows.Count).End(xlUp).Row) c.ClearContents On Error Resume Next Set Registros = CreateObject("Scripting.Dictionary") Set c = Hoja3.Range("B3:B" & Hoja1.Range("B" & Rows.Count).End(xlUp).Row) For Each celda In c With celda If CInt(.Offset(, 6)) > 0 Then Registros.Add .Text & .Offset(, 1).Text & "@" & _ .Offset(, 2).Text & "@" & .Offset(, 3).Text, .Offset(, 6).Text End If End With Next Set c = Hoja1.Range("B3:B" & Hoja1.Range("B" & Rows.Count).End(xlUp).Row) For Each celda In c With celda For Each key In Registros.Keys Dim mArray mArray = Split(key, "@") If mArray(0) = .Text & .Offset(, 1).Text Then .Offset(, 2).Value = mArray(1) .Offset(, 3).Value = mArray(2) .Offset(, 4).Value = Registros(key) Registros.Remove (key) Exit For End If Next key End With Next Set Registros = Nothing MsgBox "Existencias actualizadas" End Sub

¡Hola, @SALAVERRINO! Basta con que uses la siguiente fórmula: =TRUNCAR(C4;1) Dando formato a la celda para que muestre dos decimales. Nota: Mi separador de argumentos es ";". Si no es el tuyo, cámbialo por "," o por el que maneje tu sistema. ¡Bendiciones!

Nick Pues enhorabuena! Respecto a tu observación, en efecto falla la formula, pero haciendo cambio de función, creo da el resultado esperado =IF(DAY(Tabla1[Fecha Pedido])<8,1,ROUNDUP(DAY(Tabla1[Fecha Pedido])/7,0)) Modifica y prueba Saludos

Hola, de nuevo! Entonces, bastaría con esto: =SUMA(N(MMULT(N(CONTAR.SI(DESREF(B$2:G$2;FILA(B$2:B$33)-FILA(B$2););$K2:$P2)>0);{1;1;1;1;1;1})={3\4})) Bendiciones!

soy fanático de los "no bucles" (cuando se puede) y esta pudiera ser una alternativa viable (?) Sub FasterJoin() With Range("a3:a" & Cells(Rows.Count, 5).End(xlUp).Row) .Formula = "=""'""&text(e3,""ddmm"")&year(e3)&right(""0000000000""&h3,10)&right(""0000000000""&i3,10)&j3&k3" .Offset(, 1).Formula = "=g3&k3" With .Resize(, 2): .Value = .Value: End With End With End Sub

Hola Abraham gracias por tu tiempo, hice la prueba instalando MySQL y con el mismo código guarda todo super rápido, creo que era la base de datos. Ahora tengo la duda para poder acceder a la base de datos desde otro equipo en mi red, pero iniciare otro tema distinto, doy este por cerrado.

Holas! Nick Las semanas continuas son correctas, pero lo que tu deseas se debe armar, la TD no puede mostrar algo que no tiene, debemos hacerlo de una u otra forma, para ponerlo a disposición Lo que hice fue agregar una columna adicional [Columna Calculada] y listo, revisa el adjunto Saludos a ambos Segmentadores por semanas de mes_GP.zip

Ya no se que decir 😅

Pon la propiedad ShowModal=False en el formulario o muéstralo así: UserForm1.Show vbModeless

Y coloca la pregunta en todos los foros en castellano, a pesar de que ya le hemos dicho que no es necesario ya que varios somo usuarios concurrentes de varios de esos foros. Un poco de paciencia y lectura le vendrían bien a nuestro amigo. OJO, no es deseo de no ayudarlo, al contrario, que se ordene un poco para que sea más fácil hacerlo. Abraham Valencia

si entiendo bien, lo que pretendes es... - buscar un archivo *.pdf cuyo nombre contenga el texto de la "ActiveCell" - partiendo de una ruta "de base" (EN RED) incluyendo cualquier (posible) sub-carpeta - una vez localizado (cualquiera este sea), abrirlo con el lector pdf de acrobat pregunta de base: si hubiera dos archivos (o más) que cumplen la condición (parcial) del nombre... - cómo aseguras que "el primero" (que se encuentre) ES/ERA el que espera(ba)s encontrar ?

Hola No me queda claro, o sea ¿quieres listar todos los archivos de esa carpeta y sus sub carpetas siempre y cuando sean pdf? y que además de eso ¿se conviertan en hipervínculos? Abraham Valencia

Última oferta. Parking control II.xlsm

Saludos @MAURO_1512, el siguiente código hace lo que necesitas Sub Procesar() Dim nFilFin As Double Dim rCelda As Range Dim n As Integer Dim sTexto As String Dim nCol As Double Dim nFil As Double Application.EnableEvents = False Application.ScreenUpdating = False Application.Calculation = xlCalculationManual nFilFin = Range("A" & Rows.Count).End(xlUp).Row For Each rCelda In Range("A2:A" & nFilFin) For n = 1 To Len(rCelda.Value) sTexto = Replace(rCelda.Value, Mid(rCelda, n, 1), "") If Len(sTexto) <= (Len(rCelda.Value) - 2) Then nCol = CDbl(Mid(rCelda, n, 1)) nFil = Range("A" & Rows.Count).Offset(0, nCol + 1).End(xlUp).Row + 1 Range("A1").Offset(nFil - 1, nCol + 1).Value = CDbl(sTexto) Exit For End If Next n Next Application.EnableEvents = True Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub

Tienes un error de concepto, por eso no consigues hacer lo que quieres. Los formularios no son formas que están en una hoja, de hecho son objetos independientes de Excel que se muestran por encima de este. Por lo tanto cuando se muestran verás la hoja activada en ese momento detrás del formulario. Si tu muestras el formulario al abrir el archivo (Evento Workbook_Open de Workbook en Thisworkbook) verás el formulario por encima de la hoja activa en el momento de guardar por última vez el archivo. Si quieres que el formulario aparezca por encima de una hoja en concreto, actívala antes de mostrarlo. Sheets("Nombre de la hoja").Activate Userform1.Show 'O Mensaje.Show o el nombre del formulario a mostrar .

Antoni del tiempo que tengo de visitar el foro tú y el resto del equipo son seres extraordinarios de gran voluntad y bondad; solo espero que a veces no se pierda la buena acción de ayudar a una persona verdaderamente desorientado. Mis más cordiales saludos; JB

Hola @Rafus99[/uSER]'][uSER=209110]@Rafus99[/uSER] ! Te dejo otra opción ya que hace tiempo leí que los nombres de rango, por precaución, deben ser eliminados antes de volverlos a definir. Mira el archivo que te envío y comenta. Mis respetos para @ gerson-pineda[/uSER]'][uSER=9328]@ gerson-pineda[/uSER]! Que tengan un buen día! Abrazo! poner_nombre.xls