Dante Amor

H o l a: Me perdí un poco con la explicación, no entendí si tienes 2 libro o 3 libros. Podrías enviarme la información, con ejemplos reales, con comentarios y colores me explicas qué quieres enviar y en dónde lo quieres poner. Entre más claro y...

H o l a: Según tu ejemplo, los nombres de hojas deben ser así: Hoja(1), Hoja(2), Hoja(3)... Hoja(15), es decir, el número va entre paréntesis. Pon la siguiente macro en los eventos de la Hoja(1). Private Sub Worksheet_Change(ByVal Target As Range)...

Puedes pegar la macro para revisarla. También escribe cómo se llama la otra hoja y cuál sería el rango de celdas.

H o l a: En un correo nuevo envíame tu archivo y me explicas con ejemplos lo que necesitas.

H o l a Pero los libros que vas a abrir son versión 2007, entonces debes poner xls* Prueba con lo siguiente y me comentas: Sub AbreLibros() libro1 = ActiveWorkbook.Name 'se abren todos los libros de extensión xlsm de la carpeta indicada ruta =...

H o l a: Te anexo el código para ingresar Private Sub btn_Registrar_Click() 'Por.Dante Amor titulo = "Gestor de Inventarios" If txtUsuario = "" Then MsgBox "Captura el usuario", vbExclamation, titulo txtUsuario.SetFocus Exit Sub End If If txtPassword...

H o l a: Te anexo una macro Sub CombinarCeldas() 'Por.Dante Amor Application.ScreenUpdating = False Application.DisplayAlerts = False ini = 1 ant = Cells(ini, "A") For i = ini To Range("A" & Rows.Count).End(xlUp).Row + 1 If ant <> Cells(i, "A") Then...

Te anexo la primera parte para agregar usuarios y su imagen. Private Sub CommandButton1_Click() 'Act.Por.Dante Amor Set b = Hoja6.Columns("A").Find(txt_nUser, lookat:=xlWhole) If Not b Is Nothing Then MsgBox "El usuario ya existe" & vbCr & "Ingrese...

H o l a: Envíame en un correo nuevo tu archivo, dentro del archivo me explicas con comentarios y colores lo que necesitas. R ecuerda poner tu nombre de usuario en el asunto.

H o l a: Mejor explícame con los ejemplos que pusiste en la imagen. Cuál hoja es la que tiene los datosCuál hoja es la que quieres actualizarQué tienes en la hoja destinoY qué es lo que esperas de resultado.