Copiar valores de hoja excel a otra hoja
Buenas tardes.
Necesito un poco de luz con esto.
tengo un libro de excel con varias hojas y necesito copiar algunas columnas de la hoja 1 a la hoja 2, para eso utilizo lo siguiente de VB:
Private Sub CommandButton1_Click()
Worksheets("PRECIOS").Range("A:C").Copy
Worksheets("PRECIOSBO").Range("A:C").PasteSpecial xlPasteAll Application.CutCopyMode = False End Sub
Con esto me copia los datos de la hoja precios a preciosbo con el inconveniente que me
copia también las formulas con lo que los resultados de las celdas me los marca con valor
Null, lo que necesito es que me copie los valores o resultados, no las formulas.
.
Un saludo y Gracias por vuestro tiempo
1 respuesta
Barxeta si quieres prueba con programación matricial:
Private Sub CommandButton1_Click()
dim i,j as integer ' i son las filas, j para las columnas
j=1 ' asumimos que vamos a cpiar de la primera columna de la hoja1 a la primera 'columna de la hoja 2
for i=1 to 1000 ' ponemos 1000 asumiendo que son 1000 filas
Hoja2.cells(i,j)= Hoja1.cells(i,j)
next i
End Sub
Éxitos y cuéntame como te fue!
Att. Hernán Camilo.
Buenas tardes.
Gracias por contestar.
esto es lo que tengo:
Private Sub CommandButton1_Click()
Dim i, j As Integer ' i son las filas, j para las columnas
j = 1 ' asumimos que vamos a cpiar de la primera columna de la hoja1 a la primera 'columna de la hoja 2
For i = 1 To 1000 ' ponemos 1000 asumiendo que son 1000 filas
PRECIOS.Cells(i, j) = preciosbo.Cells(i, j)
Next i
End Sub
En esta linea me marca u error:
PRECIOS.Cells(i, j) = preciosbo.Cells(i, j)
saludo y gracias
No, no seria Precios. Cells ni preciosbo. Cells sino hoja1. Cells u hoja2. Cells tienes que ir al entorno de programación de visual basic para aplicaciones para que puedas ver en que hoja esta Precios. Cells y en que hoja esta preciosbo. Cells.
Éxitos
Att. Hernán Camilo
