ExcelVBA.Net sitesine katkıda bulunabilirsiniz

[apolat]

Merhaba arkadaşlar;
Ekte ki dosyada Toggle Button ile yapılan düzeltmeye tıkladığımızda ilk satıra gidiyor ve onu düzeltiyor a sütunundaki verinin karşılığını görmüyor bu konuda yardımcı olabilirseniz sevinirim. (listboxtaki seçilen veriyi düzelt dediğimizde b sütununun ilk satırlarındaki verileri getiriyor.)

[Ali ÖZ]

Deneyin.

Kod: Tümünü seç

Private Sub ToggleButton2_Click()
sat2 = ListBox1.ListIndex + 3
If ToggleButton2.Value = True Then
TextBox1.Locked = False
TextBox1.SetFocus
ToggleButton2.Caption = "Kaydet"
TextBox1.Text = Sheets("kod").Range("B" & sat2)
Else
TextBox1.Locked = True
ToggleButton2.Caption = "Düzenle"
Sheets("kod").Range("B" & sat2) = TextBox1.Text
TextBox1.Locked = True
End If
End Sub

[apolat]

Öncelikle hızlı cevabınız için teşekkür ederim.
hakan dediğimde b sütunun ikinci satırını getiriyor.

[Ali ÖZ]

Benim kontrol şeklimde doğru veriler geliyor.Siz kontrol işlemlerinizi yazarmısınız.

[apolat]

Toggle Buttona düzenle dediğimde değeri karşılığı olmayan bir sonuç veriyor.

[Ali ÖZ]

Deneyin.

Kod: Tümünü seç

Private Sub ToggleButton2_Click()
Set alan = Sheets("kod").Range("A2:A10000")
Set sat2 = alan.Find(What:=TextBox2.Text & "*")
If ToggleButton2.Value = True Then
TextBox1.Locked = False
TextBox1.SetFocus
ToggleButton2.Caption = "Kaydet"
  If Not sat2 Is Nothing Then TextBox1.Text = sat2.Offset(0, 1)
Else

TextBox1.Locked = True
ToggleButton2.Caption = "Düzenle"
Set alan = Sheets("kod").Range("A2:A10000")
Set sat2 = alan.Find(What:=TextBox2.Text & "*")
If Not sat2 Is Nothing Then Range("b" & sat2.Row) = TextBox1.Text
TextBox1.Locked = True
End If
End Sub

[apolat]

Ali bey Allah razı olsun sizden...

[Ali ÖZ]

Amin cümlemizden.