Private Sub CommandButton2_Click()
sira = ListBox1.ListIndex + 1
Sheets("Sayfa30").Select
For x = 27 To 57
Cells(sira, x) = Controls("textbox" & x - 26)
Next
End Sub
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.