makronun çalıştırılması

[ihsan2525]

mrb arkadaşlar geçen gün bu makronun yorumu istemiştim çok sağolun bayağı işime yaradı ama şimdi de hoca bunun excelde bir uygulamasını istedi ne yapacağımı bilmiyorum işin aslıda anlatılmıyorda yardım ederseniz sevinirim makroyu yine yollayayım

Sub Piston()

ActiveSheet.Shapes("Grup 4").Select

For t = 1 To [D12].Value

For a = 150 To 270

Selection.ShapeRange.Left = 310
Selection.ShapeRange.Top = a

DoEvents

Next a

For y = 270 To 150 Step -1

Selection.ShapeRange.Left = 310
Selection.ShapeRange.Top = y

DoEvents

Next y

Next t

[D12].Select

End Sub


selamlar başarılar

 

[Orion1]

Buyurun dosyanız.

 

[ihsan2525]

çok sağol eline sağlık office 2007 var şu an diğer makinede denerim eline sağlık başarılar

 

[Orion1]

çok sağol eline sağlık office 2007 var şu an diğer makinede denerim eline sağlık başarılar

Ofis2007 'dede çalışması lazım.Bir deneyin bakalım.
Sizede başarılar.