Este fórum está sendo desativado

[alanisfcsm]

Boa tarde.

O amigo do forum Jonathaluis, me enviou um código que me serviu muito bem, mas eu pergunto:
Haveria como apagar as imagens no intervalo antes de copiar as novas?
O código funciona muito bem, mas não com imagens, seria possível fazer o mesmo com imagens?

Sub EMPRESA01()

Dim A As Worksheet 'Plan 2
Set A = Worksheets("Plan2") 'A representa planilha 2

A.Range(A.Cells(19, 2), A.Cells(22, 9)).ClearContents 'Limpa o range da coluna B19 até I22
A.Range(A.Cells(19, 2), A.Cells(22, 9)) = A.Range(A.Cells(25, 2), A.Cells(28, 9)).value 'Copia o conteúdo do Range B25 até o I28 para B19 até B22

End Sub

Sub EMPRESA02()

Dim A As Worksheet 'Plan 2
Set A = Worksheets("Plan2") 'A representa planilha 2

A.Range(A.Cells(19, 2), A.Cells(22, 9)).ClearContents 'Limpa o range da coluna B19 até I22
A.Range(A.Cells(19, 2), A.Cells(22, 9)) = A.Range(A.Cells(31, 2), A.Cells(34, 9)).value 'Copia o conteúdo do Range B31 até o I34 para B19 até B22

End Sub

[Jonathaluis]

Alanisfcsm, boa tarde!

Poderia me dizer em qual coluna e linha estará a imagem?
A imagem tem relação com os dados acima, pois existem duas maneiras de apagar imagens, uma imagem somente (dizendo as coordenadas) ou todas as imagens.

[Jonathaluis]

Alanisfcsm, boa tarde!

o trecho abaixo deleta o que está no Range("B1:B10")
caso queira deletar algum outro range específico utilize desta forma:
De:
Range("B1:B10")
Para:
A.Range(A.Cells(19, 2), A.Cells(22, 9)).ClearContents 'Limpa o range da coluna B19 até I22

A é a planilha Cells é para comando de linha e coluna 19 é linha e 2 é B


On Error Resume Next
Dim img As Shape

For Each img In ActiveSheet.Shapes
If Not Application.Intersect(img.TopLeftCell, ActiveSheet.Range("B1:B10")) Is Nothing Then
img.Delete
End If
Next

[alanisfcsm]

Alanisfcsm, boa tarde!

Poderia me dizer em qual coluna e linha estará a imagem?
A imagem tem relação com os dados acima, pois existem duas maneiras de apagar imagens, uma imagem somente (dizendo as coordenadas) ou todas as imagens.

Seu código funcionou perfeitamente, só gostaria que ele fizesse o mesmo com imagens
Simples como no aquivo em anexo, eu vou adaptar em uma planilha de orçamento, quando estiver em mais de 50%, mando pra vc

Antecipadamente agradeço.