selam kullandığım makroda farklı şekillerde data çağırmakta kullandığım yaklaşık 10 ayrı yöntemde ( listboxlar ve commandbuttonlardan oluşan) hep aynı satırlar var ama bunları bir modul haline getirip makroyu biraz toparlamak istiyorum
bu satırların bir kısmı aşağıdaki gibidir tabi bu ornek sadece tekrarlanan kısmı olup ilksatırın belirlenmesinde hepsinde başka parametreler kullanılmaktadır
txtDefkayıt.Value = Cells(ilksatir, 2).Value
Txttaleptarihi.Value = Format(Cells(ilksatir, 3).Value, "dd.mm.yyyy")
Txtdno.Value = Cells(ilksatir, 4).Value
Txthasartarihi.Value = Format(Cells(ilksatir, 5).Value, "dd.mm.yyyy")
Cbhtip.Value = Cells(ilksatir, 6).Value
CbSSir.Value = Cells(ilksatir, 7).Value
CbBolge.Value = Cells(ilksatir, 8).Value
TxtAdSoy.Value = Cells(ilksatir, 9).Value
TxtAdres.Value = Cells(ilksatir, 10).Value
TxtTel.Value = Format(Cells(ilksatir, 11).Value, "0(###) ### ## ##")
txtPNo.Value = Cells(ilksatir, 12).Value
Txtpolbas.Value = Format(Cells(ilksatir, 13).Value, "dd.mm.yyyy")
Txtpolbit.Value = Format(Cells(ilksatir, 14).Value, "dd.mm.yyyy")
bu satırları bir modul yaparak userformda çağırmak mümkün mü acaba ?
bu satırların bir kısmı aşağıdaki gibidir tabi bu ornek sadece tekrarlanan kısmı olup ilksatırın belirlenmesinde hepsinde başka parametreler kullanılmaktadır
txtDefkayıt.Value = Cells(ilksatir, 2).Value
Txttaleptarihi.Value = Format(Cells(ilksatir, 3).Value, "dd.mm.yyyy")
Txtdno.Value = Cells(ilksatir, 4).Value
Txthasartarihi.Value = Format(Cells(ilksatir, 5).Value, "dd.mm.yyyy")
Cbhtip.Value = Cells(ilksatir, 6).Value
CbSSir.Value = Cells(ilksatir, 7).Value
CbBolge.Value = Cells(ilksatir, 8).Value
TxtAdSoy.Value = Cells(ilksatir, 9).Value
TxtAdres.Value = Cells(ilksatir, 10).Value
TxtTel.Value = Format(Cells(ilksatir, 11).Value, "0(###) ### ## ##")
txtPNo.Value = Cells(ilksatir, 12).Value
Txtpolbas.Value = Format(Cells(ilksatir, 13).Value, "dd.mm.yyyy")
Txtpolbit.Value = Format(Cells(ilksatir, 14).Value, "dd.mm.yyyy")
bu satırları bir modul yaparak userformda çağırmak mümkün mü acaba ?
Son düzenleme: