Butona basınca değişiklikleri onaylayacak bir makro

[misnet]

Sevgili Arkadaşlar......

Userform2 ye girip Combobox1 'den personel adı seçtiğimde o personele ait bilgiler forma geliyor.

Ancak ben şunu yapmak istiyorum.
* Form2 üzerinde sarı renkle boyadığım textboxların(17-20-23-26) bilgisini değiştirip izin ver butonuna bastığımda bu bilgileri, yerlerine değiştirilmiş olarak kaydedecek bir makro yazmak istiyorum. Yardımcı olursanız minnettar olurum.

Yapacağınız katkılar için Şimdiden Teşekkür ederim. Saygılar......

NOT : ÖRNEK Dosya ektedir.

 

[misnet]

Sorumun cevabı yokmu acaba

 

[acolkesen1]

Merhaba ,
Aşağıdak kodu izinver butonuna atayın. İyi çalışmalar.

Private Sub CommandButton5_Click()
Set a = Range("dosya!b3:b" & [b65536].End(3).Row).Find(ComboBox1, lookat:=xlWhole)
a.Offset(0, 9) = TextBox17 * 1
a.Offset(0, 12) = TextBox20 * 1
a.Offset(0, 15) = TextBox23 * 1
a.Offset(0, 18) = TextBox26 * 1
End Sub

 

[de_nigris]

bende buna benzer bişeyler pşindeyim.s

 

[misnet]

Sn: acolkesen1

Yardımınız için teşekkürler. İstediğim oldu.