ExcelVBA.Net sitesine katkıda bulunabilirsiniz

[Murat OSMA]

Kod: Tümünü seç

Sub Auto_Open()
    Application.ScreenUpdating = False
    Application.DisplayStatusBar = True
    Application.StatusBar = "Lütfen Bekleyin..."
    Application.Wait Now + TimeValue("00:00:02")
    Application.StatusBar = "Program Başlatılıyor..."
    Application.Wait Now + TimeValue("00:00:02")
    Application.StatusBar = False
UserForm1.Show
End Sub


[Murat OSMA]

Kodlara biraz ilave yapalım.

Kod: Tümünü seç

Sub Auto_Open()
Dim intCounter As Integer
Dim bln As Boolean
    Application.ScreenUpdating = False
    Application.DisplayStatusBar = True
    Application.StatusBar = "Lütfen Bekleyin..."
    Application.Wait Now + TimeValue("00:00:01")
    Application.StatusBar = "Program Başlatılıyor..."
    Application.Wait Now + TimeValue("00:00:01")
    Application.StatusBar = False
bln = Application.DisplayStatusBar
Application.DisplayStatusBar = True
For intCounter = 10 To 1 Step -1
Application.StatusBar = intCounter & " Saniye..."
Application.Wait Now + TimeSerial(0, 0, 1)
Next intCounter
Application.StatusBar = False
Application.DisplayStatusBar = bln
UserForm1.Show
End Sub

[diojen]

merhaba kod yazma konusunda yeniyim status barda toplam kisminin 60 a bolunmus halini gosteren bir koda ihtiyacim var mumkunmudur.. yada mause ile coklu secim yapinca onlarin 60 a bolunmus halini gosteren formul varmidir saygilar...

[Murat OSMA]

Merhaba Serkan Bey,
Lütfen öncelikle şu bağlantıyı inceleyerek profil bilgilerinizi düzenleyiniz; viewtopic.php?f=4&t=1210

İletilerinizi forum kuralları 20. maddeye uygun yazmaya özen gösteriniz.

20. Mesaj yazarken büyük harf kullanmak bağırmak anlamına geleceği için kesinlikle mesajınızın tamamını büyük harf kullanarak yazmayınız. Türkçe yazım kurallarında; cümlede kelimelerin ilk harfi büyük olur, özel isimlerin baş harfi büyük olur, noktadan sonra başlayan her kelimenin baş harfi büyük olur, mesaj içindeki tüm harfler büyük yazılmaz yahut tümü küçük yazılmaz. Sitemiz Türkçe karakter desteklemektedir ve i, ç , ş , ğ gibi harfleri kullanmanızda hiç bir sakınca yoktur.

Sorunuzla ilgili olarak; ThisWorkbook kod sayfasına şu kodu yazarak deneyiniz;

Kod: Tümünü seç

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Application.StatusBar = "Sonuç: " & WorksheetFunction.Sum(Target.Value) / 60
End Sub

[diojen]

Cep telefonundan bağlandığım için düzenlemeleri daha sonra yapacağım. Bu kodu ThisWorkbook kısmına yapıştırıyorum çok güzel elinize sağlık çalışıyor fakat her seferinde aynı işi yapmak zorunda mıyım kapatınca gidiyor kalıcılık nasıl sağlanıyor. Office 2007 İngilizce kullanıyorum.

[Enes Recep BAĞ]

diojen bey merhaba isminizi güncellermisiniz? Detay için inceleyiniz. İsimsiz üyeler
Örneği ekledim. (İsimsiz üye grubunda olduğunuz için göremeyeceksiniz. )
Kontrol edermisiniz?

diojen.gif

[diojen]

umarım yapabilmişimdir .

[Enes Recep BAĞ]

Serkan bey değişiklik için teşekkür ederim.

Normal üyeliğe geçiş yapmak için aşağıdaki adrese mail göndermeniz yeterli olacaktır.

Profilini güncelleyen üyeler yeniden normal üyelik grubuna geçiş için talepte bulunabilirler. Geçiş talebini, forumdaki iletişim bölümünden yahut excel@excelvba.net adresine direkt elektronik posta göndererek yapabilirler.

[diojen]

mail attım sorumun cevabı nedir hocam ?

[Enes Recep BAĞ]

mail attım sorumun cevabı nedir hocam ?

Serkan bey sorunuzun cevabını ben ekledim(6. mesajımda) zaten isimsiz üye olmanızdan dolayı göremiyorsunuz.
Site Forum Yöneticilerimiz mesajını gördüğü an sizi normal üye grubuna aktaracaklardır.
http://www.excelvba.net/viewtopic.php?f=53&t=7141&p=106596#p106585

[Tarkan VURAL]

Cep telefonundan bağlandığım için düzenlemeleri daha sonra yapacağım. Bu kodu ThisWorkbook kısmına yapıştırıyorum çok güzel elinize sağlık çalışıyor fakat her seferinde aynı işi yapmak zorunda mıyım kapatınca gidiyor kalıcılık nasıl sağlanıyor. Office 2007 İngilizce kullanıyorum.

Merhaba,
2003 üzeri bir sürüm ile çalışıyorsanız, dosyanızı XLSM uzantılı ( Makro içerebilen dosya şeklinde ) kaydedebilirsiniz.

[diojen]

bu olayi formulle yapma imlanimiz varmi is yerinde yetki ksitlamasina takiliyorum makro konusunda .. suzme yaptiktan sonra kalan rakamlarin karsisindaki sayisal degerlerin toplami lazim hocam... tesekkurler

[Enes Recep BAĞ]

bu olayi formulle yapma imlanimiz varmi is yerinde yetki ksitlamasina takiliyorum makro konusunda .. suzme yaptiktan sonra kalan rakamlarin karsisindaki sayisal degerlerin toplami lazim hocam... tesekkurler

Serkan bey halen cep telefonundan mı yazıyorsunuz?

[diojen]

Malesef iş yerinde internet kısıtlı formulü bekliyorum sagolun.

[Enes Recep BAĞ]

bu olayi formulle yapma imlanimiz varmi is yerinde yetki ksitlamasina takiliyorum makro konusunda .. suzme yaptiktan sonra kalan rakamlarin karsisindaki sayisal degerlerin toplami lazim hocam... tesekkurler

Bu mesajınızı biraz daha detaylandırabilirmisiniz?
Daha önce eklemiş olduğum exceli 2007 ile hazırladım.
Ekte bulabilirsin.

[diojen]

Tesekkurler sorunu alttoplam formulu ile cozdum ilginiz icin sagolun....