JSDJSD

Tendrías que dar por solucionado el tema ya que JasallBcn te dio solución en otro foro, y si lo ves oportuno compartir la solución en este también.

A mí no me ocurre lo que comentas.

A ver si puedes explicarlo de manera que lo entienda, porque no llego a entender lo que pretendes pon algún ejemplo lo más detallado posible

Y donde se supone que están dichas carpetas?

Sube tu archivo

Por último, yo personalmente añadiría un textbox nuevo para ingresar las entradas y dejaría el que tú tienes solo para informar de las entradas actuales.

He cambiado algo tu formulario. Al abrir el mismo te cargara tantas hojas como tengas creadas (LM28Sep,LM29Sep…..) en el CmbHojaEntrada, en el momento que selecciones una de estas hojas en combobox1 se cargarán todos los productos que tengas en dicha hoja mostrándote en primer producto de la lista así como sus entradas. Con las flechas arriba y abajo puedes desplazarte entre los diferentes productos de la hoja seleccionada y veras que también te muestra sus correspondientes entradas. Por último al pulsar guardar el valor que tengas puesto en Entradas te lo sumará al que tengas en la hoja seleccionada.

Prueba a ver si es lo buscasborradorMacros.xlsb

Prueba a ver si entendí lo queListas.xlsm necesitas

Dejo también la solución dada por Victor 7 en macro por si alguien lo necesita. With Hoja1 For X = 4 To .Cells(Rows.Count, 4).End(xlUp).Row Range("A" & X) = WorksheetFunction.CountIf(.Range("D4", "D" & X), .Cells(X, 4)) Next X End With

Tema solucionado

No te preocupes quedó perfecto tal cual, muchas gracias

Buenas, con que formula podría conseguir un contador en la columna (A) por cada familia que tengamos en la columna (D). Muestro en la tabla como debería funcionar según el Código introducido en la columna (D) Prueba.xlsx

Dejo también la solución con macros en lo cual si me defiendo algo. Private Sub CommandButton1_Click() With Hoja1 For x = 1 To .Range("A" & Rows.Count).End(xlUp).Row Comienzo = Left(.Cells(x, 1), 3) Final = Right(.Cells(x, 1), 4) Resultado = Comienzo & "0000" & Final .Cells(x, 2) = Resultado Next x End With End Sub Tiene alguna diferencia con la formula pero es porque lo he adaptado a nuevas exigencias, es decir pasarlo de nivel 7 a 11, la formula se adapta perfectamente a lo consultado en un principio.

Tema cerrado

Muchas gracias, donde podría conseguir manuales para poder practicar y practicar y pillar un nivel considerable en el tema de formulas , en el cual estoy muy crudo ¡¡¡

Hola a todos, que formula podría utilizar para añadir a un listado de cuentas contables de nivel 7 tres ceros para convertirla a nivel 10 ? Cuenta contable Resultado esperado 4300001 4300000001 4300099 4300000099 4300100 4300000100 4300500 4300000500

Simplemente haces la validación y listo.

Tal cual veo en tu imagen te da error porque el textbox promedio día no tiene ningún valor y en el evento change de textbox hasta tienes esta línea: TotalPDias = CDbl(TotalDPagar) * CDbl(TxtPromedioDia) y a consecuencia de que txtPromedioDia no tiene valor se origina tal error.

Sube tu archivo

El archivoDuda.xlsm

Posible solución

Creo que con lo aportado hasta ahora puedes intentarlo y en caso de no conseguirlo sube un ejemplo completo de los datos a tratar y el resultado esperado.

El archivo Cargar veloz 3 ListBox .xlsm

Prueba ahora