Thİsworkbook

[ANTALYA 01]

Merhabalar

VBA Project Teki ThisWokBook Sayfası 1 Adet var 2 adet nasıl yapılır yapılabilirmi ayrıca 2 adet yapılırsa 2.Yapıştırılan kod çalışır mı nasıl çalışır?

 

[Kemal Demir]

Sn.Antalya 01,

Zannedersem Böyle bir durum söz konusu olmaya bilir.Thisworkbook (Bu Çalışma Kitabı) bir tane oldugu için düşündüğünüz sey olmaya bilir.

 

[ANTALYA 01]

f

Formdan Aldığım kodlar 2 tane var Bu kodlar ThisWorkbook olarak işlem görecek

Private Sub workbook_open()
Sheets("anasayfa").Select
End Sub

Private Sub Workbook_Activate()
Application.ScreenUpdating = False
For a = 1 To Application.CommandBars.Count
Application.CommandBars(a).Enabled = False
Next
End Sub

Private Sub Workbook_Deactivate()
Application.ScreenUpdating = False
For a = 1 To Application.CommandBars.Count
Application.CommandBars(a).Enabled = True
Next
End Sub

2.Kod ThisworkBook Kodu
Private Sub Workbook_Open()
'13.05.2006
Dim i As Integer
Dim bulent As Integer

bulent = 0
On Error Resume Next

Application.Assistant.On = True
Application.Assistant.Visible = True
Application.Assistant.Move xLeft:=400, yTop:=300


Set balNew = Assistant.NewBalloon
With balNew
.Heading = "Bugün:" & Format(Now, "dd.mm.yyyy") & vbCrLf & "Vadesi Geçmiş Borcumuz Bulunmamaktadır."
For i = 1 To WorksheetFunction.CountA(Range("B:B"))
If Format(Range("B" & i + 1).Value, "dd.mm.yyyy") = Format(Date, "dd.mm.yyyy") Then
bulent = bulent + 1
.Labels(bulent).Text = "Görev-" & bulent & " => " & Range("C" & i + 1).Value
End If
Next
.Button = msoButtonSetOK
End With

balNew.Show
Application.Assistant.On = False
UserForm1.Show
End Sub

Bu 2 ThisworkBook Kodunu nasıl çalıştırabilirim.Her iki kodada ihtiyacım var.

 

[Korhan Ayhan]

Selamlar,

İlk kodunuzdaki aşağıdaki kısmı tamamen silin.

Private Sub workbook_open()
Sheets("anasayfa").Select
End Sub

İkinci kodunuzdaki aşağıdaki satırdan sonra ilk kodunuza ait satırı ekleyip denermisiniz.

Dim bulent As Integer

Yani eklemeyi yaptıktan sonra aşağıdaki gibi olmalı.

Dim bulent As Integer
Sheets("anasayfa").Select

 

[ANTALYA 01]

X

Sayın Cost

Şöyle hata mesajı çıktı

Run time error '9'';
Subscript out of range

acaba nerde yanlış yaptım.

 

[Korhan Ayhan]

Selamlar,

Örnek bir dosya eklermisiniz.

 

[ANTALYA 01]

B

Dosyayı sisin dediğiniz gibi yaptım

 

[ANTALYA 01]

z

Sayın Cost

Benim asıl merak ettiğim ThisWorkbook koduyla çalışan 2-3-4-5 Kod olursa bunların sırasıyla çalışması nasıl yapılır Modul gibi değil bu bölüm modülde istediğim kadar yapıştırıp çalıştırıyorum.Bu örnekte sizin dediğiniz gibi yaptım ilk kod çalıştı diğeri çalışmadı.

 

[Korhan Ayhan]

Selamlar,

Örnek dosyanızda "anasayfa" isimli sayfa olmadığı için bahsettiğiniz hata mesajını alıyorsunuz. Eğer böyle bir sayfa oluşturursanız hata düzelecektir.

Bir olaya ait kod oluştururken sadece bir kodlama yapabilirsiniz. Aynı olaya ikinci bir kodlama yaptığınızda ise hata ile karşılaşırsınız.

Örneğin sizin çalışmanızda dosya açılırken "anasayfa" aktifleşiyor ve sonrada kodlar yardımı ile office yardımcısı açılıyor ve tamam dediğinizde de Workbook_Activate olayındaki kodlarınız devreye girip excel menülerini pasif hale getiriyor. Umarım açıklayıcı olmuştur.

 

[ANTALYA 01]

c

Teşekkür ederim Çok güzel açıklayıcı olmuş