Saltar al contenido
View in the app

A better way to browse. Learn more.

Ayuda Excel

A full-screen app on your home screen with push notifications, badges and more.

To install this app on iOS and iPadOS
  1. Tap the Share icon in Safari
  2. Scroll the menu and tap Add to Home Screen.
  3. Tap Add in the top-right corner.
To install this app on Android
  1. Tap the 3-dot menu (⋮) in the top-right corner of the browser.
  2. Tap Add to Home screen or Install app.
  3. Confirm by tapping Install.

Macro para filtrar contenidos

publicado

Hola.

Actualmente estoy utilizando una macro para filtrar contenidos pero como la base de datos se ha hecho bastante grande tarda mas de cinco minutos en ejecutarla.

Sub Borrado_Articulos_filtro()

Dim FILAFINAL As Long

Dim X As Long

Sheets(1).Select

FILAFINAL = Sheets(1).Range("A" & Rows.Count).End(xlUp).Row

For X = FILAFINAL To 2 Step -1

'VALORES COLUMNA H

If Sheets(1).Cells(X, 8) = "CG346A" Then

Cells(X, 1).Select

Cells(X, 1).EntireRow.Delete

End If

If Sheets(1).Cells(X, 8) = "ARTICULO 1" Then

Cells(X, 1).Select

Cells(X, 1).EntireRow.Delete

End If

If Sheets(1).Cells(X, 8) = "ARTICULO 2" Then

Cells(X, 1).Select

Cells(X, 1).EntireRow.Delete

End If

If Sheets(1).Cells(X, 8) = "ARTICULO 3" Then

Cells(X, 1).Select

Cells(X, 1).EntireRow.Delete

End If

If Sheets(1).Cells(X, 8) = "ARTICULO 4" Then

Cells(X, 1).Select

Cells(X, 1).EntireRow.Delete

End If

Next X

End Sub

La pregunta es:

Alguien me puede facilitar una macro que haga la misma función a través de un array de articulos u otro sistema pero que no tarde tanto en ejecutarse?

Featured Replies

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

Configure browser push notifications

Chrome (Android)
  1. Tap the lock icon next to the address bar.
  2. Tap Permissions → Notifications.
  3. Adjust your preference.
Chrome (Desktop)
  1. Click the padlock icon in the address bar.
  2. Select Site settings.
  3. Find Notifications and adjust your preference.