userformda girilen bilgileri kayıt altına almak

[cem yılmaz]

userformda girilen bilgileri kayıt altına almak istiyorum.SN.Evren GİZLEN hocamın yardımlarıyla oluşturduğum bu dosyada userform ortamına taşımak ve girilen iki sayının arasında kalan ilk 50 sayıyı bir sütuna ikinci 50 sayıyı diğer sütuna yazsın.......... devamı dosyanın içinde

 

[Orion1]

Dosya ekte.

Private Sub CommandButton1_Click()
Dim ilk As Byte, son As Long, i As Long, sat As Long
On Error Resume Next
Range("A1:B65536").ClearContents
ilk = CDbl(TextBox1.Value)
son = CDbl(TextBox2.Value)
sat1 = 1
sat2 = 1
For i = ilk To son
    If sat1 <= 50 Then
        Cells(sat1, "A").Value = i
        sat1 = sat1 + 1
        Else
        Cells(sat2, "B").Value = i
        sat2 = sat2 + 1
    End If
Next
End Sub

 

[cem yılmaz]

yalnız hocam bu dosyamda belirttiğim şeye çok yakın teşekkür ederim ama mesela 7101001-7101100 gibi bir mühür aralığı girdiğimde donup kalıyor.
size örnek olması açısından istediğim işlemlerin userformlarını oluşturmuştum bunları yapmamda yardımcı olabilirmisiniz

 

[Orion1]

yalnız hocam bu dosyamda belirttiğim şeye çok yakın teşekkür ederim ama mesela 7101001-7101100 gibi bir mühür aralığı girdiğimde donup kalıyor.
size örnek olması açısından istediğim işlemlerin userformlarını oluşturmuştum bunları yapmamda yardımcı olabilirmisiniz

Dosya ekte.

Private Sub CommandButton1_Click()
Dim ilk As Long, son As Long, i As Long, sat As Long
On Error Resume Next
Range("A1:B65536").ClearContents
ilk = CDbl(TextBox1.Value)
son = CDbl(TextBox2.Value)
sat1 = 1
sat2 = 1
For i = ilk To son
    If sat1 <= 50 Then
        Cells(sat1, "A").Value = i
        sat1 = sat1 + 1
        Else
        Cells(sat2, "B").Value = i
        sat2 = sat2 + 1
    End If
Next
End Sub