ANKET ve KONTROL TİK SAYFASI OLUSTURMA - KOD AÇIKLAMADA
HTML-код
- Опубликовано: 8 сен 2024
- 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
Döngüler ve Fonksiyonlarin ne kadar önemli bir yeri oldugunu gösteren bir Video. Tesekkürler. Mehmet Hocam.
Rica ederim Adnan Bey. Çok naziksiniz
Yine muhteşem siniz hocam. Elleriniz dert görmesin bize çok şey öğretiyorsunuz.
Çok teşekkür ederim İlyas Bey. Çok naziksiniz
Tebrikler
Çok teşekkür ederim. Çok naziksiniz
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
Bir öncekileri silecek şekilde guncelleyebilirsiniz. Ws.shapes.delete diyebilirsiniz silmek için