acıkolan sayfaya textbox üzerinden veri girişi

[fedeal]

userform üzerinden comboboxla sayfaları degiştirip sayfaların cıktılarını alıyorum userformun üzerinede iki textbox ekledim textbox1e ne yazılarsa acık olan sayfanın d2 hücresine textbox2 d3 e yazılması mümkünmü?

 

[hamitcan]

Private Sub TextBox1_Change()
    If ActiveSheet.Name <> "Sayfa1" Then
    [d2] = TextBox1.Text
    End If
End Sub
Private Sub TextBox2_Change()
    If ActiveSheet.Name <> "Sayfa1" Then
    [d3] = TextBox2.Text
    End If
End Sub

 

[demhatozcelik]

Bu konuda benim bir soum olacak. Dosyamı ekliyorum Userformdan excele veri girişini nasıl yapabiliriz? Veri girişi hücre doluysa bir sonraki hücereye yazılacak ve sıra numarası otomatik verilecek.

 

[fedeal]

teşekkür ederim sayın hamitcan

 

[meslan]

Bu konuda benim bir soum olacak. Dosyamı ekliyorum Userformdan excele veri girişini nasıl yapabiliriz? Veri girişi hücre doluysa bir sonraki hücereye yazılacak ve sıra numarası otomatik verilecek.

Merhaba,
Kod:

Private Sub CommandButton1_Click()
If TextBox4 = Empty Then MsgBox "Adı - Soyadı Giriniz.": Exit Sub
If TextBox5 = Empty Then MsgBox "Tutar Giriniz.": Exit Sub
If TextBox6 = Empty Then MsgBox "Ecz. İsk. Giriniz.": Exit Sub
If TextBox7 = Empty Then MsgBox "Katılım Payı Giriniz.": Exit Sub
If TextBox8 = Empty Then MsgBox "Ödenecek Tutar Giriniz.": Exit Sub
sonsat = [a65536].End(3).Row + 1
Cells(sonsat, 1) = CDbl(TextBox1.Value)
Cells(sonsat, 2) = TextBox4.Value
Cells(sonsat, 3) = CDbl(TextBox5.Value)
Cells(sonsat, 4) = CDbl(TextBox6.Value)
Cells(sonsat, 5) = CDbl(TextBox7.Value)
Cells(sonsat, 6) = CDbl(TextBox8.Value)
TextBox4.Value = "": TextBox5.Value = "": TextBox6.Value = "": TextBox7.Value = "": TextBox8.Value = ""
TextBox1.Value = WorksheetFunction.Max([a:a]) + 1
TextBox4.SetFocus
End Sub

Private Sub UserForm_Initialize()
TextBox1.Value = WorksheetFunction.Max([a:a]) + 1
With Me.ListBox1
.Clear
.ColumnCount = 5
.ColumnWidths = "20;120;50;60;50"
.AddItem
.List(0, 0) = "Sıra"
.List(0, 1) = "Müşteri Adı"
.List(0, 2) = "Tutar"
.List(0, 3) = "Ecz.İsk."
.List(0, 4) = "Katılım Payı"
.List(0, 5) = "Ödenecek Tutar"
End With
s = 1
For i = 4 To [a65536].End(3).Row
ListBox1.AddItem
ListBox1.List(s, 0) = Cells(i, 1)
ListBox1.List(s, 1) = Cells(i, 2).Value
ListBox1.List(s, 2) = Cells(i, 3).Value
ListBox1.List(s, 3) = Cells(i, 3).Value
ListBox1.List(s, 4) = Cells(i, 4).Value
ListBox1.List(s, 5) = Cells(i, 5).Value
s = s + 1
Next i
End Sub

Private Sub TextBox5_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox5 = Format(TextBox5, "#,##0.00")
End Sub

Diğer textboxları da aynı şekilde yapınız.

 

[fedeal]

meslan hocam yanıt vermiş bende daha önce ondan aldıgım kodlarla çalışmanıza uyarladım saygılar meslan hocam iyi calışmalar.

 

[demhatozcelik]

Arkadaşlar teşekkür ediyorum. Çok güzel yalnız kaydetikten sonra adı soyadı textbox u aktif olacak ve boş textbox oldumu kayıt yapmayacak şekilde düzenleyebilirmiyiz.
2. Girilen verile listboxta görülebilir mi?

 

[meslan]

Arkadaşlar teşekkür ediyorum. Çok güzel yalnız kaydetikten sonra adı soyadı textbox u aktif olacak ve boş textbox oldumu kayıt yapmayacak şekilde düzenleyebilirmiyiz.
2. Girilen verile listboxta görülebilir mi?

Mesaj 5 düzenlenmiştir. Kolay gelsin.

 

[fedeal]

bunuda mesaj5 in altına listbox için ilave edin

Private Sub UserForm_Activate()
ListBox1.ColumnCount = 6
ListBox1.ColumnHeads = True
ListBox1.ColumnWidths = "70;70;70;70;70;70"
ListBox1.RowSource = "sayfa1!a4:f14" & Cells(65536, "f").End(3).Row
End Sub

 

[demhatozcelik]

Mesaj 5 düzenlenmiştir. Kolay gelsin.

Sayın meslan teşekkür ediyrum. Birincisi tamam
2. Girilen verile listboxta görülebilir mi?
bir soru daha rakamlar YTL olacak şekilde düzenleyblirmiyiz? Yani rakamı girdiğimde kendisi YTL ve YKR diye ayıracak.

 

[meslan]

Sn. demhatozcelik mesajımda gerekli düzenlemeleri yaptım. İnceleyiniz.

 

[demhatozcelik]

Çok teşekkür ediyorum. Son bir sorum olacak. Listbox tan reçete seçip düzeltebilirmiyiz?

 

[meslan]

Çok teşekkür ediyorum. Son bir sorum olacak. Listbox tan reçete seçip düzeltebilirmiyiz?

Merhaba.
Şu kodları ilave ediniz.

Private Sub ListBox1_Click()
i = ListBox1.ListIndex + 3
TextBox1.Text = Cells(i, 1).Value
TextBox4.Text = Cells(i, 2).Value
TextBox5.Text = Cells(i, 3).Value
TextBox6.Text = Cells(i, 4).Value
TextBox7.Text = Cells(i, 5).Value
TextBox8.Text = Cells(i, 6).Value
End Sub

Userforma 1 adet commandButton ("Değiştir" )
ekleyip Şu kodu uygulayınız.
Private Sub CommandButton2_Click()
A = WorksheetFunction.Match(CDbl(TextBox1.Value), [A:A], 0)
Cells(A, 1) = CDbl(TextBox1.Value)
Cells(A, 2) = TextBox4.Value
Cells(A, 3) = CDbl(TextBox5.Value)
Cells(A, 4) = CDbl(TextBox6.Value)
Cells(A, 5) = CDbl(TextBox7.Value)
Cells(A, 6) = CDbl(TextBox8.Value)
TextBox4.Value = "": TextBox5.Value = "": TextBox6.Value = "": TextBox7.Value = "": TextBox8.Value = ""
TextBox1.Value = WorksheetFunction.Max([A:A]) + 1
TextBox4.SetFocus
End Sub

 

[demhatozcelik]

Günaydın
Sanırım bunlarda bir hata var. İncelermisiniz görünen satıra tıkladığım zaman adı soyadı ile başlayan satırı gösteriyor. Bir sonraki boş satırı tıkladğım zaman bir üstteki satırı gösteriyor. düzeltme butonu çalışmıyor. Düzelt dediğimiz zaman farklı bir userform açıp üzerinde değiştirebilirmiyiz?

 

[demhatozcelik]

Sayın meslan dosyay baktınız mı?

 

[meslan]

Sn.demhatozcelik dosyanız ekte.
İnceleyiniz.