' pulsante punto casa
Sub Immagine1_Click()
ActiveSheet.Range("e20").Value = ActiveSheet.Range("e20").Value + 1
End Sub
' pulsante indietro casa
Sub Immagine2_Click()
ActiveSheet.Range("e20").Value = ActiveSheet.Range("e20").Value - 1
End Sub
' pulsante punto ospiti
Sub Immagine3_Click()
ActiveSheet.Range("e33").Value = ActiveSheet.Range("e33").Value + 1
End Sub
' pulsante indietro ospiti
Sub Immagine4_Click()
ActiveSheet.Range("e33").Value = ActiveSheet.Range("e33").Value - 1
End Sub
' rotazione casa
Sub Immagine7_Click()
Select Case Range("t3")
Case "P1"
Range("k4") = Range("ab3")
Range("m4") = Range("ab5")
Range("o4") = Range("ab8")
Range("o8") = Range("ab4")
Range("m8") = Range("ab6")
Range("k8") = Range("ab7")
Case "P6"
Range("m4") = Range("ab3")
Range("o4") = Range("ab5")
Range("o8") = Range("ab8")
Range("m8") = Range("ab4")
Range("k8") = Range("ab6")
Range("k4") = Range("ab7")
Case "P5"
Range("o4") = Range("ab3")
Range("o8") = Range("ab5")
Range("m8") = Range("ab8")
Range("k8") = Range("ab4")
Range("k4") = Range("ab6")
Range("m4") = Range("ab7")
Case "P4"
Range("o8") = Range("ab3")
Range("m8") = Range("ab5")
Range("k8") = Range("ab8")
Range("k4") = Range("ab4")
Range("m4") = Range("ab6")
Range("o4") = Range("ab7")
Case "P3"
Range("m8") = Range("ab3")
Range("k8") = Range("ab5")
Range("k4") = Range("ab8")
Range("m4") = Range("ab4")
Range("o4") = Range("ab6")
Range("o8") = Range("ab7")
Case "P2"
Range("k8") = Range("ab3")
Range("k4") = Range("ab5")
Range("m4") = Range("ab8")
Range("o4") = Range("ab4")
Range("o8") = Range("ab6")
Range("m8") = Range("ab7")
End Select
End Sub |