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

 

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

 

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

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

Gracias por tu ayuda, subo el archivo.

Hola

Falta subir el archivo

Saludos

Tengo un problema, no tengo privilegios aún para subir archivos al foro.