1,2,3,4,5.....6000

[gsromeo]

Excel kullanarak
1,2,3,4,5,6,7,8,9,10........6000 e kadar rakamları arasında boşluk olmadan,virgülle ayırarak excel de hazırlayıp worde kopyalamak istiyorum. Ancak bir türlü beceremedim.
Hücreleri biçimlendir deyip "isteğe uyarlanmış" bölümünde "tür" ü "0," yaparak hücreleri yan yana 1,2,3,4,5 diye sıralıyorum ancak worde kopyalama yaptığımda virgülden sonra boşluk bırakıyor. İş yerinde olduğumdan bilgisayara program yükleyemiyorum. Kullanabilceğim tek yazılım excel. Yardımlarınızı bekliyorum.

Office sürümü 2010

 

[apocalyt]

kodu bir modüle kopyalayıp çalıştırın..a1 hücresine istediğiniz şekilde yazacaktır..

Sub daylight()
Application.ScreenUpdating = False
Range("a1") = 1
For x = 2 To 6000
Range("a1") = Range("a1") & "," & x
Next x
Application.ScreenUpdating = True
End Sub

 

[gsromeo]

Teşekkürler.

 

[apocalyt]

rica ederim..

 

[Necdet]

Merhaba,

Sorması ayıp olmasın ama, merek ettim gerçekten, böyle bir şey ne için lazım olabilir?