excele veri atma

[kubraecrin]

İyi akşamlar arkadaşlar.
Sayfa 1 de benim datalarım var. Yapmak istediğim şu userformda işçi adını yazdığımda izin durumundan izin durumunu seçtiğimde Sayfa 1 de benim yazdığım ismi bulup Çalışma durumu sütunu hizasına comboboxda işaretlediğim durumu yazdırmak istiyorum ama yapamadım yardımcı olur musunuz?
http://dosya.co/lmftebsw0apz/2222.xlsm.html

 

[halit3]

Formunuza bir adet ComboBox2 nesnesi ekleyiniz.

userformuna bu kodu yapıştırın

Private Sub UserForm_Initialize()

ComboBox2.Clear
For j = 2 To Worksheets("Sayfa1").Cells(Rows.Count, "c").End(3).Row
ComboBox2.AddItem Sheets("Sayfa1").Cells(j, 3).Value
Next
End Sub

bunuda yapıştırın

Private Sub ComboBox2_Click()
sat = ComboBox2.ListIndex + 2
TextBox2.Text = Worksheets("Sayfa1").Cells(sat, "d").Value
End Sub

ekle komut düğmesindeki kodu bununla değiştir.

Private Sub CommandButton1_Click()
sat = ComboBox2.ListIndex + 2
Worksheets("Sayfa1").Cells(sat, 7) = ComboBox1.Text
End Sub

 

[kubraecrin]

peki izni güncelle dediğimde hata veriyor onu nasıl çözebilirim

 

[halit3]

Herhalde böyle olması lazım eklemiş olduğunuz dosyada (Sheet1) sayfası yok sizin kodlar bu sayfayı referans alıyor.

Private Sub CommandButton2_Click()
Dim kisi As CellFormat
kisi = Sheet1.Cells(WorksheetFunction.VLookup(TextBox1.Value, Sheet1.Range("C2:C500"), 4, 0))
sat = ComboBox2.ListIndex + 2
Worksheets("Sayfa1").Cells(sat, 7) = kisi
End Sub