TextBox verdiği hata "belirsiz ad "

[ayemenici]

arkadaşlar,
hazırladığım user form üzerine yeni bir textbox ilave etmek istediğimde "belirsiz ad" yazan bir hata veriyor nasıl düzeltebilirim

 

[Levent Menteşoğlu]

Başka bir textboxa ait ismi tekrar vermeye çalışıyorsunuz. Form üzerinde kullanılmamış olan farklı isimler kullanınız.

 

[ayemenici]

sayın leventm,
yeni bir texbox oluşturmak istediğimde aynı şey oluyor.
ayrıca userformu kod sayfasında kaydetmek istediğimde çok önemli hata uyarısı geliyor ve kaydedilmiyor

 

[ayemenici]

&H8000FFFF(-2147418113) diye bir hata kodu gösteriyor

 

[zafer]

Merhaba

&H8000FFFF hatası yanlış disk ve dizin hatası.

Diskiniz doluda olabilir.

http://www.microsoft.com/technet/scriptcenter/resources/scriptshop/shop0106.mspx

 

[ayemenici]

diskim şu anda üçte biri dolu diğer kısımlar boş ondan olmamalı

 

[zafer]

Merhaba

O zaman Sayın Levent'in dediği gibidir.

Dosyanız çok büyük değilse buraya ekleyin.

 

[ayemenici]

dosyamın kodları aşağıdaki gibi

Private Sub ComboBox1_Change()
If combobox1 <> "" Then [y&#252;kleme!&#305;4] = combobox1
End Sub

Private Sub ComboBox2_Change()
If combobox2 <> "" Then [y&#252;kleme!d8] = combobox2
End Sub

Private Sub ComboBox3_Change()
If combobox3 <> "" Then [y&#252;kleme!d10] = combobox3
End Sub

Private Sub ComboBox4_Change()
If combobox4 <> "" Then [y&#252;kleme!m8] = combobox4
End Sub

Private Sub ComboBox5_Change()
If combobox5 <> "" Then [y&#252;kleme!h8] = combobox5
End Sub


Private Sub CommandButton4_Click()
Sheets("Y&#220;KLEME").Select
Selection.ClearContents
Range("F8").Select
Selection.ClearContents
Range("d8").Select
Selection.ClearContents
Range("d10").Select
Selection.ClearContents
Range("M8").Select
Selection.ClearContents
Range("I4").Select
Selection.ClearContents
Range("M12").Select
Selection.ClearContents
Range("I18").Select
Selection.ClearContents
Range("E15").Select
Selection.ClearContents
Range("E13").Select
Selection.ClearContents
Range("O16").Select
Selection.ClearContents
Range("O15").Select
Selection.ClearContents
Range("H22").Select
Selection.ClearContents
Range("D22").Select
Sheets("MALG&#214;NDERME").Select
Selection.ClearContents
Range("H13").Select
Selection.ClearContents
Range("H14").Select
Sheets("Kay&#305;t").Select
combobox1.Value = ""
combobox2.Value = ""
combobox3.Value = ""
combobox4.Value = ""
textbox1.Value = ""
textbox2.Value = ""
textbox3.Value = ""
textbox4.Value = ""
textbox5.Value = ""
textbox6.Value = ""
textbox7.Value = ""
textbox8.Value = ""
textbox9.Value = ""
textbox10.Value = ""
textbox11.Value = ""
combobox1.SetFocus

End Sub

Private Sub CommandButton5_Click()
Unload Me
End Sub



Private Sub Label6_Click()

End Sub

Private Sub TextBox10_Change()
If textbox10 <> "" Then [MALG&#214;NDERME!h14] = textbox10
textbox10 = Replace(textbox10, "i", "&#304;")
textbox10 = Replace(textbox10, "&#305;", "I")
textbox10 = StrConv(textbox10, vbUpperCase)
End Sub

Private Sub TextBox11_Change()
If textbox11 <> "" Then [MALG&#214;NDERME!h13] = textbox11
End Sub

Private Sub TextBox3_Change()
If textbox3 <> "" Then [y&#252;kleme!m12] = textbox3
textbox3 = Replace(textbox3, "i", "&#304;")
textbox3 = Replace(textbox3, "&#305;", "I")
textbox3 = StrConv(textbox3, vbUpperCase)
End Sub


Private Sub TextBox4_Change()
If textbox4 <> "" Then [y&#252;kleme!d22] = textbox4
textbox4 = Replace(textbox4, "i", "&#304;")
textbox4 = Replace(textbox4, "&#305;", "I")
textbox4 = StrConv(textbox4, vbUpperCase)
End Sub

Private Sub TextBox5_Change()
If textbox5 <> "" Then [y&#252;kleme!&#305;18] = textbox5
textbox5 = Replace(textbox5, "i", "&#304;")
textbox5 = Replace(textbox5, "&#305;", "I")
textbox5 = StrConv(textbox5, vbUpperCase)
End Sub

Private Sub TextBox6_Change()
If textbox6 <> "" Then [y&#252;kleme!h22] = textbox6
textbox6 = Replace(textbox6, "i", "&#304;")
textbox6 = Replace(textbox6, "&#305;", "I")
textbox6 = StrConv(textbox6, vbUpperCase)
End Sub

Private Sub TextBox7_Change()
If textbox7 <> "" Then [y&#252;kleme!e13] = textbox7 * 1
End Sub

Private Sub TextBox8_Change()
If textbox8 <> "" Then [y&#252;kleme!o15] = textbox8 * 1
End Sub

Private Sub TextBox9_Change()
If textbox9 <> "" Then [y&#252;kleme!o16] = textbox9 * 1
End Sub

Private Sub UserForm_Activate()

say = WorksheetFunction.CountA(Sheets("data").Range("I2:I30"))
combobox1.RowSource = "data!I2:&#305;" & say + 1

say = WorksheetFunction.CountA(Sheets("data").Range("j2:j30"))
combobox2.RowSource = "data!j2:j" & say + 1

say = WorksheetFunction.CountA(Sheets("data").Range("L2:L30"))
combobox3.RowSource = "data!L2:L" & say + 1

say = WorksheetFunction.CountA(Sheets("data").Range("a2:a500"))
combobox4.RowSource = "data!f2:F" & say + 1

say = WorksheetFunction.CountA(Sheets("data").Range("k2:k30"))
combobox5.RowSource = "data!k2:K" & say + 1


End Sub

Private Sub CommandButton1_Click()
If combobox1.Value = "" Or combobox2.Value = "" Or combobox3.Value = "" Or combobox5.Value = "" Or textbox1.Value = "" Or textbox2.Value = "" Or textbox4.Value = "" Or textbox5.Value = "" Then
MsgBox "Eksik bilgi giri&#351;i yapt&#305;n&#305;z. L&#252;tfen ilgili b&#246;l&#252;mleri doldurunuz.", vbExclamation, "Dikkat !"
combobox1.SetFocus
Exit Sub
Else

ActiveWorkbook.Save

Sheets("KAYIT").Select
Range("A3").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
If Range("A3").Value = "" Then
Range("A3").Value = 1
Range("A3").Select
Else
ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1
End If
ActiveCell.Offset(0, 1).Value = Worksheets("y&#252;kleme").Range("n4")
ActiveCell.Offset(0, 2).Value = combobox1
ActiveCell.Offset(0, 3).Value = combobox2
ActiveCell.Offset(0, 4).Value = combobox3
ActiveCell.Offset(0, 5).Value = textbox1 * 1
ActiveCell.Offset(0, 6).Value = textbox5
ActiveCell.Offset(0, 7).Value = textbox4
ActiveCell.Offset(0, 8).Value = textbox6
ActiveCell.Offset(0, 9).Value = combobox4
ActiveCell.Offset(0, 10).Value = textbox3
Sheets("KAYIT").Select

MsgBox "KAYIT &#304;&#350;LEM&#304; TAMAMLANDI.", vbInformation
End If
End Sub


Private Sub CommandButton2_Click()
If combobox1.Value = "" Or combobox2.Value = "" Or combobox3.Value = "" Or combobox5.Value = "" Or textbox1.Value = "" Or textbox2.Value = "" Or textbox4.Value = "" Or textbox5.Value = "" Then
MsgBox "Yazd&#305;rmak i&#231;in, L&#252;tfen ilgili b&#246;l&#252;mleri doldurunuz.", vbExclamation, "Dikkat !"
combobox1.SetFocus
Exit Sub
Else
Sheets("Y&#220;KLEME").Select
ActiveSheet.PageSetup.PrintArea = "$C$1:$R$24"
Application.ActivePrinter = "LPT1: &#252;zerindeki EPSON FX-880+ ESC/P "
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"LPT1: &#252;zerindeki EPSON FX-880+ ESC/P ", Collate:=True
Sheets("kay&#305;t").Select
MsgBox "Y&#220;KLEME YAZDIRILIYOR.", vbInformation
End If
End Sub


Private Sub CommandButton3_Click()
If combobox1.Value = "" Or combobox2.Value = "" Or combobox3.Value = "" Or combobox5.Value = "" Or textbox1.Value = "" Or textbox2.Value = "" Or textbox4.Value = "" Or textbox5.Value = "" Then
MsgBox "Yazd&#305;rmak i&#231;in, L&#252;tfen ilgili b&#246;l&#252;mleri doldurunuz.", vbExclamation, "Dikkat !"
combobox1.SetFocus
Exit Sub
Else
Sheets("MALG&#214;NDERME").Select
ActiveSheet.PageSetup.PrintArea = "$B$1:$K$26"
Application.ActivePrinter = "LPT1: &#252;zerindeki EPSON FX-880+ ESC/P "
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"LPT1: &#252;zerindeki EPSON FX-880+ ESC/P ", Collate:=True
Sheets("KAYIT").Select
MsgBox "MAL G&#214;NDERME YAZDIRILIYOR.", vbInformation
End If
End Sub
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case Asc("0") To Asc("9")
Case Asc(",")
Case Else
KeyAscii = 0: MsgBox "SADECE RAKAM G&#304;REB&#304;L&#304;RS&#304;N&#304;Z.", vbExclamation, "Dikkat !"
End Select
End Sub
Private Sub TextBox1_Change()
textbox1.Text = Format(textbox1, "#,##0")
If textbox1 <> "" Then [y&#252;kleme!f8] = textbox1 * 1
End Sub

Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case Asc("0") To Asc("9")
Case Asc(",")
Case Else
KeyAscii = 0: MsgBox "SADECE RAKAM G&#304;REB&#304;L&#304;RS&#304;N&#304;Z.", vbExclamation, "Dikkat !"
End Select
End Sub
Private Sub TextBox7_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case Asc("0") To Asc("9")
Case Asc(",")
Case Else
KeyAscii = 0: MsgBox "SADECE RAKAM G&#304;REB&#304;L&#304;RS&#304;N&#304;Z.", vbExclamation, "Dikkat !"
End Select
End Sub
Private Sub TextBox8_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case Asc("0") To Asc("9")
Case Asc(",")
Case Else
KeyAscii = 0: MsgBox "SADECE RAKAM G&#304;REB&#304;L&#304;RS&#304;N&#304;Z.", vbExclamation, "Dikkat !"
End Select
End Sub
Private Sub TextBox9_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case Asc("0") To Asc("9")
Case Asc(",")
Case Else
KeyAscii = 0: MsgBox "SADECE RAKAM G&#304;REB&#304;L&#304;RS&#304;N&#304;Z.", vbExclamation, "Dikkat !"
End Select
End Sub
Private Sub TextBox11_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case Asc("0") To Asc("9")
Case Asc(",")
Case Else
KeyAscii = 0: MsgBox "SADECE RAKAM G&#304;REB&#304;L&#304;RS&#304;N&#304;Z.", vbExclamation, "Dikkat !"
End Select
End Sub
Private Sub TextBox2_Change()
textbox2.Text = Format(textbox2, "#,##0")
If textbox2 <> "" Then [y&#252;kleme!e15] = textbox2 * 1
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
Cancel = True
End If
End Sub

 

[ayemenici]

ben yanlış anladım dosya ekte

 

[zafer]

Merhaba

Textbox ilave ederken söylemiş olduğunuz hatayı alıyorsanız
konu kodlarla ilgili değil
Onun için dosyayı eklemeniz lazımki bizlerde denerken textbox ilave edip hata verecekmi diye bakalım.

 

[ayemenici]

zafer karde&#351; merhaba,
acaba bu sorun ofis program&#305; ile ilgili olabilirmi ba&#351;ka bir bilgisayarda bu hatay&#305; vermiyor.

 

[Yalova]

bendede veriyor. Excel 2002

 

[zafer]

Merhaba

Başak bir userformda textbox ilave etmeyi denedinizmi

 

[xxrt]

Ofis 2003 Hata yok..

Pardon TextBox ilave edince hata veriyor..Bir

 

[xxrt]

TextBox1'in ad&#305;n&#305; TextBox13 vey 15 yap&#305;n daha sonra yeni textbox ekleyin.

De&#287;i&#351;tridkten sonra di&#287;er kodlarda TextBox1 ad&#305;n&#305; da d&#252;zenleme yapman&#305;z gerekiyor.

 

[zafer]

Merhaba

Texbox'lara isimlerini siz vermişsiniz.Sayın Xxrt'nin dediklerini uygulayın
Sayın Levent'te aynı çözümü önermişti .

 

[ayemenici]

dedi&#287;ini yapt&#305;m olacak gibi yanl&#305;z bu seferde a&#351;a&#287;&#305;daki kod k&#305;sm&#305;nda hata veriyor

Private Sub UserForm_Activate()

say = WorksheetFunction.CountA(Sheets("data").Range("I2: I30"))
combobox1.RowSource = "data!I2:&#305;" & say + 1

say = WorksheetFunction.CountA(Sheets("data").Range("j2: j30"))
combobox2.RowSource = "data!j2:j" & say + 1

say = WorksheetFunction.CountA(Sheets("data").Range("L2: L30"))
combobox3.RowSource = "data!L2:L" & say + 1

say = WorksheetFunction.CountA(Sheets("data").Range("a2: a500"))
combobox4.RowSource = "data!f2:F" & say + 1

say = WorksheetFunction.CountA(Sheets("data").Range("k2: k30"))
combobox5.RowSource = "data!k2:K" & say + 1


End Sub

 

[xxrt]

Merhaba,
TextBox1'in adını değiştirdikten sonra ve diğer kodlarda düzenleme yaptıktan sonra hata vermemesi gerekiyor.Değiştirdiğiniz bölümleri kontrol edin.
Bu arada 2.bir textbox eklemeye çalışırsanız aynı hatayı alırsınız ve aynı işlemleri tekrarlarsınız.
Üşenmeyin çalışmanızdaki UserFormu silin yenisine başlayın ve nesnelerin isimlerini değiştirirken dikkat edin hatta hiç değiştirmeyin.Sağlık bir çalışma olsun.
Kolay gelsin.