düzeltme hakkında

[Fuat Şirin]

Private Sub ComboBox1_Click()
Set bul = Range("A1:A10").Find(ComboBox1.Value, LookIn:=xlValues)
If Not bul Is Nothing Then
    TextBox1.Value = Cells(bul.Row, "B").Value
    TextBox2.Value = Cells(bul.Row, "C").Value
End If
End Sub

arkadaşlar bu kodlarla
combodaki seçili olan ismin satırını textlere alıyorum
aldıktan sonra düzeltmek için ne yapmamız gerekir
yani textboxta düzeltme yaptım aynı yerine düzeltip kaydedeceğim
yardım ederseniz sevinirim

 

[Fuat Şirin]

hocalarımdan yardım bekliyorum lütfen çok rica

 

[Orion1]

Ben bu şekilde işlem yapılmasını pek tavsiye etmem.
Ayni değerden 1'den fazla varsa ilk bulduğu değeri esas alıyor çünkü.
Mesela Combobox'a değerleri alırken alınan değerlerin satır numaralarınıda birlikte alabilirdiniz.
Veya birer ID numarası vererek find komutunu kullanabilirdiniz.Id numaralarından sadece 1 tane olacağından problem olmazdı.
Gelelim sorunuzun cevabına Textbox'larla hücrelere yer değiştiriyor.
Bir butona aşağıdaki kodları atayınız ve aşağıdaki kodları deneyiniz.

Private Sub ComboBox2_Click()
Set bul = Range("A1:A10").Find(ComboBox1.Value, LookIn:=xlValues)
If Not bul Is Nothing Then
    Cells(bul.Row, "B").Value = TextBox1.Value 
    Cells(bul.Row, "C").Value = TextBox2.Value 
End If
End Sub

 

[Fuat Şirin]

bu dediğiniz yöntemi kullanırsak nasıl yapmamız lazım
çünkü dediğiniz gibi problem çıkarabilir
alternatifiniz hakkında bilgi verirseniz sevinirim

 

[Orion1]

bu dediğiniz yöntemi kullanırsak nasıl yapmamız lazım
çünkü dediğiniz gibi problem çıkarabilir
alternatifiniz hakkında bilgi verirseniz sevinirim

ComboBox'ı iki kolon olarak tanımlayınız.
Eğer verileri combobox'a additem yöntemi ile alıyorsanız combobox'ın ilk kolonuna döngünün değeişkenini atayınız.Böylece combobox'ta hem satır numarası olacak ve dğerler olacak.
Değiştireceğiniz zaman satırı direk combobox'ın ilk sütunundan alıp değiştirebileceksiniz.

 

[Fuat Şirin]

yani şu şekilde mi?
combobox1.rowsource = "a2:b:100"
gibimi

 

[Orion1]

yani şu şekilde mi?
combobox1.rowsource = "a2:b:100"
gibimi

sizin dediğiniz gibide olur ama a sütunundaki veriler ID numarası olursa olur.Yani hiç birisi birine benzemeyecek numaralar olacak.
Bu bahsettiğiniz rowsource yöntemi birde additem yöntemivar

combobox1.columncount = 2
for i = 2 to cells(65536,"A").end(xlup).row
      combobox1.additem 
      column(0,i-2)=i
      column(1,i-2)=cells(i,"B").value
next i

 

[Fuat Şirin]

çok saolun çok teşekkür ettim
çok yardımcı oldu