• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Veri Aktarımındaki Yanlışlık..

E

EKREM1661

Katılım
10 Kasım 2006
Mesajlar
1,288
Excel Vers. ve Dili
Excel-2016
Değerli Arkadaşlar..! İyi çalışmalar..
Sebebini çözemediğim bir iş içerisindeyim.. Bir sayfadan diğer sayfaya kayıt yapılıyor, ancak mevcut ilk kaydı geri getiriyor.. Ekte örnek dosyada daha iyi anlaşılacak.. Bir bakabilirseniz çok memnun olurum..
 

Ekli dosyalar

Merhabalar,

Kaydet butonu kodlarınız, Combobox'un Change olayını tetiklediğinden bu tür bir hata ile karşılaşmaktasınız.

Combobox Change olayındaki kodları, Combobox'un DoubleClick olayına taşıyınız.

Kolay gelsin...
 
O zaman da; combo kutusuna ait, verileri geri çağırma kodları çalışmıyor.. Herhalde bunun bir yolu olması lazım..
 
EKREM1661' Alıntı:
O zaman da; combo kutusuna ait, verileri geri çağırma kodları çalışmıyor.. Herhalde bunun bir yolu olması lazım..
Genişletmek için tıkla ...

combobox 1 change kodlarını aşağıdaki gibi yapıp denermisin.

Kod: 
Private Sub ComboBox1_Change()

[B]If Sheets("girdi").Cells(2, "b").Value <> ComboBox1.Value Then[/B]

With Sheets("KAYIT")
[B]Sheets("girdi").Cells(2, "b").Value = ComboBox1.Value[/B]

Sheets("girdi").Cells(20, "F").Value = .Cells(ComboBox1.ListIndex + 4, 44).Value
Sheets("girdi").Cells(20, "G").Value = .Cells(ComboBox1.ListIndex + 4, 45).Value
Sheets("girdi").Cells(20, "H").Value = .Cells(ComboBox1.ListIndex + 4, 46).Value
Sheets("girdi").Cells(20, "I").Value = .Cells(ComboBox1.ListIndex + 4, 47).Value

'-----------------------
Sheets("girdi").Cells(21, "C").Value = .Cells(ComboBox1.ListIndex + 4, 49).Value
Sheets("girdi").Cells(21, "D").Value = .Cells(ComboBox1.ListIndex + 4, 50).Value
Sheets("girdi").Cells(21, "E").Value = .Cells(ComboBox1.ListIndex + 4, 51).Value
Sheets("girdi").Cells(21, "F").Value = .Cells(ComboBox1.ListIndex + 4, 52).Value
Sheets("girdi").Cells(21, "G").Value = .Cells(ComboBox1.ListIndex + 4, 53).Value
Sheets("girdi").Cells(21, "H").Value = .Cells(ComboBox1.ListIndex + 4, 54).Value
Sheets("girdi").Cells(21, "I").Value = .Cells(ComboBox1.ListIndex + 4, 55).Value

Sheets("girdi").Cells(22, "C").Value = .Cells(ComboBox1.ListIndex + 4, 56).Value
Sheets("girdi").Cells(22, "D").Value = .Cells(ComboBox1.ListIndex + 4, 57).Value
Sheets("girdi").Cells(22, "E").Value = .Cells(ComboBox1.ListIndex + 4, 58).Value
Sheets("girdi").Cells(22, "F").Value = .Cells(ComboBox1.ListIndex + 4, 59).Value
Sheets("girdi").Cells(22, "G").Value = .Cells(ComboBox1.ListIndex + 4, 60).Value
Sheets("girdi").Cells(22, "H").Value = .Cells(ComboBox1.ListIndex + 4, 61).Value
Sheets("girdi").Cells(22, "I").Value = .Cells(ComboBox1.ListIndex + 4, 62).Value

Sheets("girdi").Cells(23, "C").Value = .Cells(ComboBox1.ListIndex + 4, 63).Value
Sheets("girdi").Cells(23, "D").Value = .Cells(ComboBox1.ListIndex + 4, 64).Value
Sheets("girdi").Cells(23, "E").Value = .Cells(ComboBox1.ListIndex + 4, 65).Value
Sheets("girdi").Cells(23, "F").Value = .Cells(ComboBox1.ListIndex + 4, 66).Value
Sheets("girdi").Cells(23, "G").Value = .Cells(ComboBox1.ListIndex + 4, 67).Value
Sheets("girdi").Cells(23, "H").Value = .Cells(ComboBox1.ListIndex + 4, 68).Value
Sheets("girdi").Cells(23, "I").Value = .Cells(ComboBox1.ListIndex + 4, 69).Value

Sheets("girdi").Cells(24, "C").Value = .Cells(ComboBox1.ListIndex + 4, 70).Value
Sheets("girdi").Cells(24, "D").Value = .Cells(ComboBox1.ListIndex + 4, 71).Value
Sheets("girdi").Cells(24, "E").Value = .Cells(ComboBox1.ListIndex + 4, 72).Value
Sheets("girdi").Cells(24, "F").Value = .Cells(ComboBox1.ListIndex + 4, 73).Value
Sheets("girdi").Cells(24, "G").Value = .Cells(ComboBox1.ListIndex + 4, 74).Value
Sheets("girdi").Cells(24, "H").Value = .Cells(ComboBox1.ListIndex + 4, 75).Value
Sheets("girdi").Cells(24, "I").Value = .Cells(ComboBox1.ListIndex + 4, 76).Value

Sheets("girdi").Cells(25, "C").Value = .Cells(ComboBox1.ListIndex + 4, 77).Value
Sheets("girdi").Cells(25, "D").Value = .Cells(ComboBox1.ListIndex + 4, 78).Value
Sheets("girdi").Cells(25, "E").Value = .Cells(ComboBox1.ListIndex + 4, 79).Value
Sheets("girdi").Cells(25, "F").Value = .Cells(ComboBox1.ListIndex + 4, 80).Value
Sheets("girdi").Cells(25, "G").Value = .Cells(ComboBox1.ListIndex + 4, 81).Value
Sheets("girdi").Cells(25, "H").Value = .Cells(ComboBox1.ListIndex + 4, 82).Value
Sheets("girdi").Cells(25, "I").Value = .Cells(ComboBox1.ListIndex + 4, 83).Value

Sheets("girdi").Cells(26, "C").Value = .Cells(ComboBox1.ListIndex + 4, 84).Value
Sheets("girdi").Cells(26, "D").Value = .Cells(ComboBox1.ListIndex + 4, 85).Value
Sheets("girdi").Cells(26, "E").Value = .Cells(ComboBox1.ListIndex + 4, 86).Value
Sheets("girdi").Cells(26, "F").Value = .Cells(ComboBox1.ListIndex + 4, 87).Value
Sheets("girdi").Cells(26, "G").Value = .Cells(ComboBox1.ListIndex + 4, 88).Value
Sheets("girdi").Cells(26, "H").Value = .Cells(ComboBox1.ListIndex + 4, 89).Value
Sheets("girdi").Cells(26, "I").Value = .Cells(ComboBox1.ListIndex + 4, 90).Value

Sheets("girdi").Cells(27, "C").Value = .Cells(ComboBox1.ListIndex + 4, 91).Value
Sheets("girdi").Cells(27, "D").Value = .Cells(ComboBox1.ListIndex + 4, 92).Value
Sheets("girdi").Cells(27, "E").Value = .Cells(ComboBox1.ListIndex + 4, 93).Value
Sheets("girdi").Cells(27, "F").Value = .Cells(ComboBox1.ListIndex + 4, 94).Value
Sheets("girdi").Cells(27, "G").Value = .Cells(ComboBox1.ListIndex + 4, 95).Value
Sheets("girdi").Cells(27, "H").Value = .Cells(ComboBox1.ListIndex + 4, 96).Value
Sheets("girdi").Cells(27, "I").Value = .Cells(ComboBox1.ListIndex + 4, 97).Value

Sheets("girdi").Cells(28, "C").Value = .Cells(ComboBox1.ListIndex + 4, 98).Value
Sheets("girdi").Cells(28, "D").Value = .Cells(ComboBox1.ListIndex + 4, 99).Value
Sheets("girdi").Cells(28, "E").Value = .Cells(ComboBox1.ListIndex + 4, 100).Value
Sheets("girdi").Cells(28, "F").Value = .Cells(ComboBox1.ListIndex + 4, 101).Value
Sheets("girdi").Cells(28, "G").Value = .Cells(ComboBox1.ListIndex + 4, 102).Value
Sheets("girdi").Cells(28, "H").Value = .Cells(ComboBox1.ListIndex + 4, 103).Value
Sheets("girdi").Cells(28, "I").Value = .Cells(ComboBox1.ListIndex + 4, 104).Value

Sheets("girdi").Cells(29, "C").Value = .Cells(ComboBox1.ListIndex + 4, 105).Value
Sheets("girdi").Cells(29, "D").Value = .Cells(ComboBox1.ListIndex + 4, 106).Value
Sheets("girdi").Cells(29, "E").Value = .Cells(ComboBox1.ListIndex + 4, 107).Value
Sheets("girdi").Cells(29, "F").Value = .Cells(ComboBox1.ListIndex + 4, 108).Value
Sheets("girdi").Cells(29, "G").Value = .Cells(ComboBox1.ListIndex + 4, 109).Value
Sheets("girdi").Cells(29, "H").Value = .Cells(ComboBox1.ListIndex + 4, 110).Value
Sheets("girdi").Cells(29, "I").Value = .Cells(ComboBox1.ListIndex + 4, 111).Value

Sheets("girdi").Cells(30, "C").Value = .Cells(ComboBox1.ListIndex + 4, 112).Value
Sheets("girdi").Cells(30, "D").Value = .Cells(ComboBox1.ListIndex + 4, 113).Value
Sheets("girdi").Cells(30, "E").Value = .Cells(ComboBox1.ListIndex + 4, 114).Value
Sheets("girdi").Cells(30, "F").Value = .Cells(ComboBox1.ListIndex + 4, 115).Value
Sheets("girdi").Cells(30, "G").Value = .Cells(ComboBox1.ListIndex + 4, 116).Value
Sheets("girdi").Cells(30, "H").Value = .Cells(ComboBox1.ListIndex + 4, 117).Value
Sheets("girdi").Cells(30, "I").Value = .Cells(ComboBox1.ListIndex + 4, 118).Value

Sheets("girdi").Cells(31, "C").Value = .Cells(ComboBox1.ListIndex + 4, 119).Value
Sheets("girdi").Cells(31, "D").Value = .Cells(ComboBox1.ListIndex + 4, 120).Value
Sheets("girdi").Cells(31, "E").Value = .Cells(ComboBox1.ListIndex + 4, 121).Value
Sheets("girdi").Cells(31, "F").Value = .Cells(ComboBox1.ListIndex + 4, 122).Value
Sheets("girdi").Cells(31, "G").Value = .Cells(ComboBox1.ListIndex + 4, 123).Value
Sheets("girdi").Cells(31, "H").Value = .Cells(ComboBox1.ListIndex + 4, 124).Value
Sheets("girdi").Cells(31, "I").Value = .Cells(ComboBox1.ListIndex + 4, 125).Value

Sheets("girdi").Cells(32, "C").Value = .Cells(ComboBox1.ListIndex + 4, 126).Value
Sheets("girdi").Cells(32, "D").Value = .Cells(ComboBox1.ListIndex + 4, 127).Value
Sheets("girdi").Cells(32, "E").Value = .Cells(ComboBox1.ListIndex + 4, 128).Value
Sheets("girdi").Cells(32, "F").Value = .Cells(ComboBox1.ListIndex + 4, 129).Value
Sheets("girdi").Cells(32, "G").Value = .Cells(ComboBox1.ListIndex + 4, 130).Value
Sheets("girdi").Cells(32, "H").Value = .Cells(ComboBox1.ListIndex + 4, 131).Value
Sheets("girdi").Cells(32, "I").Value = .Cells(ComboBox1.ListIndex + 4, 132).Value

Sheets("girdi").Cells(33, "C").Value = .Cells(ComboBox1.ListIndex + 4, 133).Value
Sheets("girdi").Cells(33, "D").Value = .Cells(ComboBox1.ListIndex + 4, 134).Value
Sheets("girdi").Cells(33, "E").Value = .Cells(ComboBox1.ListIndex + 4, 135).Value
Sheets("girdi").Cells(33, "F").Value = .Cells(ComboBox1.ListIndex + 4, 136).Value
Sheets("girdi").Cells(33, "G").Value = .Cells(ComboBox1.ListIndex + 4, 137).Value
Sheets("girdi").Cells(33, "H").Value = .Cells(ComboBox1.ListIndex + 4, 138).Value
Sheets("girdi").Cells(33, "I").Value = .Cells(ComboBox1.ListIndex + 4, 139).Value

Sheets("girdi").Cells(34, "C").Value = .Cells(ComboBox1.ListIndex + 4, 140).Value
Sheets("girdi").Cells(34, "D").Value = .Cells(ComboBox1.ListIndex + 4, 141).Value
Sheets("girdi").Cells(34, "E").Value = .Cells(ComboBox1.ListIndex + 4, 142).Value
Sheets("girdi").Cells(34, "F").Value = .Cells(ComboBox1.ListIndex + 4, 143).Value
Sheets("girdi").Cells(34, "G").Value = .Cells(ComboBox1.ListIndex + 4, 144).Value
Sheets("girdi").Cells(34, "H").Value = .Cells(ComboBox1.ListIndex + 4, 145).Value
Sheets("girdi").Cells(34, "I").Value = .Cells(ComboBox1.ListIndex + 4, 146).Value

Sheets("girdi").Cells(35, "C").Value = .Cells(ComboBox1.ListIndex + 4, 147).Value
Sheets("girdi").Cells(35, "D").Value = .Cells(ComboBox1.ListIndex + 4, 148).Value
Sheets("girdi").Cells(35, "E").Value = .Cells(ComboBox1.ListIndex + 4, 149).Value
Sheets("girdi").Cells(35, "F").Value = .Cells(ComboBox1.ListIndex + 4, 150).Value
Sheets("girdi").Cells(35, "G").Value = .Cells(ComboBox1.ListIndex + 4, 151).Value
Sheets("girdi").Cells(35, "H").Value = .Cells(ComboBox1.ListIndex + 4, 152).Value
Sheets("girdi").Cells(35, "I").Value = .Cells(ComboBox1.ListIndex + 4, 153).Value

Sheets("girdi").Cells(36, "C").Value = .Cells(ComboBox1.ListIndex + 4, 154).Value
Sheets("girdi").Cells(36, "D").Value = .Cells(ComboBox1.ListIndex + 4, 155).Value
Sheets("girdi").Cells(36, "E").Value = .Cells(ComboBox1.ListIndex + 4, 156).Value
Sheets("girdi").Cells(36, "F").Value = .Cells(ComboBox1.ListIndex + 4, 157).Value
Sheets("girdi").Cells(36, "G").Value = .Cells(ComboBox1.ListIndex + 4, 158).Value
Sheets("girdi").Cells(36, "H").Value = .Cells(ComboBox1.ListIndex + 4, 159).Value
Sheets("girdi").Cells(36, "I").Value = .Cells(ComboBox1.ListIndex + 4, 160).Value

Sheets("girdi").Cells(37, "C").Value = .Cells(ComboBox1.ListIndex + 4, 161).Value
Sheets("girdi").Cells(37, "D").Value = .Cells(ComboBox1.ListIndex + 4, 162).Value
Sheets("girdi").Cells(37, "E").Value = .Cells(ComboBox1.ListIndex + 4, 163).Value
Sheets("girdi").Cells(37, "F").Value = .Cells(ComboBox1.ListIndex + 4, 164).Value
Sheets("girdi").Cells(37, "G").Value = .Cells(ComboBox1.ListIndex + 4, 165).Value
Sheets("girdi").Cells(37, "H").Value = .Cells(ComboBox1.ListIndex + 4, 166).Value
Sheets("girdi").Cells(37, "I").Value = .Cells(ComboBox1.ListIndex + 4, 167).Value

Sheets("girdi").Cells(38, "C").Value = .Cells(ComboBox1.ListIndex + 4, 168).Value
Sheets("girdi").Cells(38, "D").Value = .Cells(ComboBox1.ListIndex + 4, 169).Value
Sheets("girdi").Cells(38, "E").Value = .Cells(ComboBox1.ListIndex + 4, 170).Value
Sheets("girdi").Cells(38, "F").Value = .Cells(ComboBox1.ListIndex + 4, 171).Value
Sheets("girdi").Cells(38, "G").Value = .Cells(ComboBox1.ListIndex + 4, 172).Value
Sheets("girdi").Cells(38, "H").Value = .Cells(ComboBox1.ListIndex + 4, 173).Value
Sheets("girdi").Cells(38, "I").Value = .Cells(ComboBox1.ListIndex + 4, 174).Value

Sheets("girdi").Cells(39, "C").Value = .Cells(ComboBox1.ListIndex + 4, 175).Value
Sheets("girdi").Cells(39, "D").Value = .Cells(ComboBox1.ListIndex + 4, 176).Value
Sheets("girdi").Cells(39, "E").Value = .Cells(ComboBox1.ListIndex + 4, 177).Value
Sheets("girdi").Cells(39, "F").Value = .Cells(ComboBox1.ListIndex + 4, 178).Value
Sheets("girdi").Cells(39, "G").Value = .Cells(ComboBox1.ListIndex + 4, 179).Value
Sheets("girdi").Cells(39, "H").Value = .Cells(ComboBox1.ListIndex + 4, 180).Value
Sheets("girdi").Cells(39, "I").Value = .Cells(ComboBox1.ListIndex + 4, 181).Value

Sheets("girdi").Cells(40, "C").Value = .Cells(ComboBox1.ListIndex + 4, 182).Value
Sheets("girdi").Cells(40, "D").Value = .Cells(ComboBox1.ListIndex + 4, 183).Value
Sheets("girdi").Cells(40, "E").Value = .Cells(ComboBox1.ListIndex + 4, 184).Value
Sheets("girdi").Cells(40, "F").Value = .Cells(ComboBox1.ListIndex + 4, 185).Value
Sheets("girdi").Cells(40, "G").Value = .Cells(ComboBox1.ListIndex + 4, 186).Value
Sheets("girdi").Cells(40, "H").Value = .Cells(ComboBox1.ListIndex + 4, 187).Value
Sheets("girdi").Cells(40, "I").Value = .Cells(ComboBox1.ListIndex + 4, 188).Value

Sheets("girdi").Cells(41, "C").Value = .Cells(ComboBox1.ListIndex + 4, 189).Value
Sheets("girdi").Cells(41, "D").Value = .Cells(ComboBox1.ListIndex + 4, 190).Value
Sheets("girdi").Cells(41, "E").Value = .Cells(ComboBox1.ListIndex + 4, 191).Value
Sheets("girdi").Cells(41, "F").Value = .Cells(ComboBox1.ListIndex + 4, 192).Value
Sheets("girdi").Cells(41, "G").Value = .Cells(ComboBox1.ListIndex + 4, 193).Value
Sheets("girdi").Cells(41, "H").Value = .Cells(ComboBox1.ListIndex + 4, 194).Value
Sheets("girdi").Cells(41, "I").Value = .Cells(ComboBox1.ListIndex + 4, 195).Value

Sheets("girdi").Cells(42, "C").Value = .Cells(ComboBox1.ListIndex + 4, 196).Value
Sheets("girdi").Cells(42, "D").Value = .Cells(ComboBox1.ListIndex + 4, 197).Value
Sheets("girdi").Cells(42, "E").Value = .Cells(ComboBox1.ListIndex + 4, 198).Value
Sheets("girdi").Cells(42, "F").Value = .Cells(ComboBox1.ListIndex + 4, 199).Value
Sheets("girdi").Cells(42, "G").Value = .Cells(ComboBox1.ListIndex + 4, 200).Value
Sheets("girdi").Cells(42, "H").Value = .Cells(ComboBox1.ListIndex + 4, 201).Value
Sheets("girdi").Cells(42, "I").Value = .Cells(ComboBox1.ListIndex + 4, 202).Value

Sheets("girdi").Cells(43, "C").Value = .Cells(ComboBox1.ListIndex + 4, 203).Value
Sheets("girdi").Cells(43, "D").Value = .Cells(ComboBox1.ListIndex + 4, 204).Value
Sheets("girdi").Cells(43, "E").Value = .Cells(ComboBox1.ListIndex + 4, 205).Value
Sheets("girdi").Cells(43, "F").Value = .Cells(ComboBox1.ListIndex + 4, 206).Value
Sheets("girdi").Cells(43, "G").Value = .Cells(ComboBox1.ListIndex + 4, 207).Value
Sheets("girdi").Cells(43, "H").Value = .Cells(ComboBox1.ListIndex + 4, 208).Value
Sheets("girdi").Cells(43, "I").Value = .Cells(ComboBox1.ListIndex + 4, 209).Value

Sheets("girdi").Cells(44, "C").Value = .Cells(ComboBox1.ListIndex + 4, 210).Value
Sheets("girdi").Cells(44, "D").Value = .Cells(ComboBox1.ListIndex + 4, 211).Value
Sheets("girdi").Cells(44, "E").Value = .Cells(ComboBox1.ListIndex + 4, 212).Value
Sheets("girdi").Cells(44, "F").Value = .Cells(ComboBox1.ListIndex + 4, 213).Value
Sheets("girdi").Cells(44, "G").Value = .Cells(ComboBox1.ListIndex + 4, 214).Value
Sheets("girdi").Cells(44, "H").Value = .Cells(ComboBox1.ListIndex + 4, 215).Value
Sheets("girdi").Cells(44, "I").Value = .Cells(ComboBox1.ListIndex + 4, 216).Value

Sheets("girdi").Cells(45, "C").Value = .Cells(ComboBox1.ListIndex + 4, 217).Value
Sheets("girdi").Cells(45, "D").Value = .Cells(ComboBox1.ListIndex + 4, 218).Value
Sheets("girdi").Cells(45, "E").Value = .Cells(ComboBox1.ListIndex + 4, 219).Value
Sheets("girdi").Cells(45, "F").Value = .Cells(ComboBox1.ListIndex + 4, 220).Value
Sheets("girdi").Cells(45, "G").Value = .Cells(ComboBox1.ListIndex + 4, 221).Value
Sheets("girdi").Cells(45, "H").Value = .Cells(ComboBox1.ListIndex + 4, 222).Value
Sheets("girdi").Cells(45, "I").Value = .Cells(ComboBox1.ListIndex + 4, 223).Value

End With

[B]End If[/B]

End Sub
 
EKREM1661' Alıntı:
O zaman da; combo kutusuna ait, verileri geri çağırma kodları çalışmıyor.. Herhalde bunun bir yolu olması lazım..
Genişletmek için tıkla ...
Şöylede olabilir.



Combobox un propertiesten "ListFillRange" yi boşaltıp.



Kod: 
 Private Sub CommandButton7_Click()
Uyarı = MsgBox("Girilen Tüm Bilgiler Kaydedilecek..!" & vbCrLf & " " & vbCrLf & "...!", vbSystemModal + vbInformation + vbYesNo, "KAYIT BİLGİSİ")
If Uyarı = 6 Then
Else: Exit Sub
End If
KayıtEkle
[COLOR="#ff0000"]ComboBox1 = ""
ComboBox1.ListFillRange = "KAYIT!T4:T" & Sheets("KAYIT").Cells(65000, 20).End(xlUp).Row[/COLOR]
End Sub



Private Sub ComboBox1_Change()
[COLOR="Red"]If ComboBox1 = "" Then Exit Sub[/COLOR]
With Sheets("KAYIT")
'.................
'...................
 
Sayın Huseyinkis ve Sayın Husgvarna ziyadesiyle teşekkür ederim ve sağlıklı günler dilerim.. Sayenizde sorun çözüldü..
 
Sayın Skorpiyon ..! Kusura bakmayın, dalgınlığıma gelmiş, aynı şekilde size de teşekkür ederim.. 6 nolu mesajda ismen yazdığım teşekkür mesajında sizi ayırmak ayıp oldu, özür olarak kabul etmenizi dilerim..
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst