I15 hücresine göre makronun çalışması

[hasimeno]

bana acil ardım ederseniz çok sevinirim.
sorunla ilgili açıklama ekteki çalışma kitabında yazılıdır.

yardım edenler şimdiden çok çok teşekkür ederimmm

 

[Orion1]

Ekli dosyayı inceleyiniz.

 

[hasimeno]

yardım

evren bey;

ben tam olarak antamadım galiba özür dilerim


işlemler buton kullanmadan gerçekleşek (I5) ENDER' e eşitse otamatik olarak ender_1 macrosu çalışacak yada (I5)'ın değeri neyse o macroyu otamatik olarak çalıştıracak.


yardımcı olursanız çok sevinirim


syg.
heo

 

[Orion1]

Zaten öyle çalışıyor.
ENDER1 e basınca ender1 makrosu ENDER2ye basınca Eb-nder2 makrosu Ender3'e basınca ender3 makrosu çalışıyor.
İstediğiniz değişiklikleri makroların içinde yapabilirsiniz.
Başka türlüde olmaz.
mesela

Call Range("I15").value

şeklinde makro çalıştıramazsınız.

 

[hasimeno]

peki auto_open tarzında bir olabilirmi benim isteiğim macronun hücre değerine göre çalışması o şekilde çalıştırma imkanımız yokmu diyorsunuz. aşağıda kodlardlardan yola çıkılabilirmi peki


Workbooks.Open(Filename:="H:\ORTAK\DALAMAN HAVA LİMANI\TRİKOM KONSOLİDE.xls" _
, UpdateLinks:=3).RunAutoMacros Which:=xlAutoOpen

 

[Orion1]

peki auto_open tarzında bir olabilirmi benim isteiğim macronun hücre değerine göre çalışması o şekilde çalıştırma imkanımız yokmu diyorsunuz. aşağıda kodlardlardan yola çıkılabilirmi peki


Workbooks.Open(Filename:="H:\ORTAK\DALAMAN HAVA LİMANI\TRİKOM KONSOLİDE.xls" _
, UpdateLinks:=3).RunAutoMacros Which:=xlAutoOpen

Bu kod başka bir dosyayı açarken açılan dosyadaki auto_open dosyası ile açılmasını sağlar.Biz dosya içersinde bir prosedürden başka bir prosedürü çalıştırmak için call komutunu kullnırız. örnek

call makro1

Sizin kodlarınızda bu işleme gerek yok.

 

[Korhan Ayhan]

Selamlar,

Tam olarak doğru anladığımdan emin değilim ama aşağıdaki kodu denermisiniz.

Sub DEĞERE_GÖRE_MAKRO_ÇALIŞTIR()
    Application.Run ([I15] & "_1")
End Sub

 

[Orion1]

Selamlar,

Tam olarak doğru anladığımdan emin değilim ama aşağıdaki kodu denermisiniz.

Sub DEĞERE_GÖRE_MAKRO_ÇALIŞTIR()
    Application.Run ([I15] & "_1")
End Sub

Korhan hocam merhaba.
Ben bu özelliği (Başka bir hücreden refeans verme)bilmiyordum.Verdiğiniz bilgi için teşekkür ederim.

 

[hasimeno]

TeŞekkÜr

ArkadaŞlar Yardimlariniz Ve Bİlgİlerİnİzİ Benİmle PaylaŞtiĞiniz İÇİn Ne Kadar TeŞekkÜr Etsem Azdir ÇÜnkÜ Ben 1,5 Aydir Bu Olayi ÇÖzmeye ÇaliŞiyordum BugÜn İhtİbarİ İle Oldu.


Tekrar TeŞekkÜr Edİyorum Ve Bİlgİnİze Saygi Duyuyorum

Saygilarimla
Heo