Copiar celdas visibles con condición - excel

He estado probando de varias maneras y no me ha resultado, algunas me salieron algún error y otras no marcaba error pero tampoco hacían nada.

Quiero copiar las celdas visibles de B2:G345 de la hoja 7 ha la posición B56 (ocupando su respectivo lugar) de la hoja 3 con la condición de que la casilla C447 de la hoja 7 tenga el valor 0 de lo contrario que no copie nada.

Como no encontré la forma trate con copiar las celdas y pegarlas como una imagen vinculada, quería ocultar la imagen si no cumplía con la misma condición, pero no pasa nada, probé con esto:

If Sheets(7).Range("C447").Value = "0" Then
Sheet(3).Shapes("Imagen 3").Hidden = False
Else
Sheet(3).Shapes("Imagen 3").Hidden = True
End If

Pero no me resulto, de todas maneras prefiero copiarlo como un texto y no como imagen.

1 respuesta

Respuesta

Prueba con esta macro:

Sub copiar()
If Sheets(7).Range("C447").Value = "0" Then
Sheets(7).Range("B2:G345").Copy Sheets(3).Range("B56")
Else
End If
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas