Run-time error '424': Object required hatası
Tarih
13/08/2010 23:52
Konu Sahibi
DUAYEN
Yorumlar
7
Okunma
6585
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



DUAYEN
Aktif Üye
Kullanici Avatari
Aktif Üye
S.... A....
1.026
13/08/2010
279
Yozgat
Ofis 2007
28/10/2016,11:41
Çözüldü 
user from tıkladıgım zaman hata veriyor hatayı düzelte bilirmisinz lutfen benım için çok önemli lutfen yardımlarınızı beklıyorum


Ek Dosyalar
.rar   deneme son.rar (Dosya Boyutu: 17,35 KB / İndirme Sayısı: 20)
Bizim için zor diye bir şey yoktur, imkansızsa zaman alır...
Cevapla

chopper07
Uzman
Kullanici Avatari
Uzman
E....
1.798
29/01/2008
365
Aydın
Ofis 2003
03/01/2017,10:40
Çözüldü 
Sponsor Reklam
formunuz 2003 formatında olmadığından dolayı inceleyemedim maalesef.
™Hiç Birimiz, Hepimiz Kadar Akıllı Olamayız...®

resim
resim
resim
Cevapla

ercansahin
BlackEagle
Kullanici Avatari
Uzman
E.... Ş....
3.739
14/11/2008
Ankara
Ofis 2010 32 Bit
21/02/2017,20:10
Çözüldü 
Usefrom1.Show kodunu UserForm1.Show şeklinde yazarsanız sorun çözülür. Kolay gelsin.Img-grin

Cevapla

C*e*l*o*y*c*e
Celosoft Yazılım
Kullanici Avatari
Uzman
M.... B....
2.867
29/10/2008
902
Ankara
Ofis 2010 32 Bit
Çözüldü 
Sponsor Reklam
sanırım oldu,nasıl yaptığımı hiç sorma Lol baka bir örnekten kodları kopyaladım yapıştırdım oldu,snırım boşluk bırakılacakmış..Lol


Ek Dosyalar
.rar   deneme son.rar (Dosya Boyutu: 17,92 KB / İndirme Sayısı: 14)
Cevapla

ogulcan92
Aktif Üye
Kullanici Avatari
Aktif Üye
1.160
06/05/2009
477
İzmir
Ofis 2003
07/08/2015,11:50
Çözüldü 
Sn:mumya66
Hazırlamış olduğunuz programdaki hatalar.Sırası ile aşağıdaki gibi düzeltiniz ayrıca tebrik ederim kopyala yapıştır yerine kodları yazarak deneyip hata verincede yardım istediğin için.

Sayfa üzerindeki Form açma butonundaki hatalı kod

Kod:
Private Sub CommandButton1_Click()
Userfrom1.Show
End Sub


Yerine yazılacak düzeltilmiş kod

Kod:
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub


Userform1 deki Kodlar

Kaydet butonundaki hatalı kod

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CommandButton1_Click()
b = WorksheetFunction.CountA(Sheets("Veri").Range("A:A"))
Sheets("Veri").Range("a" & b + 1).Select
Activelcell = ComboBox1.Value
ActiveCell.Offset(0, 1) = texbox1.Value
ActiveCell.Offset(0, 2) = texbox2.Value
ActiveCell.Offset(0, 3) = texbox3.Value
ActiveCell.Offset(0, 4) = texbox4.Value
ActiveCell.Offset(0, 5) = texbox5.Value
ActiveCell.Offset(0, 6) = texbox6.Value
ActiveWorkbook.Save
MsgBox "verileriniz kayıt yapıldı", , "www.accesstr.net"
CommandButton5_Click
End Sub


Yerine yazılacak düzeltilmiş kod

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CommandButton1_Click()
b = WorksheetFunction.CountA(Sheets("Veri").Range("A:A"))
Sheets("Veri").Range("a" & b + 1).Select
ActiveCell = ComboBox1.Value
ActiveCell.Offset(0, 1) = TextBox1.Value
ActiveCell.Offset(0, 2) = TextBox2.Value
ActiveCell.Offset(0, 3) = TextBox3.Value
ActiveCell.Offset(0, 4) = TextBox4.Value
ActiveCell.Offset(0, 5) = TextBox5.Value
ActiveCell.Offset(0, 6) = TextBox6.Value
ActiveWorkbook.Save
MsgBox "verileriniz kayıt yapıldı", , "www.accesstr.net"
CommandButton5_Click
End Sub


Bul butonundaki hatalı kod

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButton2_Click()
For Each hucre In Range("a2:a" & WorksheetFunction.CountA(Range("a1:a65000")))
If strcovn(hucre.volue, vbUpperCase) = strcovn(ComboBox1.volue, vbUpperCase) Then
hucre.Select
texbox1 = ActiveCell.Offset(0.1).volue
texbox1 = ActiveCell.Offset(0.2).volue
texbox1 = ActiveCell.Offset(0.3).volue
texbox1 = ActiveCell.Offset(0.4).volue
texbox1 = ActiveCell.Offset(0.5).volue
texbox1 = ActiveCell.Offset(0.6).volue
End If
Next
End Sub


Yerine yazılacak düzeltilmiş kod

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButton2_Click()
For Each hucre In Range("a2:a" & WorksheetFunction.CountA(Range("a1:a65000")))
If StrConv(hucre.Value, vbUpperCase) = StrConv(ComboBox1.Value, vbUpperCase) Then
hucre.Select
TextBox1 = ActiveCell.Offset(0, 1).Value
TextBox2 = ActiveCell.Offset(0, 2).Value
TextBox3 = ActiveCell.Offset(0, 3).Value
TextBox4 = ActiveCell.Offset(0, 4).Value
TextBox5 = ActiveCell.Offset(0, 5).Value
TextBox6 = ActiveCell.Offset(0, 6).Value
End If
Next
End Sub


Düzelt Butonundaki hatalı kod

Kod:
1
2
3
4
5
6
7
8
9
10
11
Private Sub CommandButton3_Click()
ActiveCell.Offset(0, 1).volue = texbox1.volue
ActiveCell.Offset(0, 2).volue = texbox2.volue
ActiveCell.Offset(0, 3).volue = texbox3.volue
ActiveCell.Offset(0, 4).volue = texbox4.volue
ActiveCell.Offset(0, 5).volue = texbox5.volue
ActiveCell.Offset(0, 6).volue = texbox6.volue
activecellworkbook.Save
MsgBox "verileriniz kayıt yapıldı", , "www.accesstr.net"
CommandButton5_Click
End Sub


Yerine yazılacak düzeltilmiş kod

Kod:
1
2
3
4
5
6
7
8
9
10
11
Private Sub CommandButton3_Click()
ActiveCell.Offset(0, 1).Value = TextBox1.Value
ActiveCell.Offset(0, 2).Value = TextBox2.Value
ActiveCell.Offset(0, 3).Value = TextBox3.Value
ActiveCell.Offset(0, 4).Value = TextBox4.Value
ActiveCell.Offset(0, 5).Value = TextBox5.Value
ActiveCell.Offset(0, 6).Value = TextBox6.Value
ActiveWorkbook.Save
MsgBox "verileriniz kayıt yapıldı", , "www.accesstr.net"
CommandButton5_Click
End Sub


Sil Butonundaki hatalı kod

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton4_Click()
Dim cevap
Dim i
cevap = MsgBox("seçili kaydı silmek istediginizden eminmisiniz ?", yesno + vbQuestion, , "www.accesstr.net")
If cevap = vbYes Then
Selection.EntireRow.Delete
End If
Range("A1").Select
MsgBox "Verileriniz silindi", , "www.accesstr.net"
ActiveWorkbook.Save
CommandButton5_Click
End Sub


Yerine yazılacak düzeltilmiş kod

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton4_Click()
Dim cevap
Dim i
cevap = MsgBox("seçili kaydı silmek istediginizden eminmisiniz ?", vbYesNo + vbQuestion, "www.accesstr.net")
If cevap = vbYes Then
Selection.EntireRow.Delete
End If
Range("A1").Select
MsgBox "Verileriniz silindi", , "www.accesstr.net"
ActiveWorkbook.Save
CommandButton5_Click
End Sub


Temizle butonundaki hatalı kod

Kod:
1
2
3
4
5
6
7
8
9
Private Sub CommandButton5_Click()
ComboBox1 = ""
testbox1 = ""
testbox2 = ""
testbox3 = ""
testbox4 = ""
testbox5 = ""
testbox6 = ""
End Sub


Yerine yazılacak düzeltilmiş kod

Kod:
1
2
3
4
5
6
7
8
9
Private Sub CommandButton5_Click()
ComboBox1 = ""
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
End Sub


Kapat butonundaki hatalı kod

Kod:
1
2
3
4
5
6
Private Sub CommandButton6_Click()
ActiveWorkbook.Save
MsgBox "program kapatılıyor", , "www.accesstr.net"
Application.qouit
End
End Sub


Yerine yazılacak düzeltilmiş kod

Kod:
1
2
3
4
5
6
Private Sub CommandButton6_Click()
ActiveWorkbook.Save
MsgBox "program kapatılıyor", , "www.accesstr.net"
Application.Quit
End
End Sub


Hatlı ve düzeltilmiş olarak verilen kodları karşılaştırıp hatalarınızın nerelerde olduğunu anlamanız daha basit olacağı için birlikte yazılımıştır.Programın düzeltilmiş şekli aşağıdadır.



Ek Dosyalar
.rar   deneme son_mumya66.rar (Dosya Boyutu: 20,69 KB / İndirme Sayısı: 22)
Cevapla

DUAYEN
Aktif Üye
Kullanici Avatari
Aktif Üye
S.... A....
1.026
13/08/2010
279
Yozgat
Ofis 2007
28/10/2016,11:41
Çözüldü 
Sponsor Reklam
hepinize çok teşekur ederim allah razı olsun.ilk programım oldugu için çok zorlandım yanlışlarım olsada ama azda olsa yaptım hepınıze teşekur ederım
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  userform güncelleme hatası yok_06 3 500 18/06/2016, 15:09 atoz112
  makro vba devre dışı hatası fehmikonkur 5 674 16/05/2016, 17:03 atoz112
Çözüldü Excel dosyamda makro hatası.. muzo696 4 543 02/03/2016, 19:49 muzo696
Çözüldü Formul hatası mcmaho 10 2.368 15/08/2014, 12:27 thyranus
Çözüldü Klasör Oluşturma Hatası safe88 8 2.568 11/06/2014, 08:35 safe88


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya