Ekli dosyalar
Private Sub UserForm_Initialize()
Firmalar = Array("A ŞİRKETİ", "B ŞİRKETİ", "C ŞİRKETİ", "D ŞİRKETİ", "E ŞİRKETİ", "F ŞİRKETİ")
son = Cells(Rows.Count, "X").End(xlUp).Row
For a = LBound(Firmalar) To UBound(Firmalar)
Me.Controls("TextBox" & a + 1).Text = WorksheetFunction.CountIfs(Range("X2:X" & son), Firmalar(a), Range("W2:W" & son), "Etkin")
Next a
End SubPrivate Sub UserForm_Initialize()
Firmalar = Array("A ŞİRKETİ", "B ŞİRKETİ", "C ŞİRKETİ", "D ŞİRKETİ", "E ŞİRKETİ", "F ŞİRKETİ")
son = Cells(Rows.Count, "X").End(xlUp).Row
For a = LBound(Firmalar) To UBound(Firmalar)
Me.Controls("TextBox" & a + 1).Text = WorksheetFunction.CountIfs(Sheets("VERİ").Range("X2:X" & son), Firmalar(a), Sheets("VERİ").Range("W2:W" & son), "Etkin")
Next a
End SubPrivate Sub UserForm_Initialize()
Firmalar = Array("A ŞİRKETİ", "B ŞİRKETİ", "C ŞİRKETİ", "D ŞİRKETİ", "E ŞİRKETİ", "F ŞİRKETİ")
son = Sheets("VERİ").Cells(Rows.Count, "X").End(xlUp).Row
For a = LBound(Firmalar) To UBound(Firmalar)
Me.Controls("TextBox" & a + 1).Text = WorksheetFunction.CountIfs(Sheets("VERİ").Range("X2:X" & son), Firmalar(a), Sheets("VERİ").Range("W2:W" & son), "Etkin")
Next a
End Sub
|
UserForm Üzerindeki TextBox Nesnesinden Hızlı Arama
|
Textbox Üzerindeki Veriyi Hücrelere Aktarma
|
|
Sayfadan UserForma Veri Alma
|
|
UserForm Üzerindeki CommandButton Nesnelerini Renklendirme
|
|
TextBox Üzerindeki Yazan Değerleri Aktarma
|