- Katılım
- 15 Aralık 2008
- Mesajlar
- 202
- Excel Vers. ve Dili
- excel 2010
Merhaba; aşağıdaki kodlar nasıl sadeleştirilebilir?
Aynı Değeri alacak Comboboxlar:
sonBMa = Sheets("Malzeme").Cells(Rows.Count, "B").End(3).Row
ComboBox36.RowSource = "Malzeme!B2:B" & sonBMa
ComboBox1242.RowSource = "Malzeme!B2:B" & sonBMa
ComboBox37.RowSource = "Malzeme!B2:B" & sonBMa
ComboBox38.RowSource = "Malzeme!B2:B" & sonBMa
ComboBox1240.RowSource = "Malzeme!B2:B" & sonBMa
ComboBox1244.RowSource = "Malzeme!B2:B" & sonBMa
Aynı Formattaki TextBoxlar
TextBox193 = Format(Date, "dd"".""mm"".""yyyy")
TextBox118 = Format(Date, "dd"".""mm"".""yyyy")
TextBox1224 = Format(Date, "dd"".""mm"".""yyyy")
TextBox1229 = Format(Date, "dd"".""mm"".""yyyy")
Aynı Özellikte Option Butonlar
OptionButton1.Value = True
OptionButton7.Value = True
Aynı Özellikte Labellar
Label186.Visible = False
Label213.Visible = False
ListBox7.Visible = False
ListBox11.Visible = False
Label194.Visible = False
Aynı Değeri alacak Comboboxlar:
sonBMa = Sheets("Malzeme").Cells(Rows.Count, "B").End(3).Row
ComboBox36.RowSource = "Malzeme!B2:B" & sonBMa
ComboBox1242.RowSource = "Malzeme!B2:B" & sonBMa
ComboBox37.RowSource = "Malzeme!B2:B" & sonBMa
ComboBox38.RowSource = "Malzeme!B2:B" & sonBMa
ComboBox1240.RowSource = "Malzeme!B2:B" & sonBMa
ComboBox1244.RowSource = "Malzeme!B2:B" & sonBMa
Aynı Formattaki TextBoxlar
TextBox193 = Format(Date, "dd"".""mm"".""yyyy")
TextBox118 = Format(Date, "dd"".""mm"".""yyyy")
TextBox1224 = Format(Date, "dd"".""mm"".""yyyy")
TextBox1229 = Format(Date, "dd"".""mm"".""yyyy")
Aynı Özellikte Option Butonlar
OptionButton1.Value = True
OptionButton7.Value = True
Aynı Özellikte Labellar
Label186.Visible = False
Label213.Visible = False
ListBox7.Visible = False
ListBox11.Visible = False
Label194.Visible = False