Modül Çalıştırma

[zulfuernek]

Sub BALYATOPLAMI()
Label283.Caption = Format(Val(Label289.Caption) + _
Val(Label292.Caption) + _
Val(Label295.Caption) + _
Val(Label298.Caption) + _
Val(Label301.Caption) + _
Val(Label304.Caption), "#,#")
End Sub

yukarıdaki kodu modül bölümüne yazıyorum ancak kodlar kısmında uyguladığım zaman işlem yapmıyor.

Call BALYATOPLAMI

olarak ekliyorum kodu fakat olmuyor. bi yerde hatamı var acaba

 

[muygun]

Merhaba;
Birde şu şekilde deneyin.
Userformun kod bölümünde CommandButton1 için;

Private Sub CommandButton1_Click()
Label1283 = Format((Label1292 * 1) + (Label1295 * 1) + (Label1298 * 1) + (Label1301 * 1) + (Label1304 * 1), "00.00")
End Sub

Kodlarını çalıştırın.

 

[zulfuernek]

Hocam normal kodda çalışıyor.

Ancak bunu bir çok bölüğmde yapacağım için tek tek yazmak çok kalabalık olacaktır. Modül üzerinden almamız gerekli. çünkü buna ek olarak birçok kod daha eklenecektir. Bu kod dsadece kısmı bir işlem için

 

[muygun]

Merhaba Syn. zulfuernek;
Parça olarak verdiğiniz koddan anladığım textboxlarda yazılan verinin toplamını yine bir textboxta göstermek istiyorsunuz.
Öncelikle kurgusal hataları giderin.
(eğer bir userformda ve tek görselde 1304 Label kullanıyorsanız bu bir karmaşa... userformu multipage sayfalar halinde tasarlayın.)
verilerinizi mümkünse gruplandırın ve isimlendirin.
(örn: Textbox1...Textbox1000 yerine gelir1..gelir10 vs gibi...)
O zaman açılışta yada belirli dilimlerde aşağıdaki gibi döngülerle belirli aralıkta işlem yapabilir , bunu bir değişkende saklayarak istediğiniz zaman yazdırabilirsiniz.

İyi çalışmalar...

Private Sub CommandButton2_Click()
On Error Resume Next
For i = 1292 To 1304
toplaa = toplaa + (Controls("Label" & i)) * 1
Next i
Label1283 = Format(toplaa, "00.00")
End Sub

 

[zulfuernek]

Sayın muygun hocam;

dediğinizde haklısınız. ancak yatay ve dikey labeller mevcut. yatay olarak yazıldığında sıralı geliyor ancak dikey toplamada mecburen sıra olmuyor.

benim amacım yukarıdaki kodu textboxa değer girdiğimde uygulaması.

Yani tekxtboxa Call olayını yapamadım.

 

[Ömer BARAN]

Merhaba.
Bir altarnetif düzenleme de Frame (başlığı olabilir/olmayabilir) kullanmak şeklinde yapılabilir.
Frame içindeki nesneleri yönetmek daha kolaydır gibi geliyor bana.

Aynı tür nesne için aynı tür işlem yapılacaksa CLASSMODULE kullanmak yerinde olur (pek uygulamışlığım yok).

ClassModule ile ilgili FORUMda ARAMA yapın.
.