compile error method or data member not found hatası

[excelience]

merhaba arkadaşlar userform da oluşturduğum dikey verileri işedikten sonra yatay olarak sayfa5'e kaydetmek istiyorum fakat ''compile error method or data member not found hatası'' alıyorum formülde nerde yanlış var çözemedim yadımcı olursanız sevinirim şimdiden teşekkür ederim.

Private Sub CommandButton1_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Sayfa5")

'find first empty row in database
iRow = ws.Cells.Find(What:="*", SearchOrder:=xlRows, _
SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1

'check for a Name number
If Trim(Me.TextBox_ad.Value) = "" Then
Me.TextBox_ad.SetFocus
MsgBox "Lütfen Formu Doldurun"
Exit Sub
End If

'copy the data to the database
ws.Cells(iRow, 1).Value = Me.TextBox_("FİRMA ADI").Value
ws.Cells(iRow, 2).Value = Me.TextBox_ADRES.Value
ws.Cells(iRow, 3).Value = Me.TextBox_TELEFON.Value
ws.Cells(iRow, 4).Value = Me.TextBox_("TELEFON 2").Value
ws.Cells(iRow, 5).Value = Me.TextBox_("YETKİLİ KİŞİ").Value

MsgBox "KAYIT YAPILDI", vbOKOnly + vbInformation, "Veri Kaydedildi"
'clear the data
Me.TextBox_("FİRMA ADI").Value = ""
Me.TextBox_ADRES.Value = ""
Me.TextBox_TELEFON.Value = ""
Me.TextBox_("TELEFON 2").Value = ""
Me.TextBox_("YETKİLİ KİŞİ").Value = ""
Me.TextBox_ad.SetFocus
End Sub KIRMIZI RENK VERDİĞİM YERLERDE HATA GÖSTERİYOR SEBEBİ NE OLABİLİR

 

[excelience]

Evet abiler beklemedeyim desteklerinizi bekliyorum )

 

[turist]

Sayın @excelience ,
Öncelikle; "TextBox_ad" isimli bir TextBox var mı, kontrol edin.
Eğer varsa;
If Trim(Me.TextBox_ad.Value) = "" Then
satırını
If Me.TextBox_ad = "" Then

şeklinde deneyin.
Not: Diğer TextBoxların isimlerini de kontrol etmenizde fayda var.
İyi çalışmalar...

 

[excelience]

Sayın @excelience ,
Öncelikle; "TextBox_ad" isimli bir TextBox var mı, kontrol edin.
Eğer varsa;
If Trim(Me.TextBox_ad.Value) = "" Then
satırını
If Me.TextBox_ad = "" Then

şeklinde deneyin.
Not: Diğer TextBoxların isimlerini de kontrol etmenizde fayda var.
İyi çalışmalar...

HOCAM KRALSINIZ ÇOK TEŞEKKÜR EDERİM

 

[turist]

Sağolun.

 

[yusuf1284]

Kapatırken sürekli bu uyarı vermekte nesne var normal kullanımda sorun yok yardımcı olabilecek var mı

 

[yusuf1284]

Kapatırken sürekli bu uyarı vermekte nesne var normal kullanımda sorun yok yardımcı olabilecek var mı

Yardımcı olabilecek var mı

 

[ÖmerFaruk]

Sorunuzun bu konuyla alakası nedir?
Farklı bir başlıkta sormanız daha uygundu.

Dosyanızı ya da kodlarınızın tamamını görmeden de cevaplaması zor.

 

[yusuf1284]

Hocam başlıkta veren hatayı verdiği için yeni konu açmayayım dedim hata ve kod resimdeki gibi excel dosyasını kapatırken hata veriyor her zamanda vermiyor garip şekilde ilgili kodu bir kaç kez kullanıp kapatınca hata veriyor on error resume koyuyorum yine veriyor

 

[yusuf1284]

Kurumsal bilgisayarda dosya almam gerekecek yine

 

[gezenster]

Private Sub btn_giris_yap_Click()

Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Users")

'Kullanıcı Girişi Başarılı İse

For i = 2 To ws.Range("a1").End(x1Down).Row

If ws.Cells(i, 1) = tb_sicil.Value And ws.Cells(i, 2) = tb_pwd.Text Then

'Success Formun Açılması
Form_Success.tb_success_merhaba = "Merhaba " & ws.Cells(i, 3).Text
Form_Success.Show

'Dosyanın Açılması
Unload LoginForm
Application.Visible = True

If ws.Cells(i, 5) = "Admin" Then
Call Admin_Role_Pages
Else
Call User_Role_Pages
End If

Exit Sub
End If

Next i

'Kullanıcı Girişi Başarısız İse

Form_Fail.Show

End Sub




Merhaba,
.tb_success_merhaba da aynı hatayı alıyorum. yardımcı olur musunuz?