excelde 1 den 100 kadar olan sayıları yazdıran makro nasıldır ?

[semira_]

Excelde A1 sunundan 1 den 300 e kadar 300 adet sayı yazdırmak istiyorum nasıl yapmalıyım , şimdiden teşekkürler.

 

[Necdet]

Merhaba,

Kod ile yazdırabilirsiniz.

Yazdırılacak hücrenin 3 değişik şeklini gösterdim.
İkisi açıklama olarak ekledim.

Sub Yaz()

    Dim i As Integer
    
    For i = 1 To 300
        Cells(i, "A") = i
'        Cells(i, 1) = i
'        Range("A" & i) = i
    Next i
    
    MsgBox "1 den 300'e kadar yazdırdım...", vbCritical
    
End Sub

Kodsuz olarak şöyle yazdırabililsiniz.

• A1 hücresine 1 yazın
• Tüm A sütununu seçin
• Dolgu
• Seriler
• Son Değer 300
• Tamam

 

[semira_]

A1 HÜCRESİNDEN DEGILDE A5 den başlasaydı kod nasıl olurdu ?

 

[eaglecarsi88]

Sub Yaz()

Dim i As Integer

For i = 1 To 300
Cells(i+4, 1) = i
Next i

MsgBox "1 den 300'e kadar yazdırdım...", vbCritical

End Sub

 

[semira_]

tesekkurler sagol.

 

[eaglecarsi88]

Rica ederm

 

[Necdet]

Merhaba,

Kodsuz verdiğim örneğin makrosu da başka bir seçenek olabilir.

Sub SeriDoldur()
    
    Range("A5") = 1
    Range("A5:A" & Rows.Count).DataSeries Step:=1, Stop:=300
    
End Sub