veri değiştirme

[elam]

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...

 

[elam]

Ark.acil lazım bugün bunu bitirmem gerekiyo.Yardımınıza ihtiyacım var...

 

[kundakci]

Makroda Sheet7 yazıyor
fakat sizin tablonuzda sheets7 yok sheet4 var
Sheet4 yapın hata vermez

 

[elam]

sağolun.Peki değiştirme işlemi için ne yapmam gerekiyo

 

[elam]

Arkadaşlar cevap veren yok mu??? :düsün:

 

[Kemal Demir]

bu değeri Sheets("Sheet7")

bu değeri Sheets("Sheet4")


olarak değiştirin

 

[elam]

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????

 

[Levent Menteşoğlu]

Ã?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]

 

[elam]

Cells(i, 2) = ComboBox1.Value
Burada ban hata veriyo.Run-time error'1004':
Application-defined or object-defined error
Ne yapmam gerekiyo :?

 

[Levent Menteşoğlu]

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.

 

[elam]

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

 

[elam]

Arkadaşlar cevap veren yok mu??? :düsün: