• DİKKAT

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

veri değiştirme

  • Konbuyu başlatan Konbuyu başlatan elam
  • Başlangıç tarihi Başlangıç tarihi
E

elam

Katılım
5 Aralık 2005
Mesajlar
83
Merhaba,

size dosya gönderiyorum.Burda form daki textbox6da yazan"EGG-BK-05/" yere / işaretinden sonra 012 yazın.Excelden veriyi çekip form üzerine getirecektir.Ben bu form üzerine gelen veriler üzerinde değişiklik yapıp DEÐİÞTİR buttonuna tıkladığımda form üzerine çekilen verilerle değişiklik yaptığım verilerin yer değiştirmesini istiyorum.Ve bunu bütün sayılar için nasıl yapabilirim.(Bu arada EGG-Bk-05/ Ksütununu temsil etmektedir.)Yani başka bir satıra aktarmasını istemiyorum.Umarım yardımcı olabilirsiniz!!!Birde burdaki KARÞILAÞTIR buttonuna tıkladığımda hata veriyo eğer bunada bi açıklık getirebilirseniz sevinirim...
 
Ark.acil lazım bugün bunu bitirmem gerekiyo.Yardımınıza ihtiyacım var... :oops:
 
Makroda Sheet7 yazıyor
fakat sizin tablonuzda sheets7 yok sheet4 var
Sheet4 yapın hata vermez
 
Anlatamıyorum galiba ben SHEET7ler SHEET4 yaptım.Simdide form üzerine gelen veriler üzerinde değişiklik yaptıktan sonra DEÐİÞTİR buttonuna tıkladığımda verilerin yer değiştirmesini nasıl sağlayabilirim diye soruyorum.Bilmem anlatabildim mi????
 
Ã?ncelikle userformdaki tüm kodların en üstüne aşağıdaki satırı yazın.

[vb:1:4c50cb1ebc]Dim i As Integer
[/vb:1:4c50cb1ebc]

Daha sonra textbox6 daki kodu aşağıdaki ile değiştirin.

[vb:1:4c50cb1ebc]Private Sub TextBox6_Change()
On Error Resume Next
If Len(TextBox6) < 13 Then Exit Sub
i = [k1:k65536].Find(TextBox6.Value).Row
ComboBox1.Text = Cells(i, 2)
ComboBox3.Text = Cells(i, 3)
TextBox2.Text = Cells(i, 4)
ComboBox4.Text = Cells(i, 5)
ComboBox2.Text = Cells(i, 6)
TextBox4.Text = Cells(i, 7)
ComboBox5.Text = Cells(i, 10)
TextBox6.Text = Cells(i, 11)
TextBox7.Text = Cells(i, 12)
TextBox8.Text = Cells(i, 13)
TextBox9.Text = Cells(i, 14)
TextBox10.Text = Cells(i, 15)
TextBox11.Text = Cells(i, 16)
TextBox12.Text = Cells(i, 17)
TextBox13.Text = Cells(i, 18)
TextBox14.Text = Cells(i, 19)
TextBox15.Text = Cells(i, 20)
TextBox16.Text = Cells(i, 21)
TextBox17.Text = Cells(i, 22)
TextBox18.Text = Cells(i, 39)
TextBox19.Text = Cells(i, 25)
TextBox21.Text = Cells(i, 27)
TextBox22.Text = Cells(i, 28)
TextBox23.Text = Cells(i, 29)
TextBox24.Text = Cells(i, 30)
TextBox25.Text = Cells(i, 31)
TextBox26.Text = Cells(i, 32)
TextBox27.Text = Cells(i, 33)
TextBox28.Text = Cells(i, 34)
TextBox29.Text = Cells(i, 35)
End Sub[/vb:1:4c50cb1ebc]

Değiştir butonunada aşağıdaki şekilde kodlar yazın.

[vb:1:4c50cb1ebc]Private Sub CommandButton5_Click()
Cells(i, 2) = ComboBox1.Value
Cells(i, 3) = ComboBox3.Value
.
.
.
End Sub[/vb:1:4c50cb1ebc]
 
Cells(i, 2) = ComboBox1.Value
Burada ban hata veriyo.Run-time error'1004':
Application-defined or object-defined error
Ne yapmam gerekiyo :?
 
Kod i değişkenini bulamamış demektir, bunun tek sebebi olabilir, yazdığım 1.maddeyi uygulamamış olmanız. Dim i As Integer satırını tüm prosedirlerin en üstüne ilk satır olarak yazacaksınız.
 
Tamam ben sorunu çözdüm.Ama sizin dediğiniz yanlış (kusura bakmayın hoca).
1.satırın başına On Error Resume Next yazdım sorun çözüldü.Birde form üzerindeki KARÞILAÞTIRMA buttonunda sorun var.o button form1deki datalarla sheet2deki dataların karşılaştırmasını yapacak.Form1den dataları alıp form2de gösteriyo.Ancak sheet2den alıp form2de göstermiyo.Bunu nasıl sağlayabiliriz
 
Arkadaşlar cevap veren yok mu??? :düsün:
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst