textbox boşsa macro çalışmasın

[umitumit]

textbox1 e yazılan değeri sıra no olarak A sütununda bularak işlem yapan bir macrom var.
A sütununu 1000 sıra numarasına kadar doldurdum. az önce textbox1 im boşken kaydet butonuna basarak macroyu çalıştırdım ve 1000 sıra numarasından sonraki boş hücreler macro koşulunu sağladığı için (boş hücre olarak) 65000 satıra kadar tüm verileri 0 olarak yazmaya başladı.
bu tür hataları önlemek için textbox1 boşsa macronun çalışmasını engelleyemez miyiz?

teşekkürler

 

[zafer]

Merhaba


İf textbox1=" " then exit sub
" " yerine Empty kullanabilirsiniz.

 

[umitumit]

benim macrom aşağıdaki gibi:

Private Sub CommandButton2_Click()
On Error Resume Next
Dim bul As Range
Application.Calculation = xlManual
ActiveWorkbook.PrecisionAsDisplayed = False
For Each bul In Worksheets("İADELER").Range("C:C")
If bul = TextBox1.Text Then
bul.Offset(0, 1).Activate
With bul
For i = 1 To 5
If IsNumeric(Controls("TextBox" & i)) Then
.Offset(0, i - 1) = CDbl(Controls("TextBox" & i))
ElseIf Controls("TextBox" & i) = Empty Then
.Offset(0, i - 1) = 0
Else
.Offset(0, i - 1) = Controls("TextBox" & i)
End If
Next i
End With
End If
Next
Unload Me
Unload verigirissec
Application.Calculation = xlAutomatic
ActiveWorkbook.PrecisionAsDisplayed = False
End Sub


sizin önerinizi nasıl ekleyebilirim?

 

[zafer]

Merhaba

İf textbox1=Empty then exit sub

En başa yazın textbox boşsa hiç bir işlem yapmadan makro sonlandırılacaktır

Doluysa devam edecektir.