TEXTBOX

[ocamsul]

Arkadaşlar ekli sayfada birim kayıt formunu tıkladığımda çıkan form üzerindeki TextBoxlara yazdığım bilgilerin kaydet butonu ile ilgili sayfaya kaydedilmesini, gerek olmadığındada yine bir butonla ilgili sayfadan yapılan kaydın silinmesini istiyorum. yardım edermisiniz.

 

[ocamsul]

Arkadaşlar kayıtların alınacağı liste de bazı eksiklikler vardı düzelttiğim çalışma sayfası ekte.

 

[ocamsul]

Yardımlarınızı bekliyorum. arkadaşlar.

 

[danersin]

Userform6 alt�na a�a��daki kodlar� ilave derseniz


1. di�er sayfada son sat�ra ilave eder
[vb:1:7c580aaabe]Private Sub CommandButton1_Click()
sonsat = Sheets("VE").Cells(65536, 2).End(xlUp).Row + 1
Sheets("ve").Cells(sonsat, 2) = TextBox1.Value
Sheets("ve").Cells(sonsat, 3) = TextBox2.Value
'D��ER TEXTBOXLARI AYNI �EK�LDE DEVAM ETT�R�N
MsgBox "Yeni Birim Kayd�n�z Yap�lm��t�r."
Unload Me
End Sub[/vb:1:7c580aaabe]



2. ayn� formdaki listboxa �ift t�klad���n�zda listboxla ayn� s�radaki sat�r� siler
[vb:1:7c580aaabe]Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
sil = ListBox1.ListIndex + 2
Cells(1, 1) = sil
Sheets("ve").Rows(sil).EntireRow.Delete
End Sub[/vb:1:7c580aaabe]

 

[ocamsul]

danersin yazınız okunmuyor. çalışma sayfası içinde gönderebilirmisiniz.

 

[danersin]

Kod kısımlarında bir bozukluk yok, bu kodları userform6 altına yapıştırın.. buton diğer sayfada son satıra kayıt yapar, aynı formdaki seçtiğiniz isme çift tıklar iseniz listboxla aynı sıradaki diğer sayfadaki kayıt satırı silinir.

Þu an dosya ekleyemiyorum.

 

[ocamsul]

Buradan kopyalayıp yapabileceğimi zannetmiyorum. örnek dosyam üzerind gösterirseniz, yani uygularsanız. bundan sonraki çalışmalarım için çok daha eğitici olur. TEÞEKKÜRLER.

 

[danersin]

açılıştaki şifreleme bende hata veriyor.. incelemedim neden..
o kodları yeniden yapıştırırsınız.

sorunuzla ilgili kısmı ekledim..kodları okuyun.

 

[ocamsul]

danersin kardeş çok teşekkür ederim. biraz uğraştırdım ama mevzuyu örnek üzerinde görünce kavradım. çok eğitici oldu. artık bu konuda sıkıntı yaşayacağımı zannetmiyorum. iyi çalışmalar.