Dante Amor

Puedes explicar con imágenes y con ejemplos, lo que tienes, en dónde están los hijos, en dónde vas a poner al padre y en dónde quieres el resultado. Procura que en las imágenes se vean las filas y las columnas de excel

Te anexo una versión para enviar el libro activo. Completa la macro con lo siguiente: "nuevo" por el nombre del archivo que quieras ponerle "Asunto" por el asunto que quieras que lleve el corre "[email protected]" por el correo del destinatario Sub...

Te anexo la macro Sub Macro1() 'Por.Dante Amor u = Range("A" & Rows.Count).End(xlUp).Row With Range("C1:C" & u) .FormulaR1C1 = "=IF(RC[-2]=""Bajado"",""Si"", ""No"")" .Value = .Value End With End Sub . 'S aludos. Dante Amor. Recuerda valorar la...

Tengo que revisar toda la macro y ver cómo tienes tus datos en las hojas. Envíame tu archivo para actualizar tu macro. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Andres zu”

Cambia tu línea por esto: u = 9 Do While Worksheets(3).Cells(u, "A") <> "" u = u + 1 Loop En la variable u tendrás la siguiente fila vacía después de la última fila con datos. Solamente como comentario, cuando utilizas usedrange, se refiere a todo el...

Intenta con las siguientes: Range("A1").CurrentRegion.Borders.LineStyle = xlContinuous O con esta: ActiveSheet.UsedRange.Borders.LineStyle = xlContinuous o con esta: uf = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row uc =...

Revisa el siguiente enlace http://foro.todoexcel.com//macros/ayuda-datagrid-t19989.html Pero me parece que el datagrid tienes que adquirirlo. O también puedes insertar el control de ListView. Sal u dos

Ejecuta la siguiente macro Sub Copiar_Columna_A() 'Por.Dante Amor Application.ScreenUpdating = False u = Range("A" & Rows.Count).End(xlUp).Row Range("A2:A" & u).Copy Range("B2").PasteSpecial xlValues Application.CutCopyMode = False...

Es una idea, algo laboriosa, pero funciona. Tienes que crear un userform con un listbox, un botón para cargar los archivos y otro botón para insertar las imágenes seleccionadas a la hoja: Podrías cargar todos los archivos de la carpeta en una hoja y...

Supongo que en la fila 1 tienes tus encabezados, entonces podría ser así: x1.Range("A1:K" & ultimo6).Select Selection.AutoFilter Selection.AutoFilter Field:=2, Criteria1:=matb, Operator:=xlAnd ' If x1.Range("B" & Rows.Count).End(xlUp).Row = 1 Then...