Elsa Matilde

Ya tengo el libro... pero dejaste el Editor bloqueado ;( Sdos. Elsa http://aplicaexcel.com/index.htm

Te dejo un código para el pase a la hoja activa. Le faltarían controles de contenido pero si resuelve tu consulta ;) Private Sub CommandButton1_Click() 'pase a la hoja activa 'x Elsamatilde 'control de filas If [C16] <> "" Then MsgBox "Se llegó al...

Hasta el día 23 tenías formato fecha, luego seguiste con un formato personalizado: Hacé lo siguiente: en hoja Tareas, tomá la celda B8 y arrastrala hacia abajo hasta completar los otros días. Luego escribí nuevamente la de dbre.

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 =...