CheckBox

[semih4]

Merhaba arkadaşlar yaklasık 100 tane checkboxum var ve bunların tıklı olup olmadıgının kontrolunu yapıcam eğer tıklıysa yanındaki ismi baska bir yere yazıcam, onun için böyle birşey düşündüm ama yemedi sanırım;

For i = 7 To 127
If CheckBox(i) = True Then
Sheets("Sheet10").Cells(i - 6, 9) = Sheets("Sheet10").Cells(i - 6, 2)
Next i


checkbox7 yi nasil söyleyebilirim i li şekilden checkbox(i) şeklinde olmuyor;
yardımlarınız için teşekkürler kolay gelsin.


For i = 7 To 127

If Controls("Checkbox" & i) Then



Sheets("Sheet10").Cells(i - 6, 9) = Sheets("Sheet10").Cells(i - 6, 2)

End If

Next i

bu sekildede yaptım fakat controls de sub or function not defined hatası veriyor.

 

[mcmaho67]

if komutunu aşagıdaki gibi yazarsan düzelir.

If Checkbox1(i).Value = 1 Then
.....
end if

 

[semih4]

sub or function not defined hatası veriyor malesef

 

[mcmaho67]

bu kodları hangi programda kullanıyorsun.

 

[semih4]

VBA, sheet10 sayfasında resim var ona tıklayınca;
Private Sub Image1_Click()

For i = 7 To 127

If Checkbox1(i).Value = 1 Then



Sheets("Sheet10").Cells(i - 6, 9) = Sheets("Sheet10").Cells(i - 6, 2)

End If

Next i



End Sub

aynen böyle yazdım

 

[mcmaho67]

VBA hangi program oluyor.

 

[semih4]

excel-vba forumundayız

 

[mcmaho67]

VBA nın ne anlama geldiğini bilmiyorum o yüzden. sordum.

 

[trigon]

if Frame1.Controls.Item(0) = True
UserForm4.Controls.Item(5) = True
bu checkbox'ların item numarasını yazacağız. çalışacaktır. item numarası eklenme sırasına göre olur. diğer objelerle karışmaması için bir frame içine almalısın. saygılarımla

 

[Husgvarna]

Merhaba arkadaşlar yaklasık 100 tane checkboxum var ve bunların tıklı olup olmadıgının kontrolunu yapıcam eğer tıklıysa yanındaki ismi baska bir yere yazıcam

Merhaba.
"CheckBox" 'lar formdamı bulunuyor?




Cevap vermediğiniz için formda bulunduğunu varsayalım:

Dim hg As Control
    For Each hg In UserForm1.Controls
        If TypeName(hg) = "CheckBox" Then
          If hg.Value = True Then n = n + 1
        End If
    Next
      MsgBox n & "  Adet Dolu CheckBox var"

 

[laraStudyo]

VBA nın ne anlama geldiğini bilmiyorum o yüzden. sordum.

Visual Basic Application

 

[semih4]

Checkbox lar excel üzerinde sheet1 de

 

[Husgvarna]

Checkbox lar excel üzerinde sheet1 de

Tamam; kolaylık için dosya eklermisiniz.?

 

[semih4]

Örnek dosya ektedir;

Ders kodları ve Ders hocalarının ismi yazmakda;

Eğer ders hocalarının yanındaki checkboxa tıklanırsa common buttona tıklandıgında yanında yazan parttime olanlar parttime a normal olanlarda normal yazan kısmın altına yazacak

ilginiz için teşekkürler

 

[Necdet]

Merhaba,

O kadar ChekBox koymak baya başarı.

Diyelim ki tıklı olan ChekBox'ı anladım, ChekBox345
bunun hangi hücre üzerinde bulunduğunu nasıl anlayacağız?

ChekBox numaraları sıralı da gitmiyor, sıralı gitse adından kaçıncı satırda olduğu belli olurdu.

Kısaca CheckBox'ları kontrol etmek te bir dert, hücrelere yerleştirmekte.

Ben olsaydım basit yolu seçerdim.

Aşağıdaki kodlarda hücreye Çift Tıklandığında bir Tik işareti koydururdum. Sonra hücrenin dolu olup olmadığını kontrol ederek gerekli işlemleri yapardım.

Kod çift tıklandığında hücre boşsa tik işareti koyar, tik işareti varsada boşaltır. C sütununun fontuna bakınız.

Private Sub CommandButton1_Click()
 
    Dim i   As Long
    Dim j   As Long
    Dim k   As Long
    Dim Son As Long
 
    j = 1
    k = 1
    Son = Cells(Rows.Count, "A").End(3).Row
    Application.ScreenUpdating = False
 
    Range("G2:H" & Son).ClearContents
 
    For i = 2 To Son
        If Not Cells(i, "C") = "" Then
            j = j + 1
            Cells(j, "G") = Cells(i, "B")
        Else
            k = k + 1
            Cells(k, "H") = Cells(i, "B")
        End If
    Next i
 
    Application.ScreenUpdating = True
 
    MsgBox "Listleme Bitmiştir...."
 
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, [C:C]) Is Nothing Then Exit Sub
    If Target.Row < 2 Then Exit Sub
    If Target.Value = "" Then
        Target.Value = "ü"
    Else
        Target.Value = ""
    End If
End Sub

 

[semih4]

İlginize teşekkür ederim;
Checkboxları koymak aslında pek bi başarı değil bi tanesine koyuyorsunuz sonra aşa çekiyorsunuz pıııt geliyor hepsi =) ondan başarılı birşey yok sizin yaptığınız başarı teşekkürler