Hücreleri Numaralandırma

[Leturc]

Merhaba Arkadaşlar,

Aşağıdaki kodu bir döngüye sokmak mümkün müdür 1'den 300'e kadar örneğin?

Sub ekle()
Range("A12").Select
ActiveCell.FormulaR1C1 = "1"
Range("C12").Select
ActiveCell.FormulaR1C1 = "2"
Range("A15").Select
ActiveCell.FormulaR1C1 = "3"
Range("C15").Select
ActiveCell.FormulaR1C1 = "4"
Range("A18").Select
ActiveCell.FormulaR1C1 = "5"
Range("C18").Select
ActiveCell.FormulaR1C1 = "6"
Range("A21").Select
ActiveCell.FormulaR1C1 = "8"
Range("C21").Select
ActiveCell.FormulaR1C1 = "9"
Range("A24").Select
ActiveCell.FormulaR1C1 = "10"
Range("C24").Select
ActiveCell.FormulaR1C1 = "11"
Range("A27").Select
ActiveCell.FormulaR1C1 = "11"
Range("C27").Select
ActiveCell.FormulaR1C1 = "12"
Range("A30").Select
ActiveCell.FormulaR1C1 = "13"
Range("C30").Select
ActiveCell.FormulaR1C1 = "14"
End Sub

Yine Excel.web.tr üzerinden bulduğum ve kendimce uyarladığım resim ekleme kodunu kullanabilmem için öncelikle hücre içerisine resmin uzantı olmadan ismini yazmam gerekiyor. Ancak bu işlemi tek tek yapmak çok zaman alacağı için ben yarı otomatik hale getirebilmek için böyle bir çözüm buldum naçizane.

Yardımcı olabilirseniz oldukça makbule geçecektir. Aksi durumda tabii ki ben yine tek tek eklerim. Ama hem öğrenmeye çalışıyorum hem de ihtiyacı olan başka arkadaşlara faydası olacaktır.

 

[Ömer]

Merhaba,

Sub ekle()
    
    Dim sat As Long, i As Long
    
    sat = 12
    For i = 1 To 300
        Cells(sat, "A") = i
        Cells(sat, "C") = i
        sat = sat + 3
    Next i
 
End Sub

İstediğiniz bu mu?

 

[Leturc]

Sayın Ömer,

Cevabınız için çok teşekkür ederim.
Ancak vermiş olduğunuz makro A hücreleri ile C hücrelerine aynı rakamı atıyor.

İlk mesaja XL dosyamı ekledim. İncelerseniz sizde farkedeceksinizdir.

Acaba bir Resim Ekle düğmesine basınca bir pop-up açılıp kaça kadar numaralandırmak istediğimizi belirtebilir miyiz sonraki aşamada?

 

[Ömer]

Dosyayı incelemedim. Yana ve alta artarak ilerleyecekse;

Bu şekilde deneyin.

Sub ekle()
 
    Dim sat As Long, i As Long
 
    sat = 12
    For i = 1 To 300
        Cells(sat, "A") = i
       [COLOR=red] i = i + 1[/COLOR]
        Cells(sat, "C") = i
        sat = sat + 3
    Next i
 
End Sub

.

 

[Leturc]

Mükemmel

Allah razı olsun sizden çok süper oldu.

Son bir şey. Dediğim gibi acaba bir pop-up ile eklenecek sayıyı belirleyebilme imkanımız olabilir mi?

 

[Ömer]

Sayı belirlemeden kastınız nedir.

 

[Leturc]

şimdi siz şurada

For i = 1 To 300

demişsiniz. Ben 300 rakamını manuel belirleyebilir miyim?

Teşekkürler

 

[Ömer]

Bu şekilde deneyin.

Sub ekle()
 
    Dim sat As Long, i As Long, son
    
    son = Application.InputBox("Son Sayı Nedir", "Merhaba")
    
    On Error GoTo hata
    
    sat = 12
    For i = 1 To son
        Cells(sat, "A") = i
        i = i + 1
        Cells(sat, "C") = i
        sat = sat + 3
    Next i
    
    Exit Sub
hata:
    MsgBox "Girilen Değeri Kontrol Edin."
 
End Sub

.

 

[Leturc]

Ömer Bey,

Teşekkürler. Müthişsiniz. Gecenin bu vakti vakit ayırdığınız için minnettarım size.

Başarılar dilerim.

 

[Ömer]

Rica ederim, iyi çalışmalar.