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

Viendo tu hoja entiendo que podrías utilizar fórmula aquí en lugar de código. Cuando se necesita obtener resultado a la izquierda del dato buscado necesitas 2 funciones: INDICE y COINCIDIR. En la imagen marqué de azul la fórmula que te devuelve los...

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