Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
13/08/2010 23:52
Konu Sahibi
DUAYEN
Yorumlar
7
Okunma
7392
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
16/03/2017,17:22
Çö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ı: 22)
Bizim için zor diye bir şey yoktur, imkansızsa zaman alır...
Cevapla

chopper07

Uzman
Kullanici Avatari
Uzman
E....
1.803
29/01/2008
376
Aydın
Ofis 2003
17/10/2017,01:51
Çözüldü 
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
07/09/2017,13:09
Çö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.995
29/10/2008
927
Ankara
Celosoft Yazılım
Ofis 2010 32 Bit
Bugün,23:46
Çözüldü 
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.159
06/05/2009
480
İ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ı: 26)
Cevapla

DUAYEN

Aktif Üye
Kullanici Avatari
Aktif Üye
S.... A....
1.026
13/08/2010
279
Yozgat
Ofis 2007
16/03/2017,17:22
Çözüldü 
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
Çözüldü userform güncelleme hatası yok_06 3 687 18/06/2016, 15:09 atoz112
Çözüldü makro vba devre dışı hatası fehmikonkur 5 1.111 16/05/2016, 17:03 atoz112
Çözüldü Excel dosyamda makro hatası.. muzo696 4 876 02/03/2016, 19:49 muzo696
Çözüldü Formul hatası mcmaho 10 2.899 15/08/2014, 12:27 thyranus
Çözüldü Klasör Oluşturma Hatası safe88 8 3.170 11/06/2014, 08:35 safe88

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.