Тёмный

ELIMINAR ARCHIVOS 🚮 con Excel de forma masiva. Curso de Excel Experto 

Aprendiz de Excel
Подписаться 20 тыс.
Просмотров 1,5 тыс.
50% 1

Tutorial para eliminar archivos de forma masiva mediante un sencillo código (macro) de Visual Basic (VBA).
La macro utilizada:
------------------
Sub EliminarArchivos()
' / aprendizdeexcel
Dim RutaArchivo, chequeo1, chequeo2 As String
Sheets("Eliminar").Select
chequeo1 = Range("N1").Value
For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
RutaArchivo = Range("A" & i).Value
If chequeo1 = "Verdadero" Then
chequeo2 = MsgBox("¿Quieres eliminar el archivo? " & RutaArchivo, vbYesNo + vbQuestion, "Aprendiz de Excel")
If chequeo2 = vbYes Then
Kill RutaArchivo
Else
End If
Else
Kill RutaActual
End If
Next
----------------
Para descargar la plantilla debéis SUSCRIBIROS al canal, darle me gusta al vídeo y COMENTAR EN EL VÍDEO DE RU-vid que queréis la plantilla. El enlace de descarga funcionará a partir de ese momento (pestaña archivo y descargar):
drive.google.com/file/d/1sKJQ...
Índice:
0:00 Introducción
2:30 Código VBA eliminar archivos
9:44 Probar código

Опубликовано:

 

2 авг 2024

Поделиться:

Ссылка:

Скачать:

Готовим ссылку...

Добавить в:

Мой плейлист
Посмотреть позже
Комментарии : 25   
@user-mq2wm8bx6g
@user-mq2wm8bx6g 5 месяцев назад
Excelente explicación
@AprendizdeExcel
@AprendizdeExcel 5 месяцев назад
Gracias!
@victorochoa9126
@victorochoa9126 5 месяцев назад
Buen video
@ClaudioJeppesen
@ClaudioJeppesen 10 месяцев назад
Gracias
@diegomonroy2185
@diegomonroy2185 4 месяца назад
🙌
@user-gt2qo8yd4b
@user-gt2qo8yd4b 6 месяцев назад
increible gracias!!
@AprendizdeExcel
@AprendizdeExcel 6 месяцев назад
Gracias 😊
@Music6581
@Music6581 6 месяцев назад
Gracias Bro!
@AprendizdeExcel
@AprendizdeExcel 6 месяцев назад
😉
@JoseVega-Trecha
@JoseVega-Trecha Год назад
Muy buena macro, sencilla, efectiva pero peligrosa, menos mal que pones dos chequeos, pero puedes armar un buen estropicio sin remisión. Saludos. Quiero la macro por favor, quien dijo miedo si hay hospitales.😅😅😅👏👏👈👨‍🏫
@AprendizdeExcel
@AprendizdeExcel Год назад
Gracias Jose! Esta macro la carga el diablo 😅 Yo personalmente prefiero moverlos con macro a una carpeta y eliminarlos Sub EliminarArchivos() 'ru-vid.com Dim RutaArchivo, chequeo1, chequeo2 As String Sheets("Eliminar").Select chequeo1 = Range("N1").Value For i = 2 To Range("A" & Rows.Count).End(xlUp).Row RutaArchivo = Range("A" & i).Value If chequeo1 = "Verdadero" Then chequeo2 = MsgBox("¿Quieres eliminar el archivo? " & RutaArchivo, vbYesNo + vbQuestion, "Aprendiz de Excel") If chequeo2 = vbYes Then Kill RutaArchivo Else End If Else Kill RutaActual End If Next
@cprietok
@cprietok Год назад
Me salvaste la vida con esta rutina
@AprendizdeExcel
@AprendizdeExcel Год назад
Genial!! Pero ten cuidado que la carga el diablo 😈
@ludok1959
@ludok1959 8 месяцев назад
Buenas, excelente rutina, quiero la plantilla. Gracias
@AprendizdeExcel
@AprendizdeExcel 8 месяцев назад
Gracias!
@user-xv9cl8gs5j
@user-xv9cl8gs5j 11 месяцев назад
Excelente y bien explicado, estaba buscando resto hace mucho.
@AprendizdeExcel
@AprendizdeExcel 11 месяцев назад
Gracias!!
@freimaralvarez6964
@freimaralvarez6964 6 месяцев назад
excelente
@emilioalonso577
@emilioalonso577 Год назад
Hola, Excelente tutorial, muchisimas gracias. Solo comentarte lo que creo que debes corregir en lo que, en esta página, titulas como la macro utilizada": Debes sustituir "Kill RutaActual" por "Kill RutaArchivo" Incluir al final un "End Sub" Muchas gracias y ánimo para continuar. (por ejemplo, esto mismo pero para carpetas\subcarpetas)
@AprendizdeExcel
@AprendizdeExcel Год назад
Gracias Emilio! Corregido el error. Lo apunto para el tintero, se me acumulan las peticiones 😅
@AprendizdeExcel
@AprendizdeExcel Год назад
Si te ha gustado este vídeo puedes ver más en el Curso de Excel avanzado 🔥🔥🔥 cutt.ly/JnHy9yG Sub EliminarArchivos() 'ru-vid.com Dim RutaArchivo, chequeo1, chequeo2 As String Sheets("Eliminar").Select chequeo1 = Range("N1").Value For i = 2 To Range("A" & Rows.Count).End(xlUp).Row RutaArchivo = Range("A" & i).Value If chequeo1 = "Verdadero" Then chequeo2 = MsgBox("¿Quieres eliminar el archivo? " & RutaArchivo, vbYesNo + vbQuestion, "Aprendiz de Excel") If chequeo2 = vbYes Then Kill RutaArchivo Else End If Else Kill RutaArchivo End If Next
@user-gt2qo8yd4b
@user-gt2qo8yd4b 6 месяцев назад
quisiera la plantilla
@carolinaflorezpalacio572
@carolinaflorezpalacio572 Год назад
Hola, buenos días. Me ha sido de mucha utilidad la macro, pero no funciona si quito el chequeo para que ejecute directamente la macro sin preguntar. Mil gracias por tu ayuda
@AprendizdeExcel
@AprendizdeExcel Год назад
¿Cómo has quitado el chequeo? ¿qué código has dejado exactamente?
@alonsopful
@alonsopful 6 месяцев назад
igual me paso a mi, no me funciona el chequeo@@AprendizdeExcel
Далее
ISFILTERED EN DAX POWER BI
13:09
Просмотров 117
EASILY Make an Automated Data Entry Form in Excel
14:52
Highlight Active Row & Column in Excel (7 Levels)
22:56
Learn Excel VBA to Automate Anything
14:02
Просмотров 389 тыс.