[Çözüldü]  Toggle Button Kayıt Sırası Yardım

Basma düğmesi

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

İleti#1)  apolat » 26 Ağu 2016 10:42

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.)
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
apolat
Yeni Başlamış
 
Kayıt: 07 Nis 2015 07:33
Meslek: Asker
Yaş: 98
İleti: 76
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul

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

İleti#2)  Ali ÖZ » 26 Ağu 2016 10:55

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
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 10:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 39
İleti: 10222
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

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

İleti#3)  apolat » 26 Ağu 2016 11:05

Öncelikle hızlı cevabınız için teşekkür ederim.
hakan dediğimde b sütunun ikinci satırını getiriyor.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
apolat
Yeni Başlamış
 
Kayıt: 07 Nis 2015 07:33
Meslek: Asker
Yaş: 98
İleti: 76
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul

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

İleti#4)  Ali ÖZ » 26 Ağu 2016 12:46

Benim kontrol şeklimde doğru veriler geliyor.Siz kontrol işlemlerinizi yazarmısınız.
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 10:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 39
İleti: 10222
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

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

İleti#5)  apolat » 26 Ağu 2016 13:00

Toggle Buttona düzenle dediğimde değeri karşılığı olmayan bir sonuç veriyor.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
apolat
Yeni Başlamış
 
Kayıt: 07 Nis 2015 07:33
Meslek: Asker
Yaş: 98
İleti: 76
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul

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

İleti#6)  Ali ÖZ » 26 Ağu 2016 14:09

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
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 10:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 39
İleti: 10222
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

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

İleti#7)  apolat » 26 Ağu 2016 14:42

Ali bey Allah razı olsun sizden...
Kullanıcı avatarı
apolat
Yeni Başlamış
 
Kayıt: 07 Nis 2015 07:33
Meslek: Asker
Yaş: 98
İleti: 76
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul

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

İleti#8)  Ali ÖZ » 26 Ağu 2016 14:51

Amin cümlemizden.
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 10:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 39
İleti: 10222
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA


Forum ToggleButton

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe