Dante Amor

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

Te ajusté la macro para buscar con el método Find( ) y te agregué un ciclo For para agregar las columnas de la A al J. Nota: Tu listbox deberá tener en la propiedad ColumnCount =10 El código: Private Sub btn_Buscar_Click() 'Por Dante Amor ' If...

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

Te anexo la macro Sub Eliminar_Filas() 'Por.Dante Amor Application.ScreenUpdating = False With Application.FileDialog(msoFileDialogFilePicker) .Title = "Seleccione archivo de excel" .Filters.Clear .Filters.Add "Archivo de excel", "*.xls*"...

Te anexo la macro actualizada Function ValidarAutofiltro_Tabla(Hoja As String, Tabla As String) On Error Resume Next Sheets(Hoja).Select 'Si ninguna columna de la tabla tiene filtro, se lo pone. If Sheets(Hoja).AutoFilter.Filters.Count = 0 Then...

Te anexo la macro. Cambia en esta línea de la macro "Hoja1" por el nombre de hoja que deseas copiar: Set h1 = Sheets("Hoja1") Sub Crear_Hoja() 'Por.Dante Amor ' nombre = InputBox("Escribe el nombre de la nueva hoja : ", "CREAR NUEVA HOJA") If nombre...