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

Respuesta
1

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

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas