Jump to content

copiar columnas de una hoja a rango de otra hoja...


Recommended Posts

Estimada(o)

Junto con saludar y deseando que todos esten bien junto a los suyos pasa a exponer mi consulta (sencilla quizas pero no logro dar con la solución)

Tengo un libro (caso ejemplo en adjunto) con algunas hojas, quiero copiar desde la Hoja1, cada columna o rango completo de celdas; a la Hoja2, a partir de una celda que yo decida como en el ejemplo (me refiero a que no necesariamente la misma ubicación que tiene en Hoja1).

Worksheets("Cubo").Columns(colu).Copy Destination:=Worksheets(Mid(cractual, 1, 18)).Columns(columnacr)

 

este codigo me funciona pero me copia la columna completa, pero lo que esté en cractual en la misma columna (celdas antes o después) se borran obviamente, por eso deseo copiar desde Hoja1 una columna o el rango vertical completo de celdas hacia Hoja2, a partir de la celda que yo decida

 

Espero estar claro en la duda, gracias a los que lean y en especial al que pueda darme una mano

 

Saludos

 

Juan Manuel

 

 

casopractico ayudaexcel.xlsx

Link to post
Share on other sites
Hace 5 minutos , jotaeme dijo:

Espero estar claro en la duda

Pues lo siento, pero no... al menos para mí :huh:

  • No he entendido nada de lo que pretendes hacer (por cierto ¿Qué es CUBO, colu, columnacr?).
  • ¿Quieres ir copiando al final de los datos que ya haya?
  • ¿Porqué en el ejemplo tienes todos esos huecos entre datos?
  • etc, etc, etc.

 

Link to post
Share on other sites

 

 

José Lamento te hayas confundido con el (mal) ejemplo que puse en codigo,,,Cubo es una hoja por cierto y estoy copiando a otra, cuyo nombre está en la variable cractual, colu es un numero de columna al igual que columnacr, pero ---olvida ello y dale una mirada al adjunto por favor ...alli está lo que quiero hacer

Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now


  • Crear macros Excel

  • Posts

    • ¡¡¡¡ El archivo Libro1-1.xlsm
    • Prueba la macro, la solución en BD Solucion2de2, sin pasar por BD Solucion1de2. Sub FillRate() Application.ScreenUpdating = False With Sheets("BD Solución2de2") Sheets("BD").Cells.Copy .Cells .Select For x = 2 To .Range("A" & Rows.Count).End(xlUp).Row If x Mod 500 = 0 Then Application.StatusBar = "Tratando fila " & x If Not .Range("A" & x) = "" Then If .Range("C" & x) > 0 Then Base = "C" & x .Range("I" & x).Formula = "=D" & x & "/" & Base If .Range("I" & x) > 1 Or .Range("I" & x) < 0 Then .Rows(x).Delete x = x - 1 End If End If Next End With Application.StatusBar = False End Sub En la línea de estado de Excel se muestra un pequeño avance del proceso.
    • Un saludo a ambos, aquí te dejo otra opción
    • Private Sub TextBox1_Change() ActiveSheet.Range("C6").Value = TextBox1.Text TextBox3 = Range("C8").Text End Sub Private Sub TextBox2_Change() ActiveSheet.Range("C7").Value = TextBox2.Text TextBox3 = Range("C8").Text End Sub Private Sub CommandButton1_Click() TextBox1 = Empty TextBox2 = Empty TextBox3 = Empty TextBox1.SetFocus End Sub  
    • este es el archivo con userform   Libro1.xlsm
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy