hücre değiştiğinde makro çalıştırma

[rain2003]

1 hücre içeriği değiştiğinde bir makro çalıştırmak istiyorum.
siteden bazı örnekleri uyguladım fakat tekrarlama yapıp kilitliyor.

 

[Necdet]

Merhaba,

Yapmak istediğinizi tam olarak anlamadığım için basit bir örnek veriyorum.

İlgili sayfanın kod bölümünde olması gereken kod

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
HucreDegistiMakroCalisti
End Sub

Modülde olması gereken makro

Sub HucreDegistiMakroCalisti()
MsgBox "Sayfa1 deki A1 hücresi değişti, bende çalışıp mesaj verdim"
End Sub

Bu kodlar sanırım bir fikir verir size.

 

[rain2003]

gönderdiğiniz örnek tam istediğim fakat bir problem var.
değiştirlen hücreye ben değer girmiyorum.
Baska bir hücreden formülle değer alıyor.
O zaman sizin örnek çalışmıyor.

 

[Necdet]

gönderdiğiniz örnek tam istediğim fakat bir problem var.
değiştirlen hücreye ben değer girmiyorum.
Baska bir hücreden formülle değer alıyor.
O zaman sizin örnek çalışmıyor.

Mantığı değişen hücre yada hücrelere göre kurmak gerektiğini anlatmak için örneği verdim.

 

[leumruk]

Merhaba,
Eğer tek bir hücre için düşünüyorsanız ekteki örnek işinize yarayabilir.
A1 hücresine =C1 formülünü yazarak uyguladım. Formül bağlantısının olduğu hücre değişebilir, kodu etkilemeyecektir. C1'e değer girerek deneyiniz.

 

[rain2003]

teşekkür ederim

 

[rain2003]

defalarca kopyalıyor

kopyala yapıştır makrosu kaydettim
hücre degğişince 1 kere kopyalaması lazım
defalarca kopyalıyor.örneği gönderiyorum ekte

 

[leumruk]

Aşağıdaki örneği deneyin.

 

[kdursun]

D1,E1,F1 Hücrelerinden hangisi boş ise o sütunu gizlesin şeklinde bir makro nasıl yazılır. bir türlü beceremedim.

 

[leumruk]

Merhaba,
Aşağıdaki kodu kullanın:

Sub Gizle()
For x = 4 To 6
If Cells(1, x) = "" Then Columns(x).EntireColumn.Hidden = True
Next
End Sub

 

[kdursun]

Harikasın leumruk. Çok çok teşekkür ederim. Ellerine sağlık.

 

[sdegirmenci]

Hücre değeri değiştiğinde makro çalıştırma

Hocam Açılan kutudan seçilen değere göre de makro1 veya makro 2 çalışabilirmi? İlgilenebilirseniz çok sevinirim.Ekteki örnek dosyamda basitçe ne demek istediğimi anlattım. Şimdiden çok teşekkür ederim.

 

[leumruk]

Merhaba,

Private Sub ComboBox1_Change()
HucreDegistiMakroCalisti
End Sub
Private Sub ComboBox1_DropButtonClick()
If ComboBox1.ListCount > 0 Then Exit Sub
ComboBox1.Clear
deg = Array("BİLETLİ", "BİLETSİZ", "AKTARMALI")
For x = LBound(deg) To UBound(deg)
ComboBox1.AddItem deg(x)
Next
End Sub

 

[sdegirmenci]

Sayın leumruk ilginize teşekkür ederim.
Yazdığınız kod combobox atanmakta . Hücrede açılan kutu ile çalışması mümkün değilmi acaba
Combo ya liste ekledim seçimde hata verdi

 

[leumruk]

Örneği inceleyin

 

[sdegirmenci]

Sayın leemruk,
Çok teşekkür ederim.Bilginize sağlık.Kendi dosyama uygulamaya çalışacağım.Hayırlı geceler diliyorum.

 

[leumruk]

Sayın leemruk,
Çok teşekkür ederim.Bilginize sağlık.Kendi dosyama uygulamaya çalışacağım.Hayırlı geceler diliyorum.

Rica ederim. İsterseniz nasıl yapıldığını anlatayım, vakit kaybetmeyin.
Açılır kutuyu oluşturduktan sonra üzerine gelin ve sağ tıklayın. Denetim Biçimlendir kısmından veri aralığınızı girin m3:m5 gibi...Hücre bağlantısı belirtmenize gerek yok. Tamamı tıkladıktan sonra yine açılırkutuya sağ tıklayın Makro ata kısmından çalışmasını istediğiniz makroyu atayın.

 

[Dorindochi]

çok benzer bir durum olduğu için burda sormayı uygun buldum..

A1 değiştiğinde, A1 in değişen her değerinin B1 toplanması mümkünmüdür..

Teşekkürler..

 

[uzmanamele]

çok benzer bir durum olduğu için burda sormayı uygun buldum..

A1 değiştiğinde, A1 in değişen her değerinin B1 toplanması mümkünmüdür..

Teşekkürler..

merhaba

bu işinizi görür mü?
ilgili sayfanın kod bölümüne yazarak deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a1]) Is Nothing Then Exit Sub
[b1] = [b1] + [a1]
End Sub

 

[denizkocer]

örnek vererek problemi anlatmak istiyorum.

sayfa1 a1 hücresinde değer=5

sayfa2 b1 hücresinde değer Sayfa1!A1+5 ........(5+5=10)

sayfa1 A1 hücresini değiştirdiğimde Sayfa2 b1 hücresinin değişimine bağlı bir makro çalıştırabilir miyim?
bu işlemleri yaparken ben hep sayfa1 de olmalıyım.