Copiar solo valores entre hojas

Domingo · el 3 de diciembre

Buenos días a todos, explico brevemente mi problema: Estoy intentando copiar las datos (solo los datos) de una celda (que contiene una fórmula Condicional) concreta de la Hoja "Tesorería" y pegarlo como un valor en la Hoja "Saldos Banco" en una celda concreta. No se exactamente cual es el código que hay que poner para hacerlo, paso el código de la macro a ver si me podéis ayudar con el problema.

Sub CopiarDiciembre2021()
'Desactivar eventos pantalla
Application.ScreenUpdating = False
'Importe INGRESO (Pagos BANCO)
'....
Sheets("Tesorería").Activate
'....
i = 8
'comienzo el bucle
For i = 8 To 8

'compruebo que el valor es distinto de 0
If Cells(i, "C").Value <> "" Then
'copio el valor de la celda
Range(Cells(i, "C"), Cells(i, "C")).Copy
'....
'selecciono la hoja donde quiero pegar
Sheets("Saldos Banco").Activate
'....
Cells(i, "C").Select
ActiveSheet.Range("i9").Activate
'....
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Activate
Loop
'....
Sheets("Saldos Banco").Activate
'Desprotejer Hoja
ActiveSheet.Unprotect Password:="manusa"
'....
'ActiveSheet.PasteSpecial Paste:=xlPasteValues
'Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
':=False, Transpose:=False
'....
'Pego los datos que hemos copiado
ActiveSheet.Paste
Application.CutCopyMode = False
'....
End If
Next
Sheets("Tesorería").Select
Application.ScreenUpdating = True
End Sub

Gracias, gracias, gracias.

Un saludo

Frank2021 · el 3 de diciembre

Hola,

te envío mi propuesta

Worksheets("Saldos Banco").Range(CeldaDestino).value = Worksheets("Tesorería").Range(CeldaOrigen).Value

Donde CeldaDestino y CeldaOrigen pueden ser variables String o de Rango

Saludos

Domingo · el 3 de diciembre

Hace 2 horas, Domingo dijo:

'ActiveSheet.PasteSpecial Paste:=xlPasteValues
'Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

En esta parte del código es donde da el error, concretamente el error es el siguiente:

Copia el valor de la celda origen de la Hoja "Tesorería" que contiene una formula condicional y pega todo el contenido, lo que deseo es que solo copie el valor que contenga la celda origen, no la fórmula.

Gracias, Gracias

Un saludo

Frank2021 · el 3 de diciembre

Hola ,

Lo que solicitas ya te lo estoy contestando en el mensaje anterior.

Para serte honesto el código de la macro que muestras, es voluntarioso pero carece de un enfoque técnico adecuado, se aprecia bajo dominio de la programación .

El ir cambiando de solapa y copiando y pegando, no es la técnica adecuada ni eficiente.

Si quieres y puedes sube el fichero y estaré encantado de ayudarte.

Saludos