Sayfa Sonu Toplam Aldırma

[satılmış]

Arkadaşlar herkese selam... Benim sorunum, bir maaş defterim var. EXCELL de formül kullanmadan her sayfa sonunda makro ile sayfa toplamı aldırmak istiyorum. Birde "TextBox" lara yazdığım rakamı EXCELE "*1" ile aktarıyorum. aksi takdirde metin olarak algılıyor. Ancak Bu şekilde yaptığım zaman "TextBox" boş ise makro çalışmıyor. Koşullu olarak "Texbox" a "*1" diyebilirmiyim. Yani "Texbox boş ise "*1" demeyecek. yardımcı olursanız sevinirim. Dosya ektedir şimdiden teşekkürler.

 

[Orion1]

E sütununu toplar.

MsgBox WorksheetFunction.Sum(Range("[B][COLOR="Red"]E:E[/COLOR][/B]"))

 

[satılmış]

Teşekkürler

E sütununu toplar.

MsgBox WorksheetFunction.Sum(Range("[B][COLOR="Red"]E:E[/COLOR][/B]"))

Ancak bu tüm sütunu toplar sanırım. Benim aradığım her sayfada ayrı ayrı birbirinden bağımsız sayfa toplamı aldırmak istiyorum

 

[Orion1]

Ancak bu tüm sütunu toplar sanırım. Benim aradığım her sayfada ayrı ayrı birbirinden bağımsız sayfa toplamı aldırmak istiyorum

Her sayfayı E sütununu ayrı ayrı toplar.

Dim syf As Worksheet
For Each syf In Worksheets
    MsgBox WorksheetFunction.Sum(syf.Range("E:E"))
Next

 

[HellBoyTr]

Her sayfayı E sütununu ayrı ayrı toplar.

Dim syf As Worksheet
For Each syf In Worksheets
    MsgBox WorksheetFunction.Sum(syf.Range("E:E"))
Next

Bu kodu yazınca toplamı nerede veriyor acaba...

satılmış kardeş senin dosyanın şifresi nedir.

 

[satılmış]

Maaş Defteri

İlginize teşekkür ediyorum. Şifre:4901 ama ben sorunu çözdüm Label yada TexBox ta olacaktı şu anda çok güzel çalışıyor. Çalışan dosyayı ekte koydum. Şifresini de kaldırdım.

 

[vtexcel]

merhaba kod içeriğini yazabilir misiniz.