Sub Testers()
Dim myVal As Double
myCheck = Not myCheck
myVal = 18.5
myVal = IIf(myCheck, myVal, -myVal)
With ActiveSheet.Shapes("ovall")
.Left = .Left + myVal
If myCheck = True Then
.Fill.ForeColor.RGB = RGB(255, 255, 255)
Call myMacro199
Else
.Fill.ForeColor.RGB = RGB(255, 255, 255)
Call myMacro299
End If
End With
End Sub
merhaba bu komut sağ sola oluşturduğum şekilin kaymasını sağlıyor fakat şöyle birşey var eğer sağda bırakırsam exceli kapatırsam bir daha açtığımda sola almıyor tekrar sağa kaydırıyor sebebi "Dim myVal As Double" çift tıklama olması 2. tıklayışımda sola alıyor tek tıklamada tekrar sağa kaydırıyor ben istiyorum ki eğer sağdaysa bir daha sağa kaymasın sola kaysın bunun çözümü butonun konumunu belirleme tekrardan yardımcı olabilicek varmı
exceli kapattığımda bu sorun oluyor normalde kapatmasam sağa sola kaydırıyor ama soldan sağda bırakırsam exceli kapatırsam bir daha açtığımda tekrar sağa kaydırıyor kısaca sürekli öteliyor açıp kapatmada exceli çünkü 2. tıklamada her zaman sola alıyor
Dim myVal As Double
myCheck = Not myCheck
myVal = 18.5
myVal = IIf(myCheck, myVal, -myVal)
With ActiveSheet.Shapes("ovall")
.Left = .Left + myVal
If myCheck = True Then
.Fill.ForeColor.RGB = RGB(255, 255, 255)
Call myMacro199
Else
.Fill.ForeColor.RGB = RGB(255, 255, 255)
Call myMacro299
End If
End With
End Sub
merhaba bu komut sağ sola oluşturduğum şekilin kaymasını sağlıyor fakat şöyle birşey var eğer sağda bırakırsam exceli kapatırsam bir daha açtığımda sola almıyor tekrar sağa kaydırıyor sebebi "Dim myVal As Double" çift tıklama olması 2. tıklayışımda sola alıyor tek tıklamada tekrar sağa kaydırıyor ben istiyorum ki eğer sağdaysa bir daha sağa kaymasın sola kaysın bunun çözümü butonun konumunu belirleme tekrardan yardımcı olabilicek varmı
exceli kapattığımda bu sorun oluyor normalde kapatmasam sağa sola kaydırıyor ama soldan sağda bırakırsam exceli kapatırsam bir daha açtığımda tekrar sağa kaydırıyor kısaca sürekli öteliyor açıp kapatmada exceli çünkü 2. tıklamada her zaman sola alıyor
Son düzenleme:
