Masaüstü kısayol oluşturmak

muratgunay48

Altın Üye
Katılım
10 Şubat 2010
Mesajlar
1,034
Excel Vers. ve Dili
Office 365 - Türkçe (64 bit)
Arkadaşlar, benim makrolarım var, bir tane de excel açtım. Buton yaptım. makroları atadım. Buraya kadar sıkıntı yok.
Ancak o butonları (hani programları sağ tıklayıp masaüstüne gönder diyerek kısayol oluşturuyoeuz ya) masaüstüne kısayol yapılabiliyor mu. Yani hiç excel açmadan o butonu çalıştırmak yani makroyu çalıştırmak mümkün mü.
Şimdiden teşekkür ederim.
 

Haluk

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,268
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Son düzenleme:

ASLAN7410

Altın Üye
Altın Üye
Katılım
15 Temmuz 2012
Mesajlar
2,790
Excel Vers. ve Dili
Ofis 2021 TR 64 Bit
Sayın Haluk Bey, adresini verdiğiniz linkte güzel bir çalışma yapmışsınız, ellerinize sağlık.

Starter VBscript dosyasının kodları içerisindeki aşağıdaki kodu masa üzerinde AHMET klasörü içinde Test.xlsm dosyasını göstermek için kod nasıl olmalı yardımcı olur musunuz?

MyWB = "C:\TestFolder\Test.xlsm"
 

ASLAN7410

Altın Üye
Altın Üye
Katılım
15 Temmuz 2012
Mesajlar
2,790
Excel Vers. ve Dili
Ofis 2021 TR 64 Bit
Sayın Haluk Bey, aşağıdaki gibi yaptım hata verdi.

MyWB = ThisWorkbook.Path & "\AHMET"\Test.xlsm"
 

ASLAN7410

Altın Üye
Altın Üye
Katılım
15 Temmuz 2012
Mesajlar
2,790
Excel Vers. ve Dili
Ofis 2021 TR 64 Bit
Sayın Haluk Bey, masaüstündeki klasördeki dosyanın yolunu nasıl düzenleyebilirim?
 

ASLAN7410

Altın Üye
Altın Üye
Katılım
15 Temmuz 2012
Mesajlar
2,790
Excel Vers. ve Dili
Ofis 2021 TR 64 Bit
Sayın Haluk Bey, ilginiz için çok teşekkür ediyorum.

Hayırlı geceler diliyorum.
 

muratgunay48

Altın Üye
Katılım
10 Şubat 2010
Mesajlar
1,034
Excel Vers. ve Dili
Office 365 - Türkçe (64 bit)

muratgunay48

Altın Üye
Katılım
10 Şubat 2010
Mesajlar
1,034
Excel Vers. ve Dili
Office 365 - Türkçe (64 bit)
Çok teşekkür ederim. Şu an üzerinde çalışıyorum. Sizin kadar ileri düzeyde bilgim yok, macroları yeni yeni çözüyorum.
Hocam öncelikle şöyle bir hata alıyorum. (yalnız benim excel dosyamın uzantısı xlsx)
https://i.hizliresim.com/AOzl80.png

Benim Sizin starterde komutu xlsx olarak değiştirirsem makro çalışıyor ama bu sefer de şöyle bir hata veriyor.
https://i.hizliresim.com/Yd6GRZ.png Benim excel dosyamın uzantısını mı değiştirmem gerekiyor.

İkinci husus açılışta merhaba muratgunay48 diyor, onu demese, direk çalıştırsa. Sanırım o komut ikinci satır. Sildim , artık demiyor. Ama dursun lazım olur. Orada dursun ama çalışmasın [ ] içine mi alıyorduk.

Aynı şekilde Auto_Open makrosu çalıştı çıkmasa. Onu nasıl yapacağım. (hocam o emojiyi ben koymuyorum. dalga geçiyorum sanmayın lütfen. makro adını yazınca ortada o çıkıyor)

Hocam yazdıklarımı silmek istemedim, bilginiz olsun diye. Sanırım yaptım. Ama en sonunda şöyle bir (hata değil) bildirim çıkıyor. Sebebi nedir sizce. https://i.hizliresim.com/BOzBpD.png

Hocam son olarak. O starter yazılımına ekleyebiliyor muyuz. Tamam macroyu çalıştırdı, sonra da excel dosyasını kapatsın.

ÇOK AMA ÇOK TEŞEKKÜR EDERİM. ELİNİZE EMEĞİNİZE SAĞLIK.
 
Son düzenleme:

Haluk

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,268
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
......
....
Hocam son olarak. O starter yazılımına ekleyebiliyor muyuz. Tamam macroyu çalıştırdı, sonra da excel dosyasını kapatsın.
.....
Makroyu çalıştırdıktan sonra, değişiklikler kaydedilmeden Excel dosyasını kapatmak için VBS kodları;


Kod:
' Haluk
' 17/08/2019
' sa4truss@gmail.com

Set WshNetwork = WScript.CreateObject("WScript.Network")
         
' WScript.Echo "Merhaba, " & WshNetwork.UserName 

Set NewXL = CreateObject("Excel.Application")
    
Set MyWB = NewXL.workbooks.open("C:\TestFolder\Test.xlsm")

NewXL.Visible = True

NewXL.application.run "Auto_Open"

MyWB.Close False

NewXL.Quit

Set MyWB = Nothing

Set NewXL  = Nothing

Set WshNetwork = Nothing


.
 
Son düzenleme:

muratgunay48

Altın Üye
Katılım
10 Şubat 2010
Mesajlar
1,034
Excel Vers. ve Dili
Office 365 - Türkçe (64 bit)
Makroyu çalıştırdıktan sonra, değişiklikler kaydedilmeden Excel dosyasını kapatmak için VBS kodları;


Kod:
' Haluk
' 17/08/2019
' sa4truss@gmail.com

Set WshNetwork = WScript.CreateObject("WScript.Network")
        
' WScript.Echo "Merhaba, " & WshNetwork.UserName

Set NewXL = CreateObject("Excel.Application")
   
Set MyWB = NewXL.workbooks.open("C:\TestFolder\Test.xlsm")

NewXL.Visible = True

NewXL.application.run "Auto_Open"

MyWB.Close False

NewXL.Quit

Set MyWB = Nothing

Set NewXL  = Nothing

Set WshNetwork = Nothing


.
Çok ama çok teşekkür ederim. Elinize emeğinize sağlık. Varolun.
 

muratgunay48

Altın Üye
Katılım
10 Şubat 2010
Mesajlar
1,034
Excel Vers. ve Dili
Office 365 - Türkçe (64 bit)
Makroyu çalıştırdıktan sonra, değişiklikler kaydedilmeden Excel dosyasını kapatmak için VBS kodları;


Kod:
' Haluk
' 17/08/2019
' sa4truss@gmail.com

Set WshNetwork = WScript.CreateObject("WScript.Network")
        
' WScript.Echo "Merhaba, " & WshNetwork.UserName

Set NewXL = CreateObject("Excel.Application")
   
Set MyWB = NewXL.workbooks.open("C:\TestFolder\Test.xlsm")

NewXL.Visible = True

NewXL.application.run "Auto_Open"

MyWB.Close False

NewXL.Quit

Set MyWB = Nothing

Set NewXL  = Nothing

Set WshNetwork = Nothing


.
Hocam, teşekkürden ayrı yazmak istedim bu mesajı. Biliyorum çok vaktinizi aldım. VBS mükemmel değil, mükemmel ötesi çalışıyor. Açılan excel'i kapatıyor. zaten benim kullanım amacım onlarca excel dosyasını çalıştıracak bir makro yazmak idi. Sizden ricam excel dosyasının kapanması olmuştu. Sizde değil bende kusur var. Kusur derken, excel dosyalarında tarih olduğu için, kapatırken "YAPILAN DEĞİŞİKLİKLERİ KAYDEDEYİM Mİ" diyor. Mecbur "HAYIR" tıklıyorum. Tıklamadan excel kapanmıyor. Yani amacıma ulaşamamış oluyorum. Bunun için yapılabilecek bir şey var mı. Kapanırken "HAYIR" seçeneğini seçebilir mi. Yoksa çok şey mi istiyorum. Bilmediğim için. Tarihler de lazım çünkü.
Sabrınız ve yardımlarınız için teşekkür ederim.
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,313
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Aşağıdaki satırı ekleyip deneyiniz.

Kod:
MyWB.Application.DisplayAlerts = False
MyWB.Close False
 

muratgunay48

Altın Üye
Katılım
10 Şubat 2010
Mesajlar
1,034
Excel Vers. ve Dili
Office 365 - Türkçe (64 bit)
Aşağıdaki satırı ekleyip deneyiniz.

Kod:
MyWB.Application.DisplayAlerts = False
MyWB.Close False
Öncelikle ilgi ve alakanıza teşekkür ederim.

Bendeki yazılı olan kodun

MyWB.Close False

satırının üst satırına

MyWB.Application.DisplayAlerts = False

ekledim, yine sordu hocam. Olmadı yani. Size zahmet bakarsanız, hata mı yaptım acaba.

Şimdiden teşekkür ederim.
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,313
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Peki bir de aşağıdaki satırı aynı şekilde ekleyip deneyiniz.

Kod:
NewXL.Application.DisplayAlerts = False
 

muratgunay48

Altın Üye
Katılım
10 Şubat 2010
Mesajlar
1,034
Excel Vers. ve Dili
Office 365 - Türkçe (64 bit)
Gece işe gidince hemen deneyip sonucu bildireceğim.
Çok teşekkür ederim.
 

muratgunay48

Altın Üye
Katılım
10 Şubat 2010
Mesajlar
1,034
Excel Vers. ve Dili
Office 365 - Türkçe (64 bit)
Peki bir de aşağıdaki satırı aynı şekilde ekleyip deneyiniz.

Kod:
NewXL.Application.DisplayAlerts = False
Hocam, Haluk beyin yazdığı kod şu şekildeyi

Set WshNetwork = WScript.CreateObject("WScript.Network")

' WScript.Echo "Merhaba, " & WshNetwork.UserName

Set NewXL = CreateObject("Excel.Application")

Set MyWB = NewXL.workbooks.open("C:\Users\user\Desktop\KAPAKLAR\cmt.xlsm")

NewXL.Visible = True

NewXL.application.run "cmtk"

MyWB.Close False

NewXL.Quit

Set MyWB = Nothing

Set NewXL = Nothing

Set WshNetwork = Nothing

Sonra

MyWB.Application.DisplayAlerts = False

ve sonra

NewXL.Application.DisplayAlerts = False

ekledim. Ama olmuyor. https://i.hizliresim.com/DOYrO1.png --- mutlaka soruyor.
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,313
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Aşağıdaki gibi deneyiniz.

Kod:
NewXL.Application.DisplayAlerts = False 
MyWB.Close False
 

muratgunay48

Altın Üye
Katılım
10 Şubat 2010
Mesajlar
1,034
Excel Vers. ve Dili
Office 365 - Türkçe (64 bit)
Aşağıdaki gibi deneyiniz.

Kod:
NewXL.Application.DisplayAlerts = False
MyWB.Close False
NewXL.application.run "cmtk"

MyWB.Close False

ikisinin arasına ekleyeceğim değil mi.

Hocam affınıza sığınarak, bunu denemiştim zaten, o taktirde yerini yanlış yazdım.

Saygılarımla
 
Üst