CheckBox ile seçilen hücreyi bir buton yardımı ile başka bir sayfaya atmak.

[hurkanpisirici]

Merhabalar eklediğim dosyada her satırda bir CheckBox bulunuyor ben bu checkbox ları tıkladıktan sonra gönder butonuna bastığımda bir sonraki sayfaya atmak istiyorum.Yardımlarınız için teşekkürler.

 

[mesuttasar]

Hürkan bey , checkbox lara isimlendirmeyi nasıl yapacağız?

 

[hurkanpisirici]

hocam ilginize teşekkür ederim. mümkün midir bilmiyorum ama kodda iyi değilim.bahsettiğiniz lara satırları tanımlamakmı tam anlayamadım.cevap beklerken form denetimindeki onay kutusunu kullanaraktan da yapılabilir diye düşündüm.evet yazan satırları at gibi mesela

 

[hamitcan]

Private Sub CommandButton1_Click()
    k = 1
    For i = 1 To 32
    Set obj = ActiveSheet.OLEObjects(i)
        If ActiveSheet.OLEObjects(i).Object.Value = True Then
            s = Val(Right(obj.Name, Len(obj.Name) - 8)) + 1
            k = k + 1
            Sheets("ÇIKIŞLAR").Range("b" & k & ":" & "h" & k) = Sheets("ÇEKLER").Range("b" & s & ":" & "h" & s).Value
            Sheets("ÇEKLER").Range("b" & s & ":" & "h" & s).ClearContents
        End If
    Next
End Sub

 

[mesuttasar]

Hürkan bey şimdi çıkmam lazım dönünce eğer yardımcı olan bir arkadaşımız olmamışsa ilgileneceğim.

Saygılarımla,

 

[hurkanpisirici]

sayın hamitcan hocam ilginize teşekkür ederim.Verdiğiniz kodları sayfaya yerleştirdim düğmeye atayamadım.Modüle ekledim yine ekleyemedim bunu nasıl yerleştireceğim.Sayın mesut hocam teşekkür ederim görüşmek üzere.

 

[hamitcan]

Geliştirici>Ekle>ActiveX denetimleri içinden düğme ekleyebilirsiniz.

 

[hurkanpisirici]

Teşekkürler hocam bildiğim şeyi unutmuşum fakat gönderdiğim veriler çek sayfasında kalıyor onların kalmaması gerekiyor, bu mümkün değilmi kodda ne gibi bir değişiklik yapmam gerekir.

 

[hamitcan]

Koda bir satır ekledim. Yeniden deneyin.

 

[hurkanpisirici]

Çok teşekkür ederim hocam emeğinize sağlık.