Fotoğraf oynatma

[muratgunay48]

Arkadaşlar, sayın hocalarım, yaptığım dosyada rakamların yerini değiştirebiliyorum ama fotoğrafları hücre içine ekleyince oynamıyor. Hata veriyor. Fotoğrafları o şekilde ekledim.



Hatta karıştıramadım bile. Yardımcı olabilir misiniz? Eskiden oynadığımız puzzle'lardan yapmak istiyorum.
Şimdiden teşekkür ederim.
Saygılarımla.

Sub asg()
  If Intersect(ActiveCell, Range("B2:E4")) Is Nothing Then Exit Sub
  hcr = ActiveCell.Value
  ActiveCell = ActiveCell.Offset(1, 0).Value
  ActiveCell.Offset(1, 0).Value = hcr
  ActiveCell.Offset(1, 0).Select
End Sub

Sub sol()
  If Intersect(ActiveCell, Range("C2:E5")) Is Nothing Then Exit Sub
  hcr = ActiveCell.Value
  ActiveCell = ActiveCell.Offset(0, -1).Value
  ActiveCell.Offset(0, -1).Value = hcr
  ActiveCell.Offset(0, -1).Select
End Sub

Sub yuk()
  If Intersect(ActiveCell, Range("B3:E5")) Is Nothing Then Exit Sub
  hcr = ActiveCell.Value
  ActiveCell = ActiveCell.Offset(-1, 0).Value
  ActiveCell.Offset(-1, 0).Value = hcr
  ActiveCell.Offset(-1, 0).Select
End Sub

Sub sag()
  If Intersect(ActiveCell, Range("B2:D5")) Is Nothing Then Exit Sub
  hcr = ActiveCell.Value
  ActiveCell = ActiveCell.Offset(0, 1).Value
  ActiveCell.Offset(0, 1).Value = hcr
  ActiveCell.Offset(0, 1).Select
End Sub

 

[muratboz06]

Deneyiniz.
Kodları inceleyerek geliştirebilirsiniz.

 

[muratgunay48]

Deneyiniz.
Kodları inceleyerek geliştirebilirsiniz.

Hocam öncelikle emeğinize sağlık. Yönlerde haddim olmayarak 1-2 oynama yaptım ama "KARIŞTIR" çalıştıramadım. Sizde çalışıyor muydu?
Karıştır tıklayınca YUKARI hatası veriyor. Bitirmeden tıkladığım için mi?

 

[muratboz06]

Düzeltildi.

 

[muratgunay48]

Düzeltildi.

Hocam emeğinize sağlık. Sizin kodlarınızın yardımıyla. Bitirince "Tebrikler" gibi bir şey yaptırmaya çalışacağım. Fikir verirseniz sevinirim.
Tekrar teşekkür ederim.
Saygılarımla.

 

[Tevfik_Kursun]

Sayın muratgunay48,
Çalışan halini ekler misiniz, lütfen, bir de ben inceleyeyim torunlarım için.
Saygılarımla