Düğmeye makro atama nasıl yapılır?

[Muhammet Okumuş]

leumruk ilgin için teşekkür ederim.ama yapamadım.benim ki a b c yi öğrenmeden okumaya geçmek gibi heralde.makro konusunda sıfırım

 

[leumruk]

Syn. Okumuş, benim bu sitedeki ilk sorum bu. Eğer, yeterli düzeyde fonksiyon bilginiz varsa, makroyu da rahatlıkla öğrenirsiniz. Ama excelle ilgili yeterli bilginiz yoksa dediğiniz doğru olabilir.
En güzel yöntem, sürekli denemek.
Tekrar açıklıyorum. Oluşturduğunuz düğmenin üstüne gelin, sağ tıklayın, makro ata seçeneğini seçin. Gelen listede kayıtlı makrolar görünür. Atama yapmak istediğiniz makroyu seçin va tamama tıklatın. Bu kadar...

 

[Muhammet Okumuş]

1-önce boş bir excel sayfası açtım
sonra aşağıdaki kodu sayfa 1 kod görüntüle dedim.açılan yere kopyaladım.
sonra düğme oluşturdum.
makro adı kısmında Düğme_1 Tıklat dedi.
tamam dedim
sonra düğme 1 üzerine tıklatınca "makro çalıştırılamıyor.makro bu kitapda olmayabilir yada makrolar devre dışı bırakılmış olabilir uyarısı veriyor.
Hata nerde???????
Function UniqueRandomNumbers(KacAdetSayi As Long, EnKucukSayi As Long, EnBuyukSayi As Long) As Variant
'Function UniqueRandomNumbers(NumCount As Long, LLimit As Long, ULimit As Long) As Variant
'Benzersiz Rastgele Sayılar Üretir.
' creates an array with NumCount unique long random numbers in the range LLimit - ULimit (including)
'Kullanımı Aşağıdaki gibidir
'Bir değişkene = (
'Data = UniqueRandomNumbers(6, 1, 49)
Dim RandColl As Collection, varTemp() As Long
Dim k&, i&, j&
UniqueRandomNumbers = False

If KacAdetSayi < 1 Then Exit Function
If EnKucukSayi > EnBuyukSayi Then Exit Function
If KacAdetSayi > (EnBuyukSayi - EnKucukSayi + 1) Then Exit Function
Set RandColl = New Collection
Randomize
Do
On Error Resume Next
i = CLng(Rnd * (EnBuyukSayi - EnKucukSayi) + EnKucukSayi)
RandColl.Add i, CStr(i)
On Error GoTo 0
Loop Until RandColl.Count = KacAdetSayi

ReDim varTemp(1 To KacAdetSayi)
For i = 1 To KacAdetSayi
varTemp(i) = RandColl(i)
Next i
'**************ripek********************
For i = 1 To KacAdetSayi - 1
For j = i + 1 To KacAdetSayi
If varTemp(i) > varTemp(j) Then
k = varTemp(i)
varTemp(i) = varTemp(j)
varTemp(j) = k
End If
Next j
Next i
'**************ripek********************
Set RandColl = Nothing
UniqueRandomNumbers = varTemp
Erase varTemp
k = 0: i = 0: j = 0
'*****www.excel.web.tr***********
End Function

 

[leumruk]

Olmadı şimdi. Kodları sayfa1'e değil Module1'e kopyalayacaksınız. Şimdi modulü nasıl oluşturacağım diyeceksin. Hemen söyleyeyim: Araçlar>Makro>Visuel Basic Düzenleyicisi>İnsert>Module tıklıyorsunuz. Size bir modül oluşturuyor. Kodları onun içine kopyalıyorsunuz. Bu kodların 1.'si, yani uzun olan Sayfaların kod bölümünde çalışmaz.

 

[Muhammet Okumuş]

teşekkür ederim leumruk bu kez oldu.ancak asil ve yedek üye belirler kodunu nereye yapıştıracağız.yada ikinci bir düğme oluşturacaksak vba boş sayfa nerden geliyor.

 

[leumruk]

Aynı yere. Hiç farketmez. Kodların en altına da onu yapıştırın ve başka bir düğmeye atayın.

 

[Muhammet Okumuş]

çok teşekkür ederim leumruk.bu arada şampiyonlar ligi dosyanız ne oldu...

 

[leumruk]

çok teşekkür ederim leumruk.bu arada şampiyonlar ligi dosyanız ne oldu...

Emin ol hiç bakamadım. Bu hafta bakabileceğimi de sanmıyorum. Çok fazla uğraşmak gerekiyor. Şart sayısı çok fazla. Şimdilik onunla idere et. Haftaya yeniden inceleyeceğim.
Bu arada, gerçek kura çekimlerinde 4 takımlıları A-D, E-H şeklinde 2'şerli olarak ayırıyorlar mı?
Sonuçta kurayı elle yapıyorlar, bu şekilde ayırmayı nasıl başarıyorlar?
Mantıken torbaların bu şekliyle bu imkansız. Farklı bir yöntemleri mi var.
Ayrıntılı şekilde kura çekimlerini nasıl yaptıklarını açıklayabilirseniz, belki bana bir fikir verebilir?

 

[Muhammet Okumuş]

kardeş önce takımları bir cam kavanozun içine ayırıyorlar.örneğin kavanazdon seçtiler ve r.madrid çıktı.r madridin gidebileceği gruplara bakıyorlar. diyelim ki b grubunda barcelona e grubunda sevilla var. o zaman gruplarının yer aldığı kavanozdan b ve e gruplarını almıyorlar.yani 8 tane grup kavanozu var.(gruplar içinde ayrı kavanoz bulunuyor).mesala bazen takım bile seçmiyorlar.italya liginden 4 takım gelmiş.bunların 2 si 2.torbada yer alsın.2si birinci torbada.2.torbadan çekilen takımlar e ile h grubuna çıktığını düşün.diğer takımda a grubuna çıksın.4. takım b ve c grubuna düşmezse otamatik olarak d grubuna atıyorlar.baya karışık

 

[Muhammet Okumuş]

makroları hep modüle mi kopyalayacağız

 

[leumruk]

Anladım... Yapmaya çalışacağım. Bu arada farklı örneklerde çıkabilir. Beğendiğini kullanırsın.
İyi geceler...

 

[Muhammet Okumuş]

tamam leumruk çok taşekkür ederim

 

[leumruk]

makroları hep modüle mi kopyalayacağız

Makrosuna göre değişir. Ama genelde buraya kopyalanıyor. Zamanla hepsini öğrenirsin. Acele etme. Soru-cevap şeklinde hızlı öğrenirsin. Yalnız üzerinde çalıştığın bir projen olsun. Onun üzerinde çalışırken, değişik sorunlarla karşılaşırsın. Sorunları çözdükçe de meseleyi öğrenirsin.

 

[Muhammet Okumuş]

bir proje şu an için çok erken.biraz bir şeyler öğrenmem lazım.

 

[janveljan]

benimde naçizane bir tavsiyem olacak, ben öğrenmeye ilk başladığım zamanlarda sürekli makro kaydet şeklinde değişik değişik şeyler yaparak ve daha sonra da arkada yazılmış olan kodları inceleyerek baya mesafe katetmiştim tavsiye ederim.

 

[loveiscry]

Ona bastığımda yazdırma seçenekleri değilde hazırladığım makronun çalışmasını istiyorum.Teşekkürler yinede ilgin için.Bu konuda bilgin varsa yardım edersen sevinirimQUOTE]

Biz aynı şeyi konuşuyoruz ama algılamada bir sorun var,yada ben iyi cevap veremedim, yada uygulamasını yerine getiremediniz.

Kardeş şu caps ı incelersen anlaşmazlıklar ortadan kalkar zannedersem.Teşekkürler.

 

[abazya]

Sayın loveiscry merhaba,

Önce boş bir eksel sayfası açınız, Görünüm menüsü, Araç cubuklarından, Görev bölmesini seçiniz.

Sağ tarafta oluşan görev bölmesinde ARANACAK Yazan bölüme "düğmeye makro atama nasıl yapılır" şeklinde sorunuz.
O kısımda size nereye makro eklemek istiyorsanız detaylı şekilde anlatılıyor.(İsterseniz herhangi bir resme, isterseniz Ön izleme, yazdır, vs, vs.)
Deneyin yapacağınızı tahmin ediyorum.
Resim olarakta yükledim

 

[loveiscry]

Sayın loveiscry merhaba,

Önce boş bir eksel sayfası açınız, Görünüm menüsü, Araç cubuklarından, Görev bölmesini seçiniz.

Sağ tarafta oluşan görev bölmesinde ARANACAK Yazan bölüme "düğmeye makro atama nasıl yapılır" şeklinde sorunuz.
O kısımda size nereye makro eklemek istiyorsanız detaylı şekilde anlatılıyor.(İsterseniz herhangi bir resme, isterseniz Ön izleme, yazdır, vs, vs.)
Deneyin yapacağınızı tahmin ediyorum.
Resim olarakta yükledim

Çok teşekkürler kardeş.Yardımcı oldu bu bilgi.Sağolasın.İyi akşamlar.

 

[hmustafay]

Kardeş şu caps ı incelersen anlaşmazlıklar ortadan kalkar zannedersem.Teşekkürler.

Soruna çözüm olmak için konuya farklı bir yaklaşım;
excelin düğmelerinin görevini değiştirmek yerine; bu düğmeleri bir makroyla pasif (işlevsiz) yapmakta aynı çözümü sağlayacaktır.

 

[mami68]

Sayın loveiscry

İkinci bir yöntem:Önceden hazırlanmış makrodan sonra Araçlar --> Özelikleri tıkla ve o sayfa aktif durur iken Çalışma sayfanın menüsünde ki Printer ikonun üzerine sağ tıkla ve açılan listeden Makro atayı seçtiğinde istediğin makronun atamasını yapıyorsunuz.İyi çalışmalar.