Pasar datos de una hoja a otra en excel

[cuexco]

Sub recorrer()

' recorrer Macro
'
Sheets(3).Select
Range("A1").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.FormulaR1C1 = "21-10-2009"

Range("B1").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.FormulaR1C1 = "AGUSTIN CORTES"

Range("C1").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.FormulaR1C1 = "COL. CENTRO"

Range("D1").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.FormulaR1C1 = "TONALA, JALISCO"

End Sub

hOLA:

El codigo anterior pega datos predefinidos en la hoja3.
Lo que quiero hacer es que los obtenga de la hoja1:

dato1=celda "G4"
dato2=celda "D8"
dato3=celda "D12"
dato4=celda "B17"

Cómo hago referencia para que seleccione los datos de la hoja1.

Saludos, gracias.

[3pies]

Es muy sencillo. Tan solo tienes que hacer esto:

Código:

dato1 = hoja1.Range("G4")
dato2 = hoja1.Range("D8")
dato3 = hoja1.Range("D12")
dato4 = hoja1.Range("B17")

Donde "hoja1" es el nombre de la hoja, pero visto a nivel interno, es decir, el nombre que ves desde VBA, no el nombre de la pestaña que ve el usuario. Si lo que quieres es acceder a la hoja1, pero atendiendo al nombre de la pestaña, entonces debes hacerlo así:

Código:

dato1 = Sheets("hoja1").Range("G4")
dato2 = Sheets("hoja1").Range("D8")
dato3 = Sheets("hoja1").Range("D12")
dato4 = Sheets("hoja1").Range("B17")

Saludos.

[cuexco]

Gracias 3pies

Según mi pensamiento lo tenía de este modo:

dato1=Sheets(1).Select(Range("G4").Value)

Pero el resultado que me arrojaba en la celda destino aparecía "VERDADERO"

¿Qué cambio hace el "select "?

Ahora esa es mi duda.

La anterior ya quedó resuelta, gracias.

Saludos cordiales.

[3pies]

Con el select, lo que haces es situarte en esa celda, posicionarte encima, pero no recuperas el dato que hay en la celda. Te salía verdadero, porque como le decías que se situase en la celda, el resultado solo puede ser lógico: sí me he situado en la celda, o no me he situado en la celda. No le estabas diciendo que recogiese el dato de esa celda, sino que se colocase en esa celda.

Saludos.

[mrocf]

Hola! cuexco.
Nota que para escribir 4 datos estás recorriendo desde la fila "1" cuatro columnas... ¡¡¡Eso es muy ineficiente!!!

Me parece que resumiendo las ideas comentadas por 3pies, lo que se "acomoda" a tus necesidades es:

Código vb:

Sub recorrer()
 
With Sheets("Hoja3").[a65536].End(xlUp).Offset(1)
.Offset(, 0).Formula = Sheet("Hoja1").[g4].Value
.Offset(, 1).Formula = Sheet("Hoja1").[d8].Value
.Offset(, 2).Formula = Sheet("Hoja1").[d12].Value
.Offset(, 3).Formula = Sheet("Hoja1").[b17].Value
End With
 
End Sub
 

Comenta si te ha servido, ¿si?

Saludos, Cacho.

[cuexco]

Iniciado por 3pies

Con el select, lo que haces es situarte en esa celda, posicionarte encima, pero no recuperas el dato que hay en la celda. Te salía verdadero, porque como le decías que se situase en la celda, el resultado solo puede ser lógico: sí me he situado en la celda, o no me he situado en la celda. No le estabas diciendo que recogiese el dato de esa celda, sino que se colocase en esa celda.

Saludos.

Gracias 3pies:

Como siempre la duda me las resuelto.

saludos.

[cuexco]

Iniciado por mrocf

Hola! cuexco.
Nota que para escribir 4 datos estás recorriendo desde la fila "1" cuatro columnas... ¡¡¡Eso es muy ineficiente!!!

Me parece que resumiendo las ideas comentadas por 3pies, lo que se "acomoda" a tus necesidades es:

Código vb:

Sub recorrer()
 
With Sheets("Hoja3").[a65536].End(xlUp).Offset(1)
.Offset(, 0).Formula = Sheet("Hoja1").[g4].Value
.Offset(, 1).Formula = Sheet("Hoja1").[d8].Value
.Offset(, 2).Formula = Sheet("Hoja1").[d12].Value
.Offset(, 3).Formula = Sheet("Hoja1").[b17].Value
End With
 
End Sub
 

Comenta si te ha servido, ¿si?

Saludos, Cacho.

Hola mrocf:

Es excelente tu aportación, funciona correctamente.

Lo anterior también hace lo mismo pero obviamente lo hace por partes por que se repite el ciclo 4 veces, pero como siempre hay muchas maneras de resolverlas.

Gracias, saludos .

[mrocf]

Es cierto lo que dices:

Iniciado por cuexco

... hay muchas maneras de resolverlas... .

Sin embargo, la eficiencia (por cualquier camino con el que llegues) debes considerarla como un objetivo a satisfacer.
En ese sentido no es lo mismo manipular bases de datos con 10, 100 ó 1000 registros (o filas).

Para 10 filas: cualquier cosa que hagas no implicará un tiempo en exceso perceptible.
Pero con 1000 filas: recorrer -una a una- esas filas puede ser inaceptable.

Te mando un abrazo, Cacho.

[arbandro]

Hola, igual llego un poco tarde pero tengo una consulta. Tengo una lista de clientes, los cuales están ordenados por la fecha en la que iniciaron su contrato. Dicho contrato lo renuevan anualmente. Entonces a mi me interesa tener en una hoja a parte de mi tabla excel, aquellos clientes que les falten 3 meses para renovar su contrato.

Es decir, quisiera una macro para que mis clientes que tengo en la columna "a" de mi hoja1 y que les falte 3 meses para caducar su contrato (la fecha de caducidad la tengo en la columna "b") aparezcan en la hoja 2 en su columna "a".

Asta ahora solo he conseguido copiarlos de una hoja a otra, pero me ha sido imposible implementar una condición. He probado con do while etc, pero creo que fallo en algo.

Gracias por adelantado compañeros.

[JoaoM]

Lee las normas, este tema tiene mas de año y medio sin actividad.
NO ESTA PERMITIDO REVIVIR TEMAS