Dante Amor

Prueba con lo siguiente: Private Sub CommandButton1_Click() 'Act.Por.Dante Amor ActiveSheet.Cells(2, 1).EntireRow.Insert mayor = Application.Max(Columns("A")) If mayor < 2000 Then mayor = 2000 Else mayor = mayor + 1 End If ActiveSheet.Cells(2, 1) =...

H o l a: Estoy revisando tu archivo y veo en tu formulario un listbox. Entonces, cómo quieres que funcione. Quieres pasar varios códigos al listbox con el botón ingresar Luego quieres presionar el botón Aceptar y que la macro lea uno por uno los...

H o l a: Olvidemos un momento la macro. Para ayudarte, ¿necesito qué me expliques con detalle qué quieres hacer? ¿Si tienes varios libros abiertos? ¿Para qué quieres almacenar el nombre del libro? etc, etc. Y por último qué quieres lograr con la...

H o l a: Y si tuvieras la información así: Qué es lo que debería pasar a la hoja2, solamente el 500, ¿ya qué es el único que tienes todas las columnas llenas? E spero tus comentarios

H o l a: Te anexo la macro Sub Numerar() 'Por.Dante Amor ini = Application.InputBox("Escribe el número inicial", "NUMERAR", ActiveCell, 8) If ini = False Then Exit Sub If Not IsNumeric(ini) Then Exit Sub fin = Application.InputBox("Escribe el número...

H o l a: ¿De dónde a dónde quieres copiar los archivos? ¿En dónde tienes la lista de los nombres? ¿En una hoja? ¿En cuál columna? ¿En cuál fila empiezan?

H o l a: Envíame tu archivo, la hoja "N1" deberá venir vacía, es decir, solamente con el formato. En otra hoja "x" me pones cómo debería quedar después de presionar el botón. Mi correo [email protected] En el asunto del correo escribe tu nombre de...

Ejecuta la siguiente macro Sub oculta_menu() ExecuteExcel4Macro ("show.toolbar(""ribbon"",0)") End Sub Para mostrar el menú Sub mostrar_menu() ExecuteExcel4Macro ("show.toolbar(""ribbon"",1)") End Sub

H o l a: Me puedes explicar con imágenes y con colores en las imágenes y con comentarios, lo que quieres hacer. Olvídate del código de tu macro, explícame con ejemplos lo que tienes y lo que quieres que aparezca. Como te comenté esta fórmula es...

H o l a: Entra a VBA, selecciona la hoja BD_Perfiles del lado izquierdo, en las propiedades de la hoja, selecciona la propiedad Visible, cambia a XlsheetVisible. Repite los pasos para la hoja BD_Accesos