ANKET ve KONTROL TİK SAYFASI OLUSTURMA - KOD AÇIKLAMADA

VBA VE EXCEL İLE İLGİLİ KURUMSAL VE BİREYSEL EĞİTİMLER İÇİN BANA 0532 456 53 99 NUMARASI ÜZERİNDEN ULAŞABİLİRSİNİZ.

Option Explicit

Public Sub CheckBoxOlusturma()

CreateCheckBox Range("B2:B16"), True

End Sub
Public Sub CreateCheckBox(ByVal inpRng As Range, _
ByVal nameInclude As Boolean, _
Optional ByVal nameCol As Long = -1)

Dim ws As Worksheet
Dim cll As Range
Dim chk As CheckBox

Set ws = inpRng.Parent

For Each cll In inpRng.Cells
Set chk = ws.CheckBoxes.Add(cll.Left, cll.Top, cll.Width, cll.Height)

If nameInclude Then
With chk
.Caption = cll.Offset(, nameCol).Value2
.Value = xlOff
.LinkedCell = cll.Address
cll.Value2 = False
cll.Font.Color = vbWhite
End With
End If
Next cll

End Sub

[adnankarabacak]

Döngüler ve Fonksiyonlarin ne kadar önemli bir yeri oldugunu gösteren bir Video. Tesekkürler. Mehmet Hocam.

[mustafabolat]

lütfen yardım, combobox ile sektör listesi oluşturdum ve örneğim cam sektörünü seçiyorum ve tablo şeklinde değerler geliyor, fakat bu sefer enerji sektörünü seçtiğimde, bir önceki sektörün değerleri silinmiyor, farklı sektör seçtiğimde bu tablodaki değerlerin değişmesini nasıl sağlarım