Haplox

@suprema , el que en la fila 4 tengas datos y no total (igual que en la fila 8, donde solo tienes un 1) ¿Es así o siempre debería aparecer el Total? ¿Y porqué no son valores, sino referencias a otro libro?

A partir de esta semana por narices... . Hasta ahora media semana en teletrabajo y media en fábrica. Y sogo vivo!!!

Eso pasa por contestar con prisa. Es exactamente lo que dice @Antoni

@Mariela Lopez solo debes poner un condicional con una salida de la macro: If movimiento = "ingresos por transferencia" Then MsgBox "No funciona por lo que sea..." End Sub End If

Y esta despues Ya te he dicho que me funciona correctamente, si no puedo reducir el problema no puedo hacer nada

La imagen de arriba es ANTES y esta el CAMBIO

Pues de nada hombre...

@vinzent , sustituye tu código con el siguiente (o copia solo la parte nueva): Sub SepararColumnas() Dim uC&, uF& Sheets("Simple Order").Select Range("AF1").Value = "Part_Number" Columns("AF:AF").Select Selection.TextToColumns Destination:=Range("AF1"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _ Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _ :=Array(1, 1), TrailingMinusNumbers:=True 'CONTAMOS FILAS Y COLUMNAS FINALES' ActiveSheet.UsedRange.Select uC = Selection.Columns.Count uF = Selection.Rows.Count 'PASAMOS EL TÍTULO Y AJUSTAMOS ANCHO DE COLUMNA' Range(Cells(1, "Ag"), Cells(1, uC)).Value = "Part_Number" Range(Cells(1, "Ag"), Cells(uF, uC)).Columns.AutoFit 'PASAMOS NOMBRE A LAS OTRAS 2 COLUMNAS' Cells(1, uC + 1) = "Notes" Cells(1, uC + 2) = "Status" End Sub

Lo siento, FUNCIONA PERFECTAMENTE en las pruebas que hice. No es el primer fichero que te paso funcionando y que al adaptarlo tú a tu fichero NO FUNCIONA. Ya tienes todo el código necesario para rastrear el error. Por lo que dices es que no no encuentra el producto seleccionado en el comobobox, y viendo tu macro (por enésima vez), lo coges de la hoja PRECIOS INGREDIENTES. No he puesto ningún control de error porque se supone que siempre lo encontrará. En tus archivos lo ube con columnas ocultas y demás. Rastrea por donde te digo. El último código que dejo: Private Sub Worksheet_Change(ByVal Target As Range) Dim prod$, uFo&, uFd& Dim pro_d As Range uFo = Range("F" & Rows.Count).End(xlUp).Row prod = TempCombo If Application.Intersect(Target, Range("F6:F" & uFo)) Is Nothing Then Exit Sub End If If Target.Offset(, 8) > 0 Then With Sheets("PRECIOS INGREDIENTES") uFd = .Range("A" & Rows.Count).End(xlUp).Row Set pro_d = .Range("A5:A" & uFd).Find(prod) If Not pro_d Is Nothing Then pro_d.Offset(, 6) = Target.Offset(, 8) Else MsgBox "Producto no encontrado", vbInformation, "Error de producto" Exit Sub End If End With End If End Sub

Difícil si subes un archivo protegido con user/pass y con decenas de formularios ¿A cuál te refieres? . De mnomento prueba cambiando a: Do Until BD.Range("Z" & x_Busco) <> ES_circuito.Row

A ver si ahora sí... la macro se ejecuta al poner el valor de "PESO NETO EN ME" en la columna "F" (porque tienes otra en "J" ), asíque siempre debes poner el valor en esa columna "F", aunque sea 0 Copia de RECETA AYUDA EXCEL-2.zip

De la hoja base no hay rastro... y además cuando la subas, debería representar un ejemplo de cómo quieres que queda

Dime como funciona esto, porque al seleccionar el ingrediente NO se hace ningún cálculo. Esto es para poder el evento Calculate de la hoja. ¿Metes tú algún dato a mano para calcular después de seleccionar el ingrediente?

Solo por encima, pero veo que el copy/paste te da problemas... tu macro Hay que darle una vualta, pues unos eventos interfieren con otros