Elsa Matilde

Como mencionas: Yo tengo una macro que toma los datos de la hoja 1 y lo guarda en la hoja 3 (registros), la hoja 2 (inventario) se alimenta de la hoja 3 (registros) Necesitaré que dejes aquí o me lo envíes a mi correo (*) el formulario o el código...

La siguiente macro la tenés que colocar en el objeto HOJA donde vayas a colorear. Private Sub Worksheet_Change(ByVal Target As Range) 'x Elsamatilde 'solo se controla col X If Target.Column <> 24 Then Exit Sub 'para limpiar un rango If Target.Count >...

Te dejo la nueva macro. Probala y me comentás. Sub copiarNvo() 'x Elsamatilde 'opcional: verifica que se esté seleccionando rango en A:C Sheets("PRODUCTOS").Select [A11].Select ActiveSheet.Unprotect Password:="contraseña" If Selection.Row = 1 Or...

Probalo de este modo: Private Sub CommandButton5_Click() 'Nos trasladamos hacia donde estan los dotos Sheets("Registro_ODC_Format").Select 'Seleccionamos el rango con datos- se busca última fila con resultado <> "" x = 10 While...

Dejo macro ajustada. En primer lugar, si se trata de un rango debe ir de este modo: B5:B111 Separando el rango con comas solo le estás indicando que mire en B5 y en B111. Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) Dim fiesta As...

Luego de esta línea: filx = Range("A2").CurrentRegion.Rows.Count + 1 Reemplaza la que sigue por esta otra: Range("A" & ActiveCell.Row & ":C" & ActiveCell.Row).Copy Destination:=Range("A" & filx & ":A" & filx + [E2] - 1) Sdos. Elsa...

Al hacer mi primer prueba dejando el campo producto vacío salta el mensaje ya que encuentra celdas vacías en col B. Por lo que debes agregar estas líneas antes de la evaluación: '''''''''''''' 'EM: si el campo texto queda vacío no avanza If txtProd =...

Está muy bien. Calculas en col D y G del mismo modo que lo haces en la otra hoja en col B y C. Entonces aprovecho para aligerarte aún más el código evitando así el uso de variables auxiliares: If I < 14 Or I > 17 Then 'solo se calcula en fila < 14 y...

El primer error que noto es que dejaste un espacio delante de la letra D en la ruta. Filename:=" D:\PRACTICAS\" & Con eso ya debiera resolverse. Sino revisa que toda la ruta esté bien escrita. Además mira el contenido de la celda que es parte del...

Ahora sí quedó claro ;) Te estoy devolviendo el libro. Ya tiene las hojas actualizadas una vez por lo que los importes han cambiado. Te agregué un mensaje de confirmación antes de eliminar las copias. Si te parece innecesario (los mensajes también...