ListBox1'deki kayıtları güncelleme

[GAZOZ_55]

Merhaba arkadaşlar,
ListBox1'de herhangi bir satıra tıkladığımızda A, B ve C değerleri TextBox'lara doluyor. Bu TextBox'ların değerlerini değiştirip Güncelle butonuna tıkladığımız zaman bu yeni verilerin hem ListBox'ta hem de Excel'deki hücrelerde değiştiğini görmek mümkün mü?

 

[halit3]

Merhaba bu gibi durumlarda hücrelerin indis değerini almak gerekir yani satır numaralarını önceden listbox nesnesine almak bu durumda RowSource yöntemi ile alınmak isteniyorsa veriler ya item yöntemiyle alınmalı (10 karekterden fazla olmaz) yada ikinci bir listbox nesnesine satır numaralarını almak gerekiyor.

 

[GAZOZ_55]

İkinci bir ListBox nesnesine satır numaralarını alarak yapabilir misiniz?

 

[Ömer BARAN]

Merhaba.
Bir fikir. İstenilen bu mu acaba?
TEXTBOXlara yazıldıkça.

Private Sub TextBox1_Change()
Cells(ListBox1.ListIndex + 2, 1) = TextBox1
    ListBox1.RowSource = Range("A2:C" & Range("A" & Rows.Count).End(xlUp).Row).Address
End Sub

Private Sub TextBox2_Change()
Cells(ListBox1.ListIndex + 2, 2) = TextBox2
    ListBox1.RowSource = Range("A2:C" & Range("A" & Rows.Count).End(xlUp).Row).Address
End Sub

Private Sub TextBox3_Change()
Cells(ListBox1.ListIndex + 2, 3) = TextBox3
    ListBox1.RowSource = Range("A2:C" & Range("A" & Rows.Count).End(xlUp).Row).Address
End Sub

 

[Ömer BARAN]

Düğme ile yapmak isterseniz; form üzerine 1 adet LABEL ekleyin
(ben Label4 dedim, bu nesnenin yazı rengini formun arkaplan rengiyle aynı yaparsanız veya başka bir nesnenin arkasına konumlandırısanız görünmez).
Kırmızı satırı, ListBox1_Click kod blokunda, End Sub satırından hemen öncesine ekleyin,
Düğmeye ait olarak da aşağıdaki kodu kullanın.

Label4.Caption = ListBox1.ListIndex

Private Sub CommandButton1_Click()
For txt = 1 To 3
    Cells(Label4.Caption + 2, txt) = Controls("TextBox" & txt)
Next
    ListBox1.RowSource = Range("A2:C" & Range("A" & Rows.Count).End(xlUp).Row).Address
End Sub

 

[halit3]

Buyurun dosyanız ekte
userforma bir adet label4 ve listbox2 nesnesi ekleyiniz kodlar

Private Sub CommandButton1_Click()

If Label4 > 0 Then
ListBox1.RowSource = ""
sat = Label4
Cells(sat, 1).Value = TextBox1.Value
Cells(sat, 2).Value = TextBox2.Value
Cells(sat, 3).Value = TextBox3.Value
ListBox1.ColumnCount = 3
ListBox1.RowSource = Range("A2:C" & Range("A" & Rows.Count).End(xlUp).Row).Address
MsgBox "işlem tamam"
End If
End Sub


Private Sub Listbox1_Click()
If ListBox1.ListIndex <> -1 Then
With ListBox1
TextBox1.Value = .List(.ListIndex, 0)
TextBox2.Value = .List(.ListIndex, 1)
TextBox3.Value = .List(.ListIndex, 2)
End With
Label4 = ListBox2.List(ListBox1.ListIndex)
End If

End Sub


Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 3
ListBox1.RowSource = Range("A2:C" & Range("A" & Rows.Count).End(xlUp).Row).Address
For j = 2 To Cells(Rows.Count, 1).End(xlUp).Row
ListBox2.AddItem j
Next j
End Sub

 

[GAZOZ_55]

Merhaba.
Bir fikir. İstenilen bu mu acaba?
TEXTBOXlara yazıldıkça.

Private Sub TextBox1_Change()
Cells(ListBox1.ListIndex + 2, 1) = TextBox1
    ListBox1.RowSource = Range("A2:C" & Range("A" & Rows.Count).End(xlUp).Row).Address
End Sub

Private Sub TextBox2_Change()
Cells(ListBox1.ListIndex + 2, 2) = TextBox2
    ListBox1.RowSource = Range("A2:C" & Range("A" & Rows.Count).End(xlUp).Row).Address
End Sub

Private Sub TextBox3_Change()
Cells(ListBox1.ListIndex + 2, 3) = TextBox3
    ListBox1.RowSource = Range("A2:C" & Range("A" & Rows.Count).End(xlUp).Row).Address
End Sub

Teşekkürler hocam, tam olarak istediğim buydu.

 

[GAZOZ_55]

Buyurun dosyanız ekte
userforma bir adet label4 ve listbox2 nesnesi ekleyiniz kodlar

Private Sub CommandButton1_Click()

If Label4 > 0 Then
ListBox1.RowSource = ""
sat = Label4

Cells(sat, 1).Value = TextBox1.Value
Cells(sat, 2).Value = TextBox2.Value
Cells(sat, 3).Value = TextBox3.Value
ListBox1.ColumnCount = 3
ListBox1.RowSource = Range("A2:C" & Range("A" & Rows.Count).End(xlUp).Row).Address
MsgBox "işlem tamam"
End If
End Sub

Private Sub Listbox1_Click()
    If ListBox1.ListIndex <> -1 Then
        With ListBox1
            TextBox1.Value = .List(.ListIndex, 0)
            TextBox2.Value = .List(.ListIndex, 1)
            TextBox3.Value = .List(.ListIndex, 2)
        End With
       
        Label4 = ListBox2.List(ListBox1.ListIndex)
    End If
   
End Sub



Private Sub UserForm_Initialize()


    ListBox1.ColumnCount = 3
    ListBox1.RowSource = Range("A2:C" & Range("A" & Rows.Count).End(xlUp).Row).Address
   
    For j = 2 To Cells(Rows.Count, 1).End(xlUp).Row
    ListBox2.AddItem j
    Next j

End Sub

Size de teşekkür ederim Halit bey. Bu da işimi görüyor.

 

[GAZOZ_55]

Düğme ile yapmak isterseniz; form üzerine 1 adet LABEL ekleyin
(ben Label4 dedim, bu nesnenin yazı rengini formun arkaplan rengiyle aynı yaparsanız veya başka bir nesnenin arkasına konumlandırısanız görünmez).
Kırmızı satırı, ListBox1_Click kod blokunda, End Sub satırından hemen öncesine ekleyin,
Düğmeye ait olarak da aşağıdaki kodu kullanın.

Label4.Caption = ListBox1.ListIndex

Private Sub CommandButton1_Click()
For txt = 1 To 3
    Cells(Label4.Caption + 2, txt) = Controls("TextBox" & txt)
Next
    ListBox1.RowSource = Range("A2:C" & Range("A" & Rows.Count).End(xlUp).Row).Address
End Sub

Teşekkürler.

 

[halit3]

RowSource yöntemiyle textbox nesnelerinden hücrelere düzeltme yapamazsınız.
RowSource özelliğinin içini boşaltmak gerek

 

[GAZOZ_55]

RowSource yöntemiyle textbox nesnelerinden hücrelere düzeltme yapamazsınız.
RowSource özelliğinin içini boşaltmak gerek

OK.

 

[Ömer BARAN]

Yanlış anlamayın ama; kullandığınız OK. kısaltması yerine Türkçe bir kelime kullanmanızınn daha yerinde olacağını söylemeliyim.

Kolay gelsin, önemli olan ihtiyacın görülmesi.
İyi çalışmalar dilerim.
.

 

[GAZOZ_55]

Yanlış anlamayın ama; kullandığınız OK. kısaltması yerine Türkçe bir kelime kullanmanızınn daha yerinde olacağını söylemeliyim.

Kolay gelsin, önemli olan ihtiyacın görülmesi.
İyi çalışmalar dilerim.
.

Tamam.

 

[halit3]

6 ve 10 nolu mesajlarımda yazdığım kod ve mesajlarıma açıklık getirmek için sizin dosyanızdaki verileri 5. satırdan başlayarak userforma aldırdım diğer taraftan benim kullandığım listboxın Column özelliği ile ilgili userform ekledim irdeleyiniz.

 

[GAZOZ_55]

6 ve 10 nolu mesajlarımda yazdığım kod ve mesajlarıma açıklık getirmek için sizin dosyanızdaki verileri 5. satırdan başlayarak userforma aldırdım diğer taraftan benim kullandığım listboxın Column özelliği ile ilgili userform ekledim irdeleyiniz.

Teşekkürler.