Малко помощ за макрос на Excel

[milenk]

Имам работещ макрос за Excel. Искам да се преработи така, че да проверява клетки B8 дали е равна на 3 ( B8=3) и B14 дали е равна на 1 (B14=1). Ако е така да се изпълни ако някоя от клетките не отговаря на тези данни да не се изпълнява.

Това е макроса:

Sub BothTogether_1()
CopyPict
End Sub

Sub CopyPict()
Sheets("Snimkite").Select
ActiveSheet.Shapes("Group 1").Select
Selection.Copy
Sheets("Формули за изчисление").Select
Range("G2").Select
ActiveSheet.Paste
Selection.ShapeRange.IncrementLeft -0.75
Selection.ShapeRange.IncrementTop -8.25
Range("D2:I46").Select

End Sub

Благодаря предварително

P.S. С помощ от други форуми сега макроса изглежда така и работи.

Sub BothTogether_1()
    CopyPict
End Sub


Sub CopyPict()
If Sheets("Formuli").Range("B8").Value = 3 And Sheets("Formuli").Range("B14").Value = 1 And Sheets("Formuli").Range("B17").Value = 0 And Sheets("Formuli").Range("B31").Value < 1 Then
Sheets("Snimkite").Select
ActiveSheet.Shapes("Group 1").Select
Selection.Copy
Sheets("Формули за изчисление").Select
Range("G2").Select
ActiveSheet.Paste
Selection.ShapeRange.IncrementLeft -0.75
Selection.ShapeRange.IncrementTop -8.25
Range("D2:I46").Select
End If
End Sub

За мен темата е затворена. Може да помогне и на някой друг.