Saltar al contenido

Macro para copiar hoja de excel


Recommended Posts

publicado

Hola buenos dias, TENGO LA SIGUIENTE MACRO:

Sub ValuacionJJG1()

'

' ValuacionJJG1 Macro

' 'Replace "VALUACION (23)" with the name of the sheet to be copied.

ActiveWorkbook.Sheets("VALUACION (23)").Copy _

after:=ActiveWorkbook.Sheets("VALUACION (23)")

'

End Sub

Duda, quisiera modificarla de tal manera que la proxima vez que la utilice en vez de copiar VALUACION 23 copie la valuacion 24 con datos ya modificados y asi sucesivamente. Espero que me ayuden, y les sea interesante el tema. Gracias de antemano.

publicado

Buenas, Diego

Adjunta un archivo ejemplo y detalla desde donde la ejecutarías, si desde una Hoja tipo plantilla ó desde la anterior Hoja de VALUACION.

Un saludo,

Tese

publicado

Hola gracias por responder, pero ya salucione mi problema. ahora tengo otro y espero que puedas ayudarme, quiero copiar el valor de una casilla en la que le sigue debajo, luego el valor de esa casilla de abajo en la que le sigue consecutiva. Gracias

publicado

Adjunta el archivo ejemplo.....son las normas del foro.

Si no será difícil que alguien te pueda ayudar.

Un saludo,

Tese

publicado

Sub Fecha()

'

' Fecha Macro

'

Range("A12").Copy Destination:=Range("A13")

End Sub

No puedo subir datos abjuntos no se porque, pero ese es el macro que tengo, mi duda es que lo quiero modificar para cada vez que lo ejecute copie lo que esta en la casilla de arriba en la casilla que le sigue debajo. muchas gracias

publicado

Los archivos los debes subir con extensión ".xls" ó bien comprimidos en ".zip" ó ".rar".

De todos modos, si lo que quieres es simplemente que seleccionada una celda, la de abajo tenga el mismo valor, tienes 2 opciones:

1.- Sin Macro. Arrastra de la cruz que aparece en la celda en la parte de abajo a la derecha hacia abajo y te lo copiará.

2.- Con código:

Activecell.Offset(1,0)= Activecell.value[/CODE]

Un saludo,

Tese

publicado

Hola tese1969 necesito tu ayuda urgente por favor y espero que me puedas ayudar, quiero realizar una macro que al ejecutar me pregunte que valor de casilla quiero mostrar. Ejemplo de la hoja proyecciones al ejecutarlo me pregunte de que mes quiero ver la proyección. Gracias y disculpa la molestia de antemano.

publicado

Buenas, Diego

Algunas puntualizaciones necesarias:

1.- No realices nuevas consultas en temas que ya se pueden entender como solucionados. Abre una nueva consulta.

2.- No solicites nada "urgente". Las personas que colaboramos desinteresadamente para echar una mano a otros usuarios no tenemos ningún tipo de obligación, ni temporal ni moral, de solucionar los problemas que los demás puedan tener en su vida personal o profesional. Nuestro tiempo es como mínimo igual de valioso que el de quien consulta y encima lo ofrecemos sin nada a cambio y me consta que en muchos casos nuestra colaboración ha sacado a más de un usuario de situaciones comprometidas en el ámbito laboral.

3.- Lee, por favor, las normas del foro, entre las cuales podemos destacar la necesidad de adjuntar un archivo de ejemplo para que los demás nos hagamos una idea de lo que necesitas. Si vamos a dedicar nuestro tiempo a ayudarte, al menos no nos pidas que tengamos que imaginarnos lo que quieres hacer.

Espero que no te tomes a mal estos comentarios, pues no están hechos con ánimo de molestar, sino de que te hagas una idea del contexto en el que se mueve este Foro y que puedas participar en él sabiendo donde estás.

Aquí hay auténticos maestros de VBA (entre los que no me incluyo) de los que se puede aprender muchísimo, pero al menos vamos a intentar cuidarles como se merecen, para poder seguir "aprovechándonos" de ellos. ;)

Un saludo,

Tese

Archivado

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

  • 109 ¿Te parecen útiles los tips de las funciones? (ver tema completo)

    1. 1. ¿Te parecen útiles los tips de las funciones?


      • No
      • Ni me he fijado en ellos

  • Ayúdanos a mejorar la comunidad

    • Donaciones recibidas este mes: 0.00 EUR
      Objetivo: 130.00 EUR
  • Archivos

  • Estadísticas de descargas

    • Archivos
      187
    • Comentarios
      97
    • Revisiones
      29

    Más información sobre "Un juego del Rabino en Excel"
    Última descarga
    Por pegones1

    2    1

  • Crear macros Excel

  • Mensajes

    • Que tal nuevamente,  adjunto una solución alternativa: =MAX(A:.A)-BYROW(F4:.AK20,LAMBDA(r,BUSCAR(2,1/(r=0),F3:.AK3))) Cabe mencionar que esta solución requiere funciones nuevas como RECORTAR.RANGO. CONTADOR FINAL (Solucion).xlsb
    • Buenos días,  espero se encuentren bien de salud compañeros, Favor me podrían ayuda con lo siguientes como se podría hacer cuando tengo una tabla dinámica que  amedida que se aumente las columnas fechas con data un formula que se coloco al final busque o analice siempre la ultima fila y columna de la fecha. Coloco un ejemplo
    • @JSDJSD Excelentes, GRACIAS POR TU SOPORTE , me ayudo demasiado es exactamente lo que quería. 5 ESTRELLAS
    • 'Opción 1 Sub FiltrarSKUPorFecha(): Application.ScreenUpdating = False Dim ultimaFila As Long, fila As Long Dim diccionarioSKU As Object Dim listaEliminar As Object Dim fechaActual As String, fechaSiguiente As String Dim f As Variant With Sheets("Consolidado") ultimaFila = .Cells(.Rows.Count, 1).End(xlUp).Row ' Crear diccionarios para comparar SKU y almacenar filas a eliminar Set diccionarioSKU = CreateObject("Scripting.Dictionary") Set listaEliminar = CreateObject("Scripting.Dictionary") ' Recorrer desde la primera fila hasta la penúltima For fila = 2 To ultimaFila - 1 fechaActual = .Cells(fila, 1).Value fechaSiguiente = .Cells(fila + 1, 1).Value ' Solo comparar la fecha actual con la siguiente (inmediatamente superior) If fechaActual <> fechaSiguiente Then diccionarioSKU.RemoveAll ' Limpiar el diccionario antes de llenarlo ' Guardar los SKU de la fecha siguiente (solo de la siguiente) For f = fila + 1 To ultimaFila If .Cells(f, 1).Value <> fechaSiguiente Then Exit For diccionarioSKU(.Cells(f, 2).Value) = 1 Next f ' Revisar los SKU de la fecha actual y marcar los que deben eliminarse For f = fila To 2 Step -1 If .Cells(f, 1).Value <> fechaActual Then Exit For ' Solo eliminar si el SKU no está en la fecha siguiente If Not diccionarioSKU.exists(.Cells(f, 2).Value) Then listaEliminar(f) = 1 ' Marcar fila para eliminar después End If Next f ' Ya no es necesario seguir buscando después de comparar la primera y la siguiente fecha Exit For End If Next fila ' Eliminar las filas marcadas sin afectar el bucle principal For Each f In listaEliminar.keys .Rows(f).Delete Next End With MsgBox "Completado correctamente.", vbInformation End Sub 'Opción 2 Sub FiltrarSKUPorFecha1(): Application.ScreenUpdating = False Dim ultimaFila As Long, fila As Long Dim listaEliminar As Collection Dim fechaActual As String, fechaSiguiente As String Dim f As Variant, i As Long Dim SKUExiste As Boolean With Sheets("Consolidado") ultimaFila = .Cells(.Rows.Count, 1).End(xlUp).Row ' Inicializar la colección para marcar las filas a eliminar Set listaEliminar = New Collection ' Recorrer desde la primera fila hasta la penúltima For fila = 2 To ultimaFila - 1 fechaActual = .Cells(fila, 1).Value fechaSiguiente = .Cells(fila + 1, 1).Value ' Solo comparar la fecha actual con la siguiente (inmediatamente superior) If fechaActual <> fechaSiguiente Then ' Revisar los SKU de la fecha actual y marcar los que deben eliminarse For f = fila To 2 Step -1 If .Cells(f, 1).Value <> fechaActual Then Exit For ' Comprobar si el SKU está en la fecha siguiente SKUExiste = False For i = fila + 1 To ultimaFila If .Cells(i, 1).Value <> fechaSiguiente Then Exit For If .Cells(i, 2).Value = .Cells(f, 2).Value Then SKUExiste = True Exit For End If Next i ' Si el SKU no se encuentra en la fecha siguiente, marcar para eliminar If Not SKUExiste Then listaEliminar.Add f ' Marcar fila para eliminar después End If Next f ' Ya no es necesario seguir buscando después de comparar la primera y la siguiente fecha Exit For End If Next fila ' Eliminar las filas marcadas sin afectar el bucle principal For Each f In listaEliminar .Rows(f).Delete Next f End With MsgBox "Completado correctamente.", vbInformation End Sub   TABLA ELIMINAR.xlsm
  • Visualizado recientemente

    • No hay usuarios registrado para ver esta página.
×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.