Userform içinde textboxları otomatik temizleyen bir döngü kurdum, sorunsuz çalışıyor. Ancak bunu temizle() fonksiyonu içine alıp çağırdığımda fuction not defined hatası alıyorum. 1 saattir uğraşıyorum hatamı bulamadım. Yardımcı olabilen var mı?
Kod:
Option Explicit
Private Sub btKaydet_Click()
Dim i As Integer
Sheets("Sayfa3").Select
Rows("2:2").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
For i = 1 To 4 ' BOXLARDAN SIRAYLA VERİ ÇEKME
Sheets("Sayfa3").Cells(2, i).Value = Controls("box" & i)
Next i
'Temizle (4)
For k = 1 To 4 ' BOXLARIN İÇİNİ TEMİZLEME USERFORM İÇİNDE ÇALIŞIYOR
Controls("box" & k) = ""
Next k
Bu da çalışmayan modül içindeki kod:
End Sub
Kod:
Option Explicit
Function Temizle(box_sayisi As Integer)
Dim k As Integer
For k = 1 To box_sayisi
Controls("box" & k).Value = ""
Next k
End Function