sayfa değiştirme

[aliakgul]

Merhaba arkadaşlar,
Çalışma sayfalarımın bazıları D1,D2,D3,D4,............D22 diye sıralı. Bu sayfalardaki "sonraki sayfa" butonlarına aynı makroyu bağlayacağım ve D1'de isem D2'yi D2'de isem D3'ü......şeklinde seçecek.

 

[pacificline_22]

selam

sanırım bu işini görür bende bir ustanın çalışmasından aldım. o usatnın adını bulursam mutlaka onun ismini yazcam. çalışmalara ve onları hazırlayanlara saygı duymak gerekir diye düşünüyorum

Sub SayfaSecSonraki()
On Error Resume Next
If ActiveSheet.Index = Worksheets.Count Then
Worksheets(1).Select
Else
On Error Resume Next
Worksheets(ActiveSheet.Index + 1).Select
End If
End Sub

 

[pacificline_22]

selam

link te makrolarla ilgili (sorunu yanıtlamamda kullandığım kaynak) birçok çalışma var incelemeni tavsiye ederim
http://www.excel.web.tr/showthread.php?t=23605&highlight=vba+makrolar%FD

 

[aliakgul]

Arkadaşlar sanırım tam olarak anlatamadım;
birçok çalışma sayfasının içinde bir kısmı "D1,D2,D3,D4,D5......D22" şeklinde sıralı. Ben tüm çalışma sayfalarımın arasında değil, bu "D1,D2,D3....D22" şeklinde "D" ismindeki sayfalarda bir sonrakine geçeceğim.
D1'de isem D2'ye, D3'de isem D4'e,D15'de isem D16'ya geçeceğim.
Not:Başka bir buton ile de geri geri gideceğim makroyu uyarlayacağım.

 

[aliakgul]

Sorun halledilmiştir.Teşekkür ederim...