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?

 

[ARCE]

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?

MERHABA BU SORUNU ÇÖZEBİLDİNİZ Mİ?

AYNI SORUN BENDE DE VAR. LÜTFEN YARDIM.

 

[Korhan Ayhan]

İsmi geçen nesnenin varlığını ve adını kontrol etmelisiniz..

 

[ARCE]

İsmi geçen nesnenin varlığını ve adını kontrol etmelisiniz..

İlginiz için teşekkür ederim
Bu kontrolü nasıl yapabilirim

 

[Korhan Ayhan]

ALT+F11 ile VBA editörünü açarak kodlara ulaşabilirsiniz.

 

[ARCE]

teşekkür ederim hocam deneyeceğim
Bazı videolarda 32 bit 64 bit kaynaklı olabilir gibi çözüm önerileri oldu ama anlayamadım sizin önerinizde olmazsa dosyayı paylaşmak isterim

 

[ARCE]

ALT+F11 ile VBA editörünü açarak kodlara ulaşabilirsiniz.

BEN ALT + F11 E BASINCA YİNE GİRİŞ SAYFASI AÇILIYOR HATAYI KONTROL ETME NASIL YAPABİLİRİM

 

[Korhan Ayhan]

Hata verince karşınıza hata mesajını gösteren bir pencere açılacaktır. Bu pencerede DEBUG butonu olması gerekir. Ona tıklarsanız sizi hata veren satıra götürür. Oradan hangi satırda hata olduğunu görebilirsiniz.

 

[ARCE]

MAALESEF O DA OLMADI. SİZE NE ŞEKİLDE PAYLAŞABİLİRİM ÇALIŞMAYI

 

[Korhan Ayhan]

Dosyanızı harici dosya paylaşım sitelerine yükleyip indirme linkini forumda paylaşabilirsiniz.