Clases
1: Instrucción Select...Case para múltiples condiciones
2: Introducción a los Bucles en VBA: Bucle For...Next
3: Bucle For Each...Next para recorrer objetos de una colección
4: Bucle Do...While. Ejecutar mientras se cumple una condición
5: Bucle Do...Until . Ejecutar hasta que se cumpla una condición
6: Implementar un Controlador de errores
7: Procedimientos Sub públicos, privados y cómo ejecutarlos
8: Práctica: Agrupar tablas de varias hojas en una sola
9: Macro optimizada: Agrupar tablas de varias hojas en una sola
10: Funciones definidas por el usuario (UDF)
11: Funciones VBA para manejo de textos
12: Funciones VBA para manejo de Fecha y Hora
13: Funciones VBA de conversión, formato y evaluación
14: Usar Fórmulas y funciones de Excel desde VBA
15: Introducción a los Eventos en VBA y Eventos de libro
16: Introducción a los Eventos en VBA y Eventos de hoja
17: Eventos de Aplicación y eventos no asociados a objetos
Caso práctico: Crear un índice de todas las hojas
Participaciones
MPrado hace 3 meses
If resp = vbYes Then
Application.Dialogs(xlDialogWorkbookName).Show
hoja.Range("A2").Delete
End If
Puesto que en A1 va el título "ÍNDICE", bajamos una posición que es A2, esa es la hoja que se ha incorporado nueva, a la que le hemos cambiado el nombre en caso de que la respuesta es al Msgbox es Sí.
Si no supiera que sería A2, vería como guardaría la primera posición en una variable primeraPosición dentro del Bucle For i Next i con el primer valor de i y en la línea de código de borrar la línea cambiaría "A2" por la variable primeraPosición: hoja.Range( primeraPosición ).Delete
↳ Responder
JuliaBravo490 hace 3 meses
0
Raimundo_Graciano hace 3 meses
En vez de pensar como eliminar la fila, podemos buscar como no agregar ese valor desde un inicio, Claro que nos daremos cuenta despues de haber ejecutado la primera idea de la macro. (Estoy seguro que con el tiempo, al estar practicando las macros podremos anticipar estos detalles)
Ya una vez claro, que deseamos hacer, podemos añadir mas variables para que nos ayuden a hacer la macro.
agregaria una variable
Dim Fila As Integer
'Posicion de inicio
Fila = 2
'For i (iniciamos en 2), para no tomar en cuenta (1) de hoja (indice)
For i = 2 To Cantidad_Hojas
'Usamos el valor de la variable fila
Hoja.Cells(Fila, 1).Value = Sheets(i).Name
'añade 1 posición ó se recorre 1 fila abajo
Fila = Fila + 1
Next i
Tengo que aclarar algo, Consulte AI. Pero lo bonito de esto es que lo entiendo.... Y no lo hubiera entendido sin este curso y/o la academia Deztaca...
A segur practicando y aprendiendo,
Saludos.
↳ Responder
JuliaBravo490 hace 3 meses
Lo valoramos mucho.
Saludos,
Equipo Deztaca
0
Juan Alberto hace 10 meses
↳ Responder
Juan Alberto hace 10 meses
↳ Responder
Juan Alberto hace 10 meses
↳ Responder
JuliaBravo490 hace 10 meses
0
AbelEspi hace 10 meses
Rows("2:2").Select
Selection.Delete Shift:=xlUp
Saludos
↳ Responder
nalattanzio hace 1 año
↳ Responder
Elena-G hace 1 año
Estoy muy emocionada de estar empezando por fin este Curso de Macros y VBA. Me encantan los macros y estoy feliz e impresionada de lo mucho que he resuelto con ellos desde que los conozco.
Una posible opción para eliminar la fila de la hoja índice del listado podría ser, justo antes del End Sub, como último código:
ActiveSheet.Range("A2").Delete
Seguimos aprendiendo!
↳ Responder
SusanaUztariz245 hace 1 año
Otra manera de borrar la fila completa
Dim fila As Integer
fila = 2 ' el numero de fila en este caso
Rows(fila & ":" & fila). Delete
Un poco mas complicado pero puede servir para otros usos.
↳ Responder
JuliaBravo490 hace 1 año
Ver otras opciones es una buena forma de seguir aprendiendo.
Saludos,
Julia
Equipo Deztaca
1
Inicia sesión para dejar tu duda, comentario y/o respuesta