Sayfa1.Chekbox1.Value = true ise

[hsayar]

        If s1.Cells(27, 16) = "X" Or s1.Cells(27, 16) = "x" Then
            s3.Cells(i - 1, 5) = s1.Cells(27, 13) 'stok
            s3.Cells(i - 1, 9) = s1.Cells(27, 12) 'stok
            s3.Cells(i - 1, 13) = s1.Cells(27, 14) 'stok
            s3.Cells(i - 1, 17) = s1.Cells(27, 15) 'stok
        End If

yukardıkaki kodlarla s1 in p27 hücresi x ise kodları tetikliyoruz.,

ama ben bunu s1 de oluşturuduğum chekbox1 tıklı ise yani chekbox1.value=true ise çalıştırmak istiyorum

yani

        If CHEKBOX1.Value = True Then
            s3.Cells(i - 1, 5) = s1.Cells(27, 13) 'stok
            s3.Cells(i - 1, 9) = s1.Cells(27, 12) 'stok
            s3.Cells(i - 1, 13) = s1.Cells(27, 14) 'stok
            s3.Cells(i - 1, 17) = s1.Cells(27, 15) 'stok
        End If

yazınca Kodlar module1 de vba objesi sayfa1 de olduğu için Run-time 424 object required hatası veriyor galiba

 

[Recep İpek]

Forms Araç Kutusundan değil de Kontrol Araç Kutusundaki Checkbox'ı
ekleyerek aşağıdaki şekilde kullanabilirsiniz.

Sub a()
If Sheet1.CheckBox1.Value = True Then
MsgBox "ok"
End If
End Sub

 

[hsayar]

bende aynı yerden ekliyordum demekki aşına sf adı yazmak lazımmış... deneyelim bnakalım.
İlginbişze teşekkür ederim

 

[hsayar]

....
Set s1 = Sheets("günlük")
.....
chbx = s1.CheckBox1.Value
        If chbx = True Then
        MsgBox "aybaşı devri yapılıyor"
....

ben değişkene almadan direkl kontrol edemedim ama buda bir şey. tekrar teşekkürler

 

[Recep İpek]

Sub Button2_Click()
Dim chbx As Boolean
Set s1 = Sheets("günlük")
chbx = s1.CheckBox1.Value
If chbx = True Then
MsgBox "aybaşı devri yapılıyor"
End If
End Sub

olarak deneyin.

Kodlarınız bende düzgün çalışıyor. Ckeckbox'ı işaretmeyi unutmayınız.Bende ilk denemede bundan dolayı çalışmamıştı.

 

[hsayar]

teşekkürler