UserFormda TextBoxdan Hücreye Veri Aktarma

Combobox değerini hangi sütunda arıyorsunuz? Aranan sütun sabit değilse offset özelliğini kullanmanızın bi anlamı kalmaz.
Mesela aranan değer a sütunundaysa, değer bulunduğunda bu hücrenin offset(0,1) yaparsanız bu B sütununu ifade eder ve textboxa B sütunundaki karşılığını getirir.
Fakat siz aradığınız değer farklı bir sütunda bulunursa bunun offset(0,1) değeri B sütunu yerine farklı bir sütun değerini textboxa yazar.
Dosyanızı yüklerseniz bi bakalım.

Selamlar ben textboxa yazdırıyorum zaten onda sorun yok ben texboxtan geri hücreye yazdıramıyorum dosya biraz büyük Google drive linkini versem olur mu ?

Sorunuzu, örnek belge üzerinden sormamakta kararlısınız anlaşılan.
Tabi örnek belge özellikleri konusundaki açıklamaları daha evvel yapmıştım.
20 MB örnek belge olmaz.

Bu durumda cevap vermeyi düşünecek kişiden;
-- 15 kadar Textbox, 1 adet CommandButton, 1 adet Combobox nesnesinin olduğu bir userform hazırlamasını,
-- hücre adreslerini takip ederek bu hücrelere elle veri girişi yapmasını,
-- verdiğiniz kodu kullanarak hücrelerden textbox nesnelerine veri akışının tamam olduğundan emin olduktan sonra,
-- asıl isteğiniz olan TextBox nesnelerinden hücrelere veri akışına dair kodlama yapmasını.
-- mevcut kodunuz ile eklenen kodun doğru işlem yaptığından emin olduktan sonra da cevap yazmasını
istemiş oluyorsunuz.

Ayrıca; mevcut kodda her ne kadar arama alanı A:BB sütun aralığıymış gibi görünse de,
mevcut koda göre; arama alanında mükerrer kayıt olmadığını (çünkü mevcut kod ilk bulunan değere göre işlem yapıyor gibi görünüyor), Offset kısımlarında sütun numaraları da belli olduğuna göre arama aslında belli ve TEK bir sütunda yapılıyor gibi anlaşılıyor.

Yine mevcut koda göre aranan şey Combobox'taki değer olduğuna göre CommandButton kullanmaya gerek olmadığını,
arama kodlarının Combobox_Change olayı içerisinde olmasının yerinde olacağını değerlendiriyorum.
UserForm_Initalize kod blokunda Combobox'a verilerin nasıl alındığı da belli değil.
Aslında, madem arama combobox değerine göre yapılacak ve aranan değer arama sütununda mükerrer değil tekil durumda,
şayet Combobox'a alınan veriler zaten arama alanındaki verilerse, FIND koduna da gerek olmadan Combobox'un ListIndex değeri üzerinden aranan şeyin satır numarası kolaylıkla tespit edilebilir ve bunun üzerinden de Textboxlara alınacak değerlere ilişkin kodlar buna göre düzenlenebilir.

Şayet Combobox/sayfada ilgili sütundaki veriler ilişkisi yukarıdaki gibi bir yapıdaysa;
tersi, yani TextBox'tan sayfaya aktarma işleminde de Combobox'un bu ListIndex değerinden hareket edilebilir anlamına geliyor.
Arama için değilse de sayfaya aktarma için bir CommandButton kullanmak gerekir diye düşünüyorum.

Mevcut duruma göre belirttiğim hususların netleşmesi bakımından örnek belgenizi eklemeniz gerektiğini bir kez daha hatırlatayım.

Bir de şöyle düşünün; diyelim bir arkadaşımız bir kodlama yaptı,
cevap olarak kod metni yerine kod metninin ekran görüntüsünü gönderse nasıl düşünürsünüz?

Valla Ömer bey işin aslı ben soruyu sorduğumda

O problemi ben çözdüm bu konuyu kapatın lütfen ayrıca bu sitede yeniyim kurallarınızı istişarelerinizi anlamaya çalışıyorum duruma göre bende sorularımı ve örnek belgelerimi hazırlayacağım

yok hocam stok kodu değişiyor daha doğrusu bu yaptıgım işime yaramadı ben başka bi kod yazdım şimdi comboboxdan çağırıyorum textboxa geliyo textboxdan veriyi değişiyorum buton ile güncelle diyorum excelde 1. satırı güncelliyor 2. stoğu seçiyorum verileri çağırıyor textboxa değişiyorum güncelle diyorum sorunum tam olarak bu götürüp yine 1. satıra yazıyor halbuki bir alt satırdaki hücreye yazması gerek kodum bu b bakarmısınız okutkan hocam

Sub evn_click()

Dim s1 As Worksheet, sat As Long
Set s1 = Sheets("ELAZIĞ MERKEZ CARİLER")
sat = s1.Cells(Rows.Count, "B").End(xlUp).Row + 1
s1.Cells(sat, "B").Value = ComboBox1.Value

With sh_elazigm

.Cells(2, 17) = tb_kosuladi.Text
.Cells(2, 16) = tb_kosulorani.Text
.Cells(2, 18) = tb_iskonto.Text
.Cells(2, 19) = tb_gün.Text
.Cells(2, 20) = tb_yil.Text
.Cells(2, 12) = tb_aldigimal.Text
.Cells(2, 14) = tb_yilbazligunluk.Text
.Cells(2, 15) = tb_gunbazliyillik.Text


End With
MsgBox "İşlem Başarılı.", vbInformation

End Sub

OKUTKAN HOCAM BUNA BİR BAKARMISINIZ

bilisim2010' Alıntı:

O problemi ben çözdüm bu konuyu kapatın lütfen

Genişletmek için tıklayın ...

... denmesine rağmen konuya farklı eklemeler yapıldığı için konu kilitlenmiştir.

@bilisim2010 yeni bir konu açın ve dosyanızı da eklemeyi unutmayın. Nesne isimleri belli değil hücreler net değil, dosyanızdaki özel bilgileri silip yükleyiniz.