Userform Kayit

[emre1979]

Arkadaslar Yardimci Olursaniz Sevinirim
Tesekkurler

 

[Ferhat Pazarçevirdi]

Aşağıdakileri, Userform'un kod sayfasına aynen kopyalayınız.

Private Sub CommandButton1_Click()
Set sh = Sheets("Sayfa1")
son = sh.Cells(65536, 1).End(xlUp).Row
For Each ctrl In Frame15.Controls
If TypeName(ctrl) = "OptionButton" Then
   If ctrl.Value = True Then
      sh.Cells(son + 1, 1) = ctrl.Caption
   End If
End If
Next
      sh.Cells(son + 1, 2) = TextBox16
      sh.Cells(son + 1, 3) = TextBox10
      sh.Cells(son + 1, 4) = TextBox11
For Each ctrl In Frame3.Controls
If TypeName(ctrl) = "OptionButton" Then
   If ctrl.Value = True Then
      sh.Cells(son + 1, 5) = ctrl.Caption
   End If
End If
Next
For Each ctrl In Frame4.Controls
If TypeName(ctrl) = "OptionButton" Then
   If ctrl.Value = True Then
      sh.Cells(son + 1, 6) = ctrl.Caption
   End If
End If
Next
For Each ctrl In Frame11.Controls
If TypeName(ctrl) = "OptionButton" Then
   If ctrl.Value = True Then
      sh.Cells(son + 1, 7) = ctrl.Caption
   End If
End If
Next
      sh.Cells(son + 1, 8) = TextBox4
      sh.Cells(son + 1, 9) = TextBox3
Set sh = Nothing
End Sub

 

[emre1979]

elinize saglik ama hata uyarisi veriyo

 

[emre1979]

userform kayit verdiginiz kodu yazdim ama olmadi

 

[Ferhat Pazarçevirdi]

Doğru söylüyorsun, hata bende

Ekteki dosyayı inceleyin.

 

[emre1979]

Sayin Fbc Cok Tesekkurler