Kısa Açıklama
merhaba arkadaşlar aşağıdaki kodumdaki eksik nedir isimli başlıkta, ilgili işlemlere dair detaylar yer almaktadır.- Excel Versiyonu
- Excel 2016
- Excel Sürümü
- 64 Bit
- Excel Dili
- Türkçe
herkese merhaba combobox ile bulduğum veri textboxda istediğim hücredeki verilerle birlikte alıyorum ancak textboxda yaptığım değişiklik yani güncelleme, bağlı olan hücreye yansımasını istiyorum aşağıdaki kodd ile sadece verileri textboxa alabiliyorum geri gönderme kodu nasıl onuda sizden istiyorum şimdiden yardımlarınız için minnetarım dosyanın olduğu linki de ekledim
Option Explicit
Private Sub CommandButton1_Click()
Dim pr As Worksheet
Set pr = Sheets("SARCOOL FİYAT LİSTESİ")
Dim x As Long
x = pr.Range("A100000").End(xlUp).Row
Dim aranan As String
Dim tablo As Range
Set tablo = pr.Range("A:BB")
aranan = ComboBox1.Text
TextBox2.Value = tablo.Find(aranan, , , xlWhole).Offset(0, 34)
TextBox3.Value = tablo.Find(aranan, , , xlWhole).Offset(0, 35)
TextBox4.Value = tablo.Find(aranan, , , xlWhole).Offset(0, 36)
TextBox5.Value = tablo.Find(aranan, , , xlWhole).Offset(0, 38)
TextBox6.Value = tablo.Find(aranan, , , xlWhole).Offset(0, 40)
TextBox7.Value = tablo.Find(aranan, , , xlWhole).Offset(0, 42)
TextBox8.Value = tablo.Find(aranan, , , xlWhole).Offset(0, 44)
TextBox9.Value = tablo.Find(aranan, , , xlWhole).Offset(0, 3)
TextBox10.Value = tablo.Find(aranan, , , xlWhole).Offset(0, 6)
TextBox11.Value = tablo.Find(aranan, , , xlWhole).Offset(0, 28)
TextBox12.Value = tablo.Find(aranan, , , xlWhole).Offset(0, 32)
TextBox13.Value = tablo.Find(aranan, , , xlWhole).Offset(0, 29)
TextBox14.Value = tablo.Find(aranan, , , xlWhole).Offset(0, 21)
TextBox15.Value = tablo.Find(aranan, , , xlWhole).Offset(0, 37)
Set pr = Nothing
Set tablo = Nothing
ComboBox1.SelStart = 1
ComboBox1.SetFocus
End SubYENİ SİTE GÜNCELLEME Excel
Option Explicit
Private Sub CommandButton1_Click()
Dim pr As Worksheet
Set pr = Sheets("SARCOOL FİYAT LİSTESİ")
Dim x As Long
x = pr.Range("A100000").End(xlUp).Row
Dim aranan As String
Dim tablo As Range
Set tablo = pr.Range("A:BB")
aranan = ComboBox1.Text
TextBox2.Value = tablo.Find(aranan, , , xlWhole).Offset(0, 34)
TextBox3.Value = tablo.Find(aranan, , , xlWhole).Offset(0, 35)
TextBox4.Value = tablo.Find(aranan, , , xlWhole).Offset(0, 36)
TextBox5.Value = tablo.Find(aranan, , , xlWhole).Offset(0, 38)
TextBox6.Value = tablo.Find(aranan, , , xlWhole).Offset(0, 40)
TextBox7.Value = tablo.Find(aranan, , , xlWhole).Offset(0, 42)
TextBox8.Value = tablo.Find(aranan, , , xlWhole).Offset(0, 44)
TextBox9.Value = tablo.Find(aranan, , , xlWhole).Offset(0, 3)
TextBox10.Value = tablo.Find(aranan, , , xlWhole).Offset(0, 6)
TextBox11.Value = tablo.Find(aranan, , , xlWhole).Offset(0, 28)
TextBox12.Value = tablo.Find(aranan, , , xlWhole).Offset(0, 32)
TextBox13.Value = tablo.Find(aranan, , , xlWhole).Offset(0, 29)
TextBox14.Value = tablo.Find(aranan, , , xlWhole).Offset(0, 21)
TextBox15.Value = tablo.Find(aranan, , , xlWhole).Offset(0, 37)
Set pr = Nothing
Set tablo = Nothing
ComboBox1.SelStart = 1
ComboBox1.SetFocus
End SubYENİ SİTE GÜNCELLEME Excel