makronun otomatik çalışması

[erdeniz]

merhaba arkadaşlar

excelde iki tarih arasındaki gün farkını bulmak için şöyle bir kod yazdım

Sub kod()
Range("e12") = DateDiff("d", Range("b6"), Now)
End Sub

vb editörde f5 e bastığımda e12 hücresine doğru değer işleniyor. ancak b6 hücresinde tarih değişikliği yaptığımda e12 otomatikman değişmiyor. bunu nasıl düzeltebilirim. şimdiden teşekkür ederim...

 

[Levent Menteşoğlu]

Kodunuzu aşağıdaki gibi sayfanın change olayına yazmalısınız. Bu kodu sayfanın kod sayfasına kopyalayın.

[vb:1:244f9ccddf]Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$6" Then Range("e12") = DateDiff("d", Range("b6"), Now)
End Sub
[/vb:1:244f9ccddf]

 

[erdeniz]

sağol kardeş. işime yaradı

 

[ozsah]

Sub Gelişmiş()
Sheets("STOK").Range("D573").AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Range("S4:S1000"), Unique:=True
End Sub

yukarıdaki makronun otomatik olarak sürekli aktif olmasını istiyorum. çünki verileri süzerek aktarmak istiyorum fakat. her defasında yeniden süzmenin önüne geçmiliyiz.

 

[YaqIshIqLI]

Ben de A1 hücresine değer girilince makronun çalışmasını istiyorum. Bunu nasıl yapabilirim?

 

[Seyit Tiken]

Private Sub Worksheet_Change(ByVal Target As Range)
If Not [a1] = "" Then MsgBox "Makronuz"
End Sub

 

[ozsah]

Sub Gelişmiş()
Sheets("STOK").Range("D51000").AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Range("alış!S4:S1000"), Unique:=True
End Sub

Syn.Levent bey yukarıdaki süzme makrosunun ilgili hücrede ekleme yada çıkarma olduğunda çalışmasını mümkün kılabilirmisiniz.

 

[ozsah]

Sayın Tiken iki sayfam var Stok ve Alış adında bu sayfalardan gelişmiş süzgeçle verileri Alış sayfasına alıp (herhangi bir tuşa basmadan veri girişi yada çıkışı olduğunda) oradanda veri doğrulamayı kullanacağım.

 

[Seyit Tiken]

Verdiğim cevap 5. mesaja aitti. Örnek bir dosya ekleyebilirseniz üzerine gideriz.

 

[ozsah]

Sayıt Tiken dosyayı ekledim.

 

[ilkay.gmf]

a1,a2 ve a3 hücrelerinden bir tanesinin değeri değişince makro otomatik olarak çalışmasını istiyorum
yardımcı olurmusunuz

 

[Emir Hüseyin Çoban]

a1,a2 ve a3 hücrelerinden bir tanesinin değeri değişince makro otomatik olarak çalışmasını istiyorum
yardımcı olurmusunuz

Merhaba, çalışma sayfasının kod bölümüne aşağıdaki kodları yapıştırın.

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("A1,A2,A3")) Is Nothing Then
    Call [B][COLOR="Red"]Makro1[/COLOR][/B]
  Else
  End If
End Sub

Makro1 kısmını çalışmasını istediğiniz makronun ismiyle değiştirin.