1 sayfadan 1. sayfa

Toggle Button Kayıt Sırası Yardım

İletiTarih: 26 Ağu 2016 10:42
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.)

Cevap: Toggle Button Kayıt Sırası Yardım

İletiTarih: 26 Ağu 2016 10:55
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

Cevap: Toggle Button Kayıt Sırası Yardım

İletiTarih: 26 Ağu 2016 11:05
apolat
Öncelikle hızlı cevabınız için teşekkür ederim.
hakan dediğimde b sütunun ikinci satırını getiriyor.

Cevap: Toggle Button Kayıt Sırası Yardım

İletiTarih: 26 Ağu 2016 12:46
Ali ÖZ
Benim kontrol şeklimde doğru veriler geliyor.Siz kontrol işlemlerinizi yazarmısınız.

Cevap: Toggle Button Kayıt Sırası Yardım

İletiTarih: 26 Ağu 2016 13:00
apolat
Toggle Buttona düzenle dediğimde değeri karşılığı olmayan bir sonuç veriyor.

Cevap: Toggle Button Kayıt Sırası Yardım

İletiTarih: 26 Ağu 2016 14:09
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

Cevap: Toggle Button Kayıt Sırası Yardım

İletiTarih: 26 Ağu 2016 14:42
apolat
Ali bey Allah razı olsun sizden...

Cevap: Toggle Button Kayıt Sırası Yardım

İletiTarih: 26 Ağu 2016 14:51
Ali ÖZ
Amin cümlemizden.