Combobox ile seçilen sütunlara textbox yardımıyla kayıt işlemi

[ozmacig]

Arkadaşlar ekte multipageli bir userformum üzerinde page2 de bir adet combobox bir adet textbox var comboboxtan sectiğim sütun başlıklarını ( MERKEZ sayfasındaki sutun başlıkları olup,) textboxta yazdığı veriyi en son satırına kaydetmek, silmek ve Düzenlemek istiyorum bunu nasıl yapa bilirim... yardımlarınızı beliyorum.

 

[halit3]

Arkadaşlar ekte multipageli bir userformum üzerinde page2 de bir adet combobox bir adet textbox var comboboxtan sectiğim sütun başlıklarını ( MERKEZ sayfasındaki sutun başlıkları olup,) textboxta yazdığı veriyi en son satırına kaydetmek, silmek ve Düzenlemek istiyorum bunu nasıl yapa bilirim... yardımlarınızı beliyorum.

Sorunuza göre en son satıra işlem yapmak olarak anlıyorum.
bunları denrmisiniz.

Private Sub CommandButton41_Click()
sut = ComboBox4.ListIndex + 1
sat = Worksheets("MERKEZ").Cells(Rows.Count, [COLOR=red]sut[/COLOR]).End(3).Row + 1
Worksheets("MERKEZ").Cells(sat, sut).Value = TextBox14.Text
End Sub
Private Sub CommandButton42_Click()
sut = ComboBox4.ListIndex + 1
sat = Worksheets("MERKEZ").Cells(Rows.Count, [COLOR=red]sut[/COLOR]).End(3).Row
Worksheets("MERKEZ").Cells(sat, sut).Value = TextBox14.Text
End Sub
Private Sub CommandButton43_Click()
sut = ComboBox4.ListIndex + 1
sat = Worksheets("MERKEZ").Cells(Rows.Count, [COLOR=red]sut[/COLOR]).End(3).Row
Worksheets("MERKEZ").Cells(sat, sut).ClearContents
End Sub

 

[ozmacig]

hocam ilginiz için sağol ancak aşağıdaki kod hata veriyor.

sat = Worksheets("MERKEZ").Cells(Rows.Count, sat).End(3).Row + 1

run time 1004 hatası veriyor.

 

[halit3]

hocam ilginiz için sağol ancak aşağıdaki kod hata veriyor.

sat = Worksheets("MERKEZ").Cells(Rows.Count, sat).End(3).Row + 1

run time 1004 hatası veriyor.

2 nolu mesajdaki kodun kırmızı renkli yerlerini düzelttim.

 

[ozmacig]

sağol hocam ellerine sağlık, ancak texbox14 yazdığı değeri bulup silme ve değiştirme işlemi yaptıra bilirmiyiz.

 

[halit3]

sağol hocam ellerine sağlık

İyi çalışmalar

 

[ozmacig]

hocam afınıza sıhınarak bir şey daha sora bilirmiyim. texbox14 yazdığı değeri bulup silme ve değiştirme işlemi yaptıra bilirmiyiz.

 

[halit3]

hocam afınıza sıhınarak bir şey daha sora bilirmiyim. texbox14 yazdığı değeri bulup silme ve değiştirme işlemi yaptıra bilirmiyiz.

2 nolu mesajdaki kodlar bu dediğinizi yapıyor

kayıt etme kodu

Private Sub CommandButton41_Click()
sut = ComboBox4.ListIndex + 1
sat = Worksheets("MERKEZ").Cells(Rows.Count, [COLOR=black]sut[/COLOR]).End(3).Row + 1
Worksheets("MERKEZ").Cells(sat, sut).Value = TextBox14.Text
End Sub

değiştirme kodu

Private Sub CommandButton42_Click()
sut = ComboBox4.ListIndex + 1
sat = Worksheets("MERKEZ").Cells(Rows.Count, [COLOR=black]sut[/COLOR]).End(3).Row
Worksheets("MERKEZ").Cells(sat, sut).Value = TextBox14.Text
End Sub

silme kodu

Private Sub CommandButton43_Click()
sut = ComboBox4.ListIndex + 1
sat = Worksheets("MERKEZ").Cells(Rows.Count, [COLOR=black]sut[/COLOR]).End(3).Row
Worksheets("MERKEZ").Cells(sat, sut).ClearContents
End Sub

 

[ozmacig]

Hocam tam anlatamadım gailba Textbox yardımıyla sütunlara yazdığım veya önceden kayıt ettiğim bilgileri değiştir veya sil Butonuna bastığımda o sütunda bulup değiştirmesini ve silmesini istiyordum. yardımlarınızı bekliyorum ....

 

[halit3]

Hocam tam anlatamadım gailba Textbox yardımıyla sütunlara yazdığım veya önceden kayıt ettiğim bilgileri değiştir veya sil Butonuna bastığımda o sütunda bulup değiştirmesini ve silmesini istiyordum. yardımlarınızı bekliyorum ....

Evet anlatamadınız 1 nolu mesajdaki soruruzdada eksiklik vardı.

Şimdi silinecek veya değiştirilecek satır numarasını nerden bulacak burada sutün numarasını ComboBox4 den buluyor.

 

[ozmacig]

Hocam Şöyle bir değişiklik yaptım buradan bula bilirmiyiz. Textbox kaldırdım yerine combobox ekledim.

 

[halit3]

Hocam Şöyle bir değişiklik yaptım buradan bula bilirmiyiz. Textbox kaldırdım yerine combobox ekledim.

kodları aşağıdakilerle değiştirin.

Private Sub CommandButton42_Click()
sut = ComboBox4.ListIndex + 1
sat = label22
Worksheets("MERKEZ").Cells(sat, sut).Value = ComboBox5.Text
yuklemeYap1
End Sub

Private Sub CommandButton43_Click()
sut = ComboBox4.ListIndex + 1
sat = label22
Worksheets("MERKEZ").Cells(sat, sut).ClearContents
yuklemeYap1
End Sub

 

[ozmacig]

Çokkk Teşekkürler Mükemmel olmuş hocam...

 

[ozmacig]

:bravo::bravo::bravo::bravo::bravo:

 

[halit3]

Çokkk Teşekkürler Mükemmel olmuş hocam...

İyi çalışmalar