Kod toparlama

[hlojan]

İyi günler.

Belli kodlar kullanarak 50 - 60 tane excel şablonu hazırlıyacağım. Ve herbirinde 20 ye yakın kod kullanacağım. Ama bu şablonların içerdiği kodların %70 i aynı içeriğe sahip. Bazen güncelleme yada kod değiştirdiğim zaman hepsine tek tek girmek istemiyorum. Bir yerde kod havuzu yapıp ordan ortak kullansam. Çözüm önerisi olan var mı acaba.

Önerilerinizi bekliyorum

 

[hlojan]

Anlaşılır olmadı galiba. Daha anlaşılır bir dilde anlatayım.

Deneme adında modülüm var. Ve aşağıdaki kod gibi bir sürü devam ediyor modül.

'*************************************************************
'********************CİHAZ GÜNCELLE***********************
'*************************************************************
Dim con As Object, rs As Object
yol = "C:\DATA\DATA.accdb"
Set con = CreateObject("Adodb.connection")
Set rs = CreateObject("Adodb.recordset")
con.Open "provider=microsoft.ace.oledb.12.0;data source=" & yol & ""
rs.Open "select * from [A] where kod='" & Worksheets("Veri").Range("AI8").Value & "' and sira=" & CDbl(Worksheets("Veri").Range("AU8").Value) & ";", con, 1, 3

rs("marka").Value = Worksheets("Veri").Range("AK14").Value
rs("model").Value = Worksheets("Veri").Range("AK15").Value
rs("seri").Value = Worksheets("Veri").Range("AK16").Value
rs("musterino").Value = Worksheets("Veri").Range("AK17").Value
  rs.Update
rs.Close: con.Close
Set rs = Nothing: Set con = Nothing

MsgBox "CİHAZ GÜNCELLENDİ."
End Sub

Modülün içinde 20 küsür modülün kısaltmasını yapmak istiyorum.

Mesala

Dim con As Object, rs As Object
yol = "C:\DATA\DATA.accdb"
Set con = CreateObject("Adodb.connection")
Set rs = CreateObject("Adodb.recordset")
con.Open "provider=microsoft.ace.oledb.12.0;data source=" & yol & ""

Call Baglanti gibi bütün prosüdürlerde algılamasını istiyorum.
Aşağıdaki tanımlarımada yapmak istiyorum. Kod kirliliğinden kurtulmak için

ws =Worksheets("Veri")
wb =Workbooks("Veri")

Tanımlamaların ve Baglanti nın tüm prosüdürlerde geçerli olması için nasıl bir işlem yapmalaıyım



Not : Bu Modülü Kişisel Çalışma Sayfası ( PERSONAL.XLSB) içinde bulunuyor. Excel Çalışma sayfalarında bulunan butonlara

Application.Run "PERSONAL.XLSB!cupt"

ile çağırıyorum