mahmyt
Altın Üye
- Katılım
- 12 Aralık 2019
- Mesajlar
- 94
- Excel Vers. ve Dili
- türkçe
- Altın Üyelik Bitiş Tarihi
- 16-03-2026
merhaba;
excel de userformda değiştir butonuna tanımladığım kodlar sonrası 2020 sayfasında güncelleme yapmıyor.
Formülü bir de siz kontrol edebilir misiniz.
Şimdiden teşekkürler
Private Sub CommandButton4_Click()
On Error GoTo bitir
aranan = TextBox4.Value
Range("D").Find(aranan).Select
guncelle = ActiveCell.Row
TextBox1.Value = Worksheets("2020").Cells(guncelle, 1)
TextBox2.Value = Worksheets("2020").Cells(guncelle, 2)
TextBox3.Value = Worksheets("2020").Cells(guncelle, 3)
TextBox5.Value = Worksheets("2020").Cells(guncelle, 5)
TextBox6.Value = Worksheets("2020").Cells(guncelle, 6)
TextBox7.Value = Worksheets("2020").Cells(guncelle, 7)
TextBox8.Value = Worksheets("2020").Cells(guncelle, 8)
TextBox9.Value = Worksheets("2020").Cells(guncelle, 9)
TextBox11.Value = Worksheets("2020").Cells(guncelle, 11)
TextBox12.Value = Worksheets("2020").Cells(guncelle, 12)
TextBox14.Value = Worksheets("2020").Cells(guncelle, 13)
TextBox15.Value = Worksheets("2020").Cells(guncelle, 14)
TextBox17.Value = Worksheets("2020").Cells(guncelle, 15)
TextBox18.Value = Worksheets("2020").Cells(guncelle, 16)
TextBox20.Value = Worksheets("2020").Cells(guncelle, 17)
TextBox21.Value = Worksheets("2020").Cells(guncelle, 18)
TextBox23.Value = Worksheets("2020").Cells(guncelle, 19)
TextBox24.Value = Worksheets("2020").Cells(guncelle, 20)
TextBox26.Value = Worksheets("2020").Cells(guncelle, 21)
TextBox27.Value = Worksheets("2020").Cells(guncelle, 22)
TextBox29.Value = Worksheets("2020").Cells(guncelle, 23)
TextBox30.Value = Worksheets("2020").Cells(guncelle, 24)
bitir:
End Sub
excel de userformda değiştir butonuna tanımladığım kodlar sonrası 2020 sayfasında güncelleme yapmıyor.
Formülü bir de siz kontrol edebilir misiniz.
Şimdiden teşekkürler
Private Sub CommandButton4_Click()
On Error GoTo bitir
aranan = TextBox4.Value
Range("D").Find(aranan).Select
guncelle = ActiveCell.Row
TextBox1.Value = Worksheets("2020").Cells(guncelle, 1)
TextBox2.Value = Worksheets("2020").Cells(guncelle, 2)
TextBox3.Value = Worksheets("2020").Cells(guncelle, 3)
TextBox5.Value = Worksheets("2020").Cells(guncelle, 5)
TextBox6.Value = Worksheets("2020").Cells(guncelle, 6)
TextBox7.Value = Worksheets("2020").Cells(guncelle, 7)
TextBox8.Value = Worksheets("2020").Cells(guncelle, 8)
TextBox9.Value = Worksheets("2020").Cells(guncelle, 9)
TextBox11.Value = Worksheets("2020").Cells(guncelle, 11)
TextBox12.Value = Worksheets("2020").Cells(guncelle, 12)
TextBox14.Value = Worksheets("2020").Cells(guncelle, 13)
TextBox15.Value = Worksheets("2020").Cells(guncelle, 14)
TextBox17.Value = Worksheets("2020").Cells(guncelle, 15)
TextBox18.Value = Worksheets("2020").Cells(guncelle, 16)
TextBox20.Value = Worksheets("2020").Cells(guncelle, 17)
TextBox21.Value = Worksheets("2020").Cells(guncelle, 18)
TextBox23.Value = Worksheets("2020").Cells(guncelle, 19)
TextBox24.Value = Worksheets("2020").Cells(guncelle, 20)
TextBox26.Value = Worksheets("2020").Cells(guncelle, 21)
TextBox27.Value = Worksheets("2020").Cells(guncelle, 22)
TextBox29.Value = Worksheets("2020").Cells(guncelle, 23)
TextBox30.Value = Worksheets("2020").Cells(guncelle, 24)
bitir:
End Sub