baskjzz

asaroma respondió: Prueba este ejemplo, lo que hace es tomar el valor de la celda A1, y la asigna o la copia a la celda E1. Sub tomavalor() Dim var As Variant var = Worksheets("Hoja1").Range("A1").Value Worksheets("Hoja1").Range("E1").Value = var end sub Cualquier cosa...