Soru Hücrede Belirlenen Aralıklar İle Aşağı Doğru Sırayla Yazmak

[skaan]

Merhaba;

Excel hücrede belirlediğim aralıklar ıle sayıların aşağı doğru sırayla yazdırılmasını sağlamak ıstemekteyım. Öncelıkle sayı aralığını belırledıkten sonra aynı sayfadaki
Dugmeye tanımlanan makro ıle bu sayıları aşağı doğru yazdırmak istemekteyim. Sayı aralığı değişir olmalı istediğim kadar sayı aralığı verıp yazdırmak istemekteyim.
Örnek excel dosyam ektedir. Bu konunun çözümü için destek ve yardımcı olmanızı rica ediyorum.
Hayırlı günler dilerim.

Saygılarımla.
Skaan

 

[kulomer46]

Merhaba

Nereye yazdırmak istiyorsunuz?
Yazıcıdan çıktı mı alınacak, yandaki sütunda alt alta yazdırılacakmı.
Yada talebinize göre nasıl yardımcı olabiliriz.

Selamlar...

 

[skaan]

Merhaba

Nereye yazdırmak istiyorsunuz?
Yazıcıdan çıktı mı alınacak, yandaki sütunda alt alta yazdırılacakmı.
Yada talebinize göre nasıl yardımcı olabiliriz.

Selamlar...

Merhaba;

Bu örnekte excel sayfasında " B" sütununa "B2" hücresinden aşağı doğru alt alta yazdırmak istiyorum..

Teşekkür ederim.
Saygılarımla;
Skaan

 

[kulomer46]

Merhaba

Eklediğiniz excel dosyasında "B" sütununda "B2" hücresinden aşağı doğru şu anda verileriniz zaten yazılı durumda.

Farklı bir talebiniz mi var acaba.

Selamlar...

 

[ÖmerBey]

Merhaba,
Sorunuzdan anladığım kadarıyla bir dosya oluşturdum, dener misiniz?

 

[skaan]

Merhaba,
Sorunuzdan anladığım kadarıyla bir dosya oluşturdum, dener misiniz?

Süpersiniz .. çok çok teşekkürler.. Elinize sağlık.. Ömer bey UserForm'a bir istediğim sütunda bu işlemi yaptırabilmem
için bir sutun ile ilgili seçenek konulabılınır/eklenebilir mi acaba ?


Saygılarımla;
Skaan

 

[ÖmerBey]

Userform içindeki kodu aşağıdakiyle değiştiriniz.
Seçili olan hücreden aşağı doğru doldurma yapar.

Private Sub CommandButton1_Click()
Dim a As Double, bas As Double, bit As Double
Dim sat As Long
Dim ara As Integer
bas = TextBox2.Value
bit = TextBox3.Value
ara = IIf(TextBox4.Value = "", 1, TextBox4.Value)
sat = 0
For a = bas To bit Step ara
    ActiveCell.Offset(sat, 0) = TextBox1.Text & a
    sat = sat + 1
Next
End Sub

 

[skaan]

Userform içindeki kodu aşağıdakiyle değiştiriniz.
Seçili olan hücreden aşağı doğru doldurma yapar.

Private Sub CommandButton1_Click()
Dim a As Double, bas As Double, bit As Double
Dim sat As Long
Dim ara As Integer
bas = TextBox2.Value
bit = TextBox3.Value
ara = IIf(TextBox4.Value = "", 1, TextBox4.Value)
sat = 0
For a = bas To bit Step ara
    ActiveCell.Offset(sat, 0) = TextBox1.Text & a
    sat = sat + 1
Next
End Sub

Ömer bey ; yardımlarınız ve desteğiniz için çok teşekkür ediyorum.
Sağolun varolun.. Hayırlı günler dilerim..

Saygılar;
Skaan

 

[ÖmerBey]

Rica ederim Kaan Bey,
İyi çalışmalar...