Makro Seçimini Seçenek Kutusu ile Belirlemek

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Makro Seçimini Seçenek Kutusu ile Belirlemek

İleti#1)  atilla13 » 01 Şub 2023 18:08

............
.................
.............
Application.CutCopyMode = False
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

'clearANALYZE
'ANALYZ_LAST

clearALLCOINS
ALLCOINS_ANLYZE

'ALARM.detectAlarm

End Sub


GET isimli sayfamdaki kodlarımın sonu bu şekilde sona eriyor. Kodun sonunda zaman zaman clearANALYZE ve ANALYZ_LAST 'ı birlikte, zaman zaman da clearALLCOINS ve ALLCOINS_ANLYZE 'i birlikte çağırarak kullanıyorum. Bildiğiniz gibi, bunu yapabilmek için kodun içine girip tırnak işaretleri ile aktif yada pasif hale gelecek kodları belirleyebiliyorum. Sürekli bu işlemi yapmaktansa, GET isimli sayfamda; seçenek kutusu, birleşik giriş kutusu vb. bir form denetimine atanacak makro ile seçimi gerçekleştirmek mümkün müdür? Teşekkürler.
Kullanıcı avatarı
atilla13
Yeni Başlamış
 
Kayıt: 06 Mar 2017 13:47
Meslek: Emekli
Yaş: 55
İleti: 67
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara

Yıllık Maaş Bordrosu Hesaplama 2022

Cevap: Makro Seçimini Seçenek Kutusu ile Belirlemek

İleti#2)  Yken » 01 Şub 2023 20:50

Değiştirilecek ifadenin bulunduğu Modül = Module1
Modüldeki değiştirilecek kelime kaçıncı satırda, (imleç satırda iken yukarıya menüye bakın. Bendeki örnekte Ln 12 yazıyordu)
Değişiklik yapılınca nasıl olmasını istiyorsunuz = clearANALYZE

'clearANALYZE ifadesinin başındaki tırnağı sileceğiz, satırı şöyle değiştiriyoruz:
Kod: Tümünü seç
Sub Kod_Satir_Aktif_Pasif()
ActiveWorkbook.VBProject.VBComponents("Module1").CodeModule.ReplaceLine 12, "    clearANALYZE"
End Sub

Bu makroyu çalıştırdığınız userforma veya sayfaya buton olarak, seçenek düğmesi olarak vb. eklersiniz.
.
Kullanıcı avatarı
Yken
Siteye Alışmış
 
Kayıt: 07 Kas 2014 11:06
Meslek: Muhasebe
Yaş: 57
İleti: 175
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: Makro Seçimini Seçenek Kutusu ile Belirlemek

İleti#3)  atilla13 » 01 Şub 2023 21:07

Teşekkürler en kısa zamanda deneyeceğim
Kullanıcı avatarı
atilla13
Yeni Başlamış
 
Kayıt: 06 Mar 2017 13:47
Meslek: Emekli
Yaş: 55
İleti: 67
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara

Cevap: Makro Seçimini Seçenek Kutusu ile Belirlemek

İleti#4)  atilla13 » 01 Şub 2023 21:46

Kripto para analizi programımın bir parçasıydı. Kodları böyle düzenledim.

Sub Analyze_mainbutton_Active_Passive()
ActiveWorkbook.VBProject.VBComponents("GETT").CodeModule.ReplaceLine 60, " clearANALYZE"
ActiveWorkbook.VBProject.VBComponents("GETT").CodeModule.ReplaceLine 61, " ANALYZ_LAST"
ActiveWorkbook.VBProject.VBComponents("GETT").CodeModule.ReplaceLine 65, " 'clearALLCOINS"
ActiveWorkbook.VBProject.VBComponents("GETT").CodeModule.ReplaceLine 66, " 'ALLCOINS_ANLYZE"
End Sub

Sub Allcoins_mainbutton_Active_Passive()
ActiveWorkbook.VBProject.VBComponents("GETT").CodeModule.ReplaceLine 65, " clearALLCOINS"
ActiveWorkbook.VBProject.VBComponents("GETT").CodeModule.ReplaceLine 66, " ALLCOINS_ANLYZE"
ActiveWorkbook.VBProject.VBComponents("GETT").CodeModule.ReplaceLine 60, " 'clearANALYZE"
ActiveWorkbook.VBProject.VBComponents("GETT").CodeModule.ReplaceLine 61, " 'ANALYZ_LAST"
End Sub

Resimdeki gibi 2 ayrı seçenek düğmesine ayrı ayrı atadım ve istediğim gibi çalıştı. Çok teşekkürler.

[img]
KRİPTO.png
[/img]
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
atilla13
Yeni Başlamış
 
Kayıt: 06 Mar 2017 13:47
Meslek: Emekli
Yaş: 55
İleti: 67
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: AhrefsBot ve 1 misafir

Bumerang - Yazarkafe