Özgür sordu
Merhaba, ben tez çalışmam için gireceğim veriler altışarlı şekilde artması gerekiyor bunu Excel dosyasına girmenin kolay bir yolu var mıdır?
Teşekkürler…
1
1
1
2
2
2
3
3
3
Merhaba;
Boş bir Excel açın. Alt + F11 tuşuna basarak makro kısmına geçin ve aşağıdaki kodu yapıştırın. Kodda kacaKadar kısmını ne kadar ilerletmek istiyorsanız sayı yazın. Ben 20 yazdım. F5 ile kodu çalıştırdığınızda istediğiniz şekilde 6’şar tekrar yapacaktır.
Sub sayiUret()
Dim i As Integer
Dim j As Integer
Dim say1 As Integer
Dim say2 As Integer
Dim kacaKadar As Integer
say1 = 1
say2 = 1
kacaKadar = 20
For j = 1 To kacaKadar
For i = 1 To 6
Range(“A” & say1).Value = say2
say1 = say1 + 1
Next
say2 = say2 + 1
Next
End Sub