50 kere taba basmak

[muratutku]

arkadaşlar sorum şu:
excelden as400 e geçiş yapan bir program yazmaya çalışıyorum.1 ile 70 arasında değişen sayılarda tab tuşuna basma emri vermem gerekiyo excel sheet indeki sayıya göre tab a kaç kere basılacağını belirlemem gerekiyo.nasıl bir kod lazım bana...
şimdideden saolun

 

[Mahmut Bayram]

şöyle bir kod var ya elimde 50 kere tekrar edilme olayını yapamadım.
ActiveCell.Offset(0, 1).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(0, 1).Select
Loop

 

[ALPEN]

[vb:1:4e063020be]Private Sub tabb(kac As Integer)
Dim i As Integer
For i = 1 To kac
Application.SendKeys "{TAB}"
Next i
End Sub[/vb:1:4e063020be]

kullanılışı

[vb:1:4e063020be]tabb(30) '30 kere tab tuşuna bas.[/vb:1:4e063020be]