içinde değişken olan benzer satırlar

Katılım
4 Kasım 2004
Mesajlar
87
Excel Vers. ve Dili
2003
tr
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 ?
 
Son düzenleme:
Üst