Makro çalışma

[vivident]

Merhaba

Alt+F8 tuşuna basınca makro penceresi açılıyor ve çalıştır butonuna basan tüm kullanıcılar istenilen makroları çalıştırıyor. Ben çalıştırmalarını engellemek istiyorum

Sub ile başlayan kodların başına private sub ekleyince makro penceresinde kodlar gözükmüyor. Fakat call kodu ile birleştirdiğim makrolar var, bu kez hata veriyor. Nasıl bir çözüm yöntemi uygulanmalı

Makro penceresindeki çalıştır butonu aktif olamaz mı veya başka bir çözüm yöntemi ?

 

[ÖmerBey]

Merhaba

Alt+F8 tuşuna basınca makro penceresi açılıyor ve çalıştır butonuna basan tüm kullanıcılar istenilen makroları çalıştırıyor. Ben çalıştırmalarını engellemek istiyorum

Sub ile başlayan kodların başına private sub ekleyince makro penceresinde kodlar gözükmüyor. Fakat call kodu ile birleştirdiğim makrolar var, bu kez hata veriyor. Nasıl bir çözüm yöntemi uygulanmalı

Makro penceresindeki çalıştır butonu aktif olamaz mı veya başka bir çözüm yöntemi ?

Merhaba, aşağıdaki mantıkla deneyiniz.

Sub dene()
Call Kod(1)
End Sub

Sub Kod(Çalış)
MsgBox "oldu"
End Sub

Private sub kullandığınızda da

Run "Deneme"

benzeri kodla çalıştırabilirsiniz.

 

[vivident]

Sayın mucit
Private sub kodu haricindekiler tamam

Bir örnek verebilirmisiniz
Aşağıdaki gibi bir şey mi

Private Sub AAA()
MsgBox "bitti"
End Sub

Sub deneII()
run "AAA"
End Sub

 

[ÖmerBey]

Evet aynen bu şekilde, ancak Private Sub modül içinde olmalı.

 

[isyankarzarar]

LÜTFENNN ACİİİLLLL YARDIMMM

MERHABALAR SAYIN HOCALARIM
excel de stok takibi yapmakta olduğum bir tabloda
L sütununda her hangi bir satıra her hangi bir değer girince 1 satır boşluk bırakan bu formülü yazmıştınız çalıştı
ancak
1-değer yazdığım hücreyi silince eklenen satırın silinmesi için ne yapmam gerekli
2-diğer bazı sütunlardaki S W X Z gibi var olan formüllerim eklenen satırda olmuyor ne yapmam gerekli

şimdiden teşekkürler...


Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("L:L")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Rows(Target.Row + 1).Insert shift:=xlDown
Application.EnableEvents = True

 

[isyankarzarar]

makro ile eklenen satırların silinmesi ve mevcut formüllerin eklenen satırda devamı

lütfeennn aciillll yardııımmm eder misiniz