Son dolu satırdan itibaren sıralamak

[cem yılmaz]

Merhabalar..

Kullandığım kod aşağıdaki gibi Son dolu satırı bulup yazdığım kodu çalıştırmak istiyorum..

Private Sub CommandButton1_Click()
Dim a As Long, b As Long, a_sat As Byte, b_sat As Long
a = Range("C4")
b = Range("D4")
a_sat = 70: b_sat = 7
Application.ScreenUpdating = False
Range("A7:A10001,B10001:B10002").ClearContents
For i = a To b
If a_sat <= 0 Then
    Cells(a_sat, 60).Value = i
    a_sat = a_sat + 1
    Else
    Cells(b_sat, 2).Value = i
    b_sat = b_sat + 1
End If
Next
Application.ScreenUpdating = True
MsgBox "İşlem tamamlandı..!!"
End Sub

 

[Ayhan Ercan]

Merhaba Sn cem yılmaz

Aşağıdaki kodları kullanarak denermisiniz?

Private Sub CommandButton1_Click() 
Dim a As Long, b As Long, son As Long
a = TextBox1 * 1
b = TextBox2 * 1
son = [b65536].End(3).Row + 1
Application.ScreenUpdating = False
    For i = a To b
        If son <= 7 Then son = 7
        Cells(son, 2).Value = i
        son = son + 1
    Next
Application.ScreenUpdating = True
MsgBox "&#304;&#351;lem tamamland&#305;..!!"
End Sub

 

[cem yılmaz]

Teşekkürler yazdığınız kod çalışıyor peki textboxların dolu olma şartı için ne yapmamız gerek?

 

[cem yılmaz]

Ayhan hocam;
Korhan hocamın bir uygulamasında buldum kodları sağolun

If TextBox1 = "" Then
    MsgBox "LÜTFEN İLK NUMARAYI GİRİNİZ !", vbCritical
    TextBox1.SetFocus
    Exit Sub
    End If
    If TextBox2 = "" Then
    MsgBox "LÜTFEN İKİNCİ NUMARAYI GİRİNİZ !", vbCritical
    TextBox2.SetFocus
    Exit Sub