VBA Kodları Çalıştırabilme

[starmetin]

Selam Arkadaşlar,
bazı sorulan sorularda kodlar yazılıp veriliyor bunları excel'de VBA sayfasındaki Modul kısmına kopyala yapıştır yapıyorum ama nasıl çalıştırılabileceğini bilemiyorum , bunu nasıl yapabilirim.

 

[Levent Menteşoğlu]

Bu kodları çalıştırmak için sayfa üzerinde bir nesneye bağlamalısınız, genellikle de bir butona. Formlar menüsünden bir buton sayfaya ekleyin. Otomatik olarak makro ekle sayfası çıkacaktır. Bu sayfada ismi yazan makroyu işaretleyip, tamam derseniz artık o makroyu butona bağlamış olursunuz.


http://www.excel.web.tr/viewtopic.php?p=10449&highlight=#10449

 

[starmetin]

malesef verdiğiniz linkteki uygulamaya baktım yinede verilen VBA kodları çalıştıramıyorum....

 

[Levent Menteşoğlu]

Bu durum ile ilgili bir örnek eklerseniz nerede hata yaptığınızı söyleyebiliriz.

 

[VisualBasic]

Sub a()
  MsgBox "BenBirKodum, Excelden Alt F11 e basıp benim olduğum satıra gelin ve F5 e basın." & Chr(10) & _
  "Pek çok yolu var ama şimdilik bu kadar.", vbCritical, "suzunkopru"
End Sub

 

[mehmett]

Hazırladığımız MsgBox'ı dosya ilk açıldığında otomatik çalıştırabilirmiyiz?

 

[Levent Menteşoğlu]

Aşağıdaki şekilde deneyin.

[vb:1:239b9e07da]sub auto_open()
msgbox "mesajınızı yazın"
end sub[/vb:1:239b9e07da]

 

[VisualBasic]

Sub Auto_Open() 
  MsgBox "BenBirKodum, Excelden Alt F11 e basıp benim olduğum satıra gelin ve F5 e basın." & Chr(10) & _ 
  "Pek çok yolu var ama şimdilik bu kadar.", vbCritical, "suzunkopru" 
End Sub

Private Sub Workbook_Open()
  MsgBox "BenBirKodum, Excelden Alt F11 e basıp benim olduğum satıra gelin ve F5 e basın." & Chr(10) & _
  "Pek çok yolu var ama şimdilik bu kadar.", vbCritical, "suzunkopru"
End Sub

Sayın Leventm gerekli cevabı vermiş. Sonradan gördüm.

 

[mehmett]

Sub auto_open ()

şeklinde başlayan kod, dosyayı açarken otomatik çalışıyor.

Teşekkürler...

 

[starmetin]

:?

 

[bedersu]

Bu durum ile ilgili bir örnek eklerseniz nerede hata yaptığınızı söyleyebiliriz.

Sayın starmetin,

Hala bir sorun varsa neden örnek göndermiyorsunuz?Yoksa arkadaşların yönlendirmelerinin sorununuzu halletmesi gerekiyordu.Hallolmadıysa bir örnek yollayın ki ona göre bir cevap verelim.

 

[starmetin]

Selam Arkadaşlar,
bazı sorulan sorularda kodlar yazılıp veriliyor bunları excel'de VBA sayfasındaki Modul kısmına kopyala yapıştır yapıyorum ama nasıl çalıştırılabileceğini bilemiyorum , bunu nasıl yapabilirim.

 

[VisualBasic]

Selam Arkadaşlar,
bazı sorulan sorularda kodlar yazılıp veriliyor bunları excel'de VBA sayfasındaki Modul kısmına kopyala yapıştır yapıyorum ama nasıl çalıştırılabileceğini bilemiyorum , bunu nasıl yapabilirim.

Lütfen zahmet edip deneyiniz. Bu kodu kopyalayıp yapştırınız, açıklamalar kod içerisinizdedir.

Sub Auto_Open() 
  MsgBox "BenBirKodum, Excelden Alt F11 e basıp benim olduğum satıra gelin ve F5 e basın." & Chr(10) & _ 
  "Pek çok yolu var ama şimdilik bu kadar.", vbCritical, "suzunkopru" 
End Sub

 

[bedersu]

SAYIN starmetin;

kusura bakmayın ama sayın leventm'nin ve sayın VisualBasic'in vermiş oldukları cevaplarda istediğiniz yanıt var ama siz şu şekilde bakıyorsunuz: :8)

Lütfen iyi inceleyin.

kodları yapıştırdıktan sonra excel'de herhangi bir sayfaya gelin.bir dikdörtgen çizin.dikdörtgenin üstünde sağ tıklayın.Makro ata deyin.Yspıştırdığınız makronun ismini seçin.Tamam deyin.dikdörtgeni tıklatın.Bu şekilde de yapamazsanız :kafa: :kafa: :kafa:

Ki bunların aynısı yukarıda da var.Teşekkürler sayın leventm ve sayın VisulBasic.

 

[starmetin]

SAYIN starmetin;

kusura bakmayın ama sayın leventm'nin ve sayın VisualBasic'in vermiş oldukları cevaplarda istediğiniz yanıt var ama siz şu şekilde bakıyorsunuz: :8)

ben nasıl bakıyormuşum "körmüyüm" anlamadım ama senin yorumuna bakmam bile , ukalalık güzel bir şey değil bunuda hatırlatayım unutmuş olabilirsiniz , verdiğiniz cevapta bunuda :kafa: gibi ifadeler kullanarak anlamazsan salak muamelesi yaparım tarzında cevap vermenizde çok gereksiz bir cevap , benim adıma leventm ve visualbasic teşekkür etmenizde gereksiz bence gereksiz bir cevap vermişiniz..

 

[bedersu]

tamam benim eleştirim biraz ağır olmuş ama mesajları baştan aşağı okursan (gözlükleri çıkarıp ) sayın leventm de ben de sorununuzu halledemediyseniz örnek dosya yollayın bir bakalım demişiz ama siz tınmamış,cevap verilmiş olmasına rağmen hala aynı soruyu sormaya devam etmişsiniz.Ben de kayle almama olayına bozuldum,o gazla böyle bir cevap yazdım.

Hem size kör demedim,sadece siyah gözlük takmışsınız,net göremiyorsunuz dedim. :shock:

Neyse ,burası dostluk forumu.Birbirimizi kırmayalım.Barışalım. :arkadas:

Sorununu halledebildin mi acep?

 

[starmetin]

Selam,
Ortada bir yanlış anlaşılma oldu o zaman önemli değil , zeytin dalı uzatmanız güzel bir davranış bencede gereksiz sürtüşmelere gerek yok ,
evet sorunu halledebildim teşekkürler :hihoho: ,
kendinize iyi bakın hatam varsa özür dilerim..
hürmetler :arkadas:

 

[abazya]

:hey: :hihoho: :hihoho: :arkadas:
THe End Mükemmel