Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis

trabajar con hoja oculta sin mostrarla.

exceljuan

Active member
Registrado
6 Jul 2022
Mensajes
166
Hola a todos, vengo con una nueva petición, porque no encuentro nada que funcione y prácticamente toda la inf. que encuentro es como ocultar y mostrar hojas :(

La cuestión, quiero copiar unas...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 
Solución
Si quieres mantener tus tablas, otra opción es que recorras la tabla de abajo hacia arriba, si en la columna "i" es igual a "Si" entonces la copias a "Histórico" y la borras.

Va la macro para recorrer de la última fila hacia arriba de la hoja "Pendientes", si es igual a "Si" la copia a "Histórico" y la borra de "Pendientes":

Código:
Option Explicit

Sub Enviar_de_Pendientes_a_Historico()
 ' Dante Amor M
  Dim sh1 As Worksheet, sh2 As Worksheet
  Dim Rpta As VbMsgBoxResult
  Dim filasconsi As Long, i As Long, nRow As Long
  Dim tbla As ListObject, tblb As ListObject
  
  Application.ScreenUpdating = False
  Application.DisplayAlerts = False
 
  Set sh1 = Sheets("Pendientes")
  Set sh2 = Sheets("Histórico")
  Set tbla =...

Adjuntos

Adjuntos

Adjuntos

Hola @Dante Amor M
Tu código funciona perfectamente. Ya lo implemente en todas las hojas para enviar de: "Entrada Averias a Histórico" "Entrada Averias a Pendientes" y de...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 

Adjuntos

  • Captura de pantalla 2023-03-13 185224.webp
    Captura de pantalla 2023-03-13 185224.webp
    6,8 KB · Visitas: 2
Vuelvo a necesitar de vuestra ayuda, inicialmente funcionaba bien, pero no se porqué la hoja de Entrada averías > el botón que envía las averías pdte. a la hoja pendientes me da error en la línea...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 

Adjuntos

Si la tabla de "pendientes" está vacía, la propiedad DataBodyRange tiene un comportamiento diferente, entonces hay que controlar cuando la tabla está vacía y cuando ya tiene más de un registro...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 
Volver
Arriba