Excel'de iki sayı girerek arasındaki sayıları yazdırma

[atc35]

Merhaba,
Ben excelden pek anlamıyorum çok uğraştım ancak çözemedim yardımcı olabilirseniz sevinirim.
Yapmak istediğim tam olarak:

A1 kutusuna bir rakam yazacağım (500792 gibi)

B1 kutusuna A1 kutusundaki dahil kaç rakam sıralı sayılacaksa onu yazacağım (mesela 25)

C1 kutusunda 500792,500793,... gibi A1 kutusuna girdiğim rakamdan itibaren B1 kutusuna hangi sayıyı girdiysem o kadar rakamı sıralı olarak ve aralarında virgül olacak şekilde C1 kutusuna otomatik yazacak.

A1=500792
B1=25
C1=500792,500793,500794,500795,500796,500797,500798,500799,500800,500801,500802,500803,500804,500805,500806,500807,500808,500809,500810,500811,500812,500813,500814,500815,500816
şeklinde nasıl yapabilirim?

Şimdiden teşekkür ederim.

 

[Ömer]

Merhaba,

B1 deki değerin büyüklüğünü göz önüne alacak olursak, bence makro ile çözüm en doğrusu.

Sub Yaz()
    
    Dim i As Long
    
    With Range("C1")
    
        .ClearContents

        If Range("B1") < 1 Then Exit Sub
    
        For i = 0 To Range("B1") - 1
            .Value = .Value & "," & Range("A1") + i
        Next i
    
        .NumberFormat = "@"
        .Value = WorksheetFunction.Substitute(.Value, ",", "", 1)
    
    End With
    
End Sub

.

 

[atc35]

Makro nasıl yapılıyor bilmiyorum

Ömer Bey makro nasıl yapılıyor bilmiyorum. İnternetten araştırdım videoları izledim yapmaya çalıştım ama olmadı.

Eğer kolay bir şeyse benim için yapabilir misiniz? Buradan indirebilirim. Eğer zorsa yada zaman alacak birşeyse vaktinizi almayayım. İlginiz için teşekkür ederim.

 

[Ömer]

Önce kullandığınız bilgisayardaki Excelin bir kereliğine makro ayarlarını düşermeniz gerekir.

Bunun için;

Boş bir Exceli açın / Menüden "Dosya" / Seçenekler / Güven Merkezi / Güven Merkezi ayarları / Makro ayarları menüsünden / "Tüm Makroları Etkinleştir" seçeneğini işaretleyin ve tamam butonları ile ilerleyin ve işlem bitince Exceli kaydetmeden kapatabilirsiniz.

Daha sonra uygulama yapacağınız Excel çalışmanızı açın / Alt + F11 ile VBA ekranına geçin / Insert menüsünden "Module" seçeneğini işaretleyin. Bu işlemden sonra karşınıza Module1 sayfası gelir.

Yazdığım kodları kopyalayıp bu alana yapıştırın ve VBA ekranını kapatıp Excele geçin.

Şimdi sıra kodları çalıştırmakta, isterseniz butona bağlayıp çalıştırabilirsiniz. Yada Alt + F8 yapın ve açılan ekrandan çalıştır butonuna basın.

Bu işlemden sonra istediğiniz olacaktır.

Not: Artık dosyanızda makro olduğu için çalışmanızı "farklı kaydet" bölümünden kayıt türünü "Makro içerebilen Excel dosyası olarak" seçip kayıt edin.

Bu şekilde deneyin. Olmazsa ben dosya eklerim.

.

 

[atc35]

Yapamadım malesef. AltF11 yapınca ekranda saçma rakam ve sayılar çıkıyor sonra kayboluyor. Microsoftun açıklama sayfaları da saçma sapan oradan da çözemedim. Sizin için basitse buraya yükleyebilirseniz sevinirim. Olmazsa canınız sağolsun. Tekrar teşekkür ederim.

 

[Ömer]

Makro ayarlarını düşürdüğünüzü varsayıyorum.

Linkten dosyayı açıp "Tıkla" butonuna basın.

http://s9.dosya.tc/server2/xckmyn/Kitap1.rar.html

.

 

[atc35]

Makro ayarlarını düşürdüm. Yaşlanıyorum sanırım bu işler karışık gelir oldu. Bu sitede erişim engellendi yazıyor. Eğer mümkünse ohonto@gmail.com adresime e-posta olarak atabilir misiniz? Tekrardan çok teşekkür ederim.

 

[Ömer]

Gönderdim.

 

[atc35]

mail gelmedi ohonto@gmail.com

 

[atc35]

Allah razı olsun. Oldu! Süper oldu hemde. Çok teşekkür ederim.

 

[Ömer]

Rica ederim, iyi çalışmalar.

 

[gezgin-49]

Sayın üstadım sayıları yan yana değil de alt alta başka hücrelere yazdırmak için


Sub Yaz()

Dim i As Long

With Range("C1")

.ClearContents

If Range("B1") < 1 Then Exit Sub

For i = 0 To Range("B1") - 1
.Value = .Value & "," & Range("A1") + i
Next i

.NumberFormat = "@"
.Value = WorksheetFunction.Substitute(.Value, ",", "", 1)

End With

End Sub

kodları nasıl değiştirebiliriz.