Jump to content

Haplox

Members
  • Content Count

    2,703
  • Joined

  • Last visited

  • Days Won

    84

Haplox last won the day on December 30 2019

Haplox had the most liked content!

About Haplox

  • Rank
    José
  • Birthday September 16

Profile information

  • Gender
    Hombre
  • Localización:
    Madrid
  • Interests
    Sr. Shrödinger, su gato ha sufrido un accidente. Tengo buenas y malas noticias…

Converted

  • Campos
    ;

Recent Profile Visitors

4,169 profile views
  1. @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?
  2. A partir de esta semana por narices... . Hasta ahora media semana en teletrabajo y media en fábrica. Y sogo vivo!!!
  3. Eso pasa por contestar con prisa. Es exactamente lo que dice @Antoni
  4. @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
  5. Y esta despues Ya te he dicho que me funciona correctamente, si no puedo reducir el problema no puedo hacer nada
  6. @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
  7. 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
  8. 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
  9. 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
  10. De la hoja base no hay rastro... y además cuando la subas, debería representar un ejemplo de cómo quieres que queda
  11. 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?
  12. 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
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png