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

 

[muratgunay48]

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

Ne demek hocam. Özür dilerim geç cevap yazdım. Şehir dışındaydım.
Fotoğrafı değiştirebilirsiniz. Elbette 365 olmak şartıyla. Ayrıca Photoshop'ta bölerek.
Saygılarımla.

 

[Tevfik_Kursun]

Çok teşekkür ederim.
İyi çalışmalar