verileri kaydetme sorunu hakk...

[Amaxx]

SORU 1: Aşağıda bilgi girişleri yaptığım formu standart sayfasına kopyalamasını istiyorum. bazı verileri kaydediyor bazışarını kaydetmiyor bunu anlayamadım.

ActiveCell.Offset(0, 2).Value = ComEn.Value
ActiveCell.Offset(0, 3).Value = ComBoy.Value
ActiveCell.Offset(0, 4).Value = ComYuk.Value

bu satırlardaki COmboy, ComEn, ComYuk... combobox dan oluşuyor. Sorun burda ne acaba?

SORU 2: Bunlardan sonra bir hücreye de 3 seçenekli checkboxlardan işaretli olanını nasıl kaydederim?

yani;

ActiveCell.Offset(0, 11).Value = (checkbox1.caption - checkbox2.caption - checkbox3.caption)

bu kısmı nasıl yazmam gerekir?

-----
Private Sub ButKaydet_Click()

Sheets("standart").Select
Range("a2").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
If Range("a2").Value = "" Then
Range("a2").Value = 1
Else
ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1
End If

ActiveCell.Offset(0, 1).Value = Tkodno.Value
ActiveCell.Offset(0, 2).Value = ComEn.Value
ActiveCell.Offset(0, 3).Value = ComBoy.Value
ActiveCell.Offset(0, 4).Value = ComYuk.Value
ActiveCell.Offset(0, 5).Value = TAlan.Caption
ActiveCell.Offset(0, 6).Value = ChKenar1.Caption
ActiveCell.Offset(0, 7).Value = ChKenar2.Caption
ActiveCell.Offset(0, 8).Value = ChKenar3.Caption
ActiveCell.Offset(0, 9).Value = ChKenar4.Caption
ActiveCell.Offset(0, 10).Value = Tarih.Value

End Sub

 

[Amaxx]

SORU 1 i çözdüm

Cevaplayan olursa SORU 2 yi çözmeye çalışıyorum....