buton ile hücreler arasında ilerlemek ?

[hayaletsero]

iyi günler kolay gelsin.

buton ile hücreler arasında nasıl ilerleme yapabilirim örneği linkte şimdiden teşekkürler


http://dosya.web.tr/OnYv7R

 

[Ömer BARAN]

Merhaba.
Verdiğiniz belge bağlantısında sorun var sanırım, belge indirilemiyor, bir kontrol edin isterseniz.

 

[Ömer BARAN]

Merhaba.
Aşağıdaki kod'u denermisiniz.

Private Sub CommandButton2_Click()
son = [N65536].End(3).Row
If Cells(11, 5) = "" Then
a = 0
MsgBox "Son kişiye gelindi, başa dönülecek"
Else
a = WorksheetFunction.Match(Cells(11, 5), Range("N1:N" & son), 0)
End If
Cells(11, 5) = Cells(a + 1, "N")
End Sub

 

[feridici_genc]

http://s3.dosya.tc/server5/auetav/_ouml.xls.rar.html

 

[hayaletsero]

http://dosya.web.tr/OlGQYR

 

[hayaletsero]

feridici_genc çok teşekkür ederim olmuş buton ile olmuyor sanırım.

 

[feridici_genc]

vardır da ben bilmiyorum. iyi geceler.

 

[Ömer BARAN]

Gönderdiğim kod ile CommandButton ile de olması lazım.
Liste sonuna gelince başa döner.

 

[hayaletsero]

çok teşekkür ederim olmuş