Hücre değeri değiştiğinde makro çalıştırması - Hesaptablosu.com- Excel Türkiye

**inandasdemir** · #1 07-22-2010, 10:12

Merhaba,
benim bir konuda yardıma ihtiyacım olacak,

bir hücrenin değeri değiştiğinde yani A1 hücresi içinde yazan herhangi bir değeri değiştirip başka bir değer yazıldığı anda VB de yazdığım makronun çalışmasını istemekteyim. böyle bir fonksiyon varmıdır. paylaşırsanız sevinirim.
Selamlar, Saygılar.

**M. Temel Korkmaz** · #2 07-22-2010, 10:20

Merhaba.
Evet bu mümkündür.
Bunun için fonksiyon değil de Event (Olay) kullanmalıyız.

Hangi sayfada çalışıyorsanız o sayfanın kod bölümünde aşağıdaki CHANGE olayına kodlarınızı yazmalısınız. Forumda konu hakkında detaylı bilgiler bulunmaktadır.

Private Sub Worksheet_Change(ByVal Target As Range)

End Sub

Kolay gelsin.

**inandasdemir** · #3 07-22-2010, 11:05

çok teşekkür ederim.
Change konusu hakkında dediğiniz gibi gerekli bilgiler mevcutmuş zaten.
tekrar teşekkür eder iyi çalışmalar dilerim.

**Evren Gizlen** · #4 07-22-2010, 11:12

Kullanıcı tanımlı fonksiyonla yapabilirsiniz.
aşağıdaki kodları standart bir modüle yapıştırınız
Kullanımı
=evren(A1)
A1 hücresine değer girdiğinizde çalışacaktır.

Kod:

 
Function evren(hcr As Range) As String
Call makro1
End Function
Sub makro1()
MsgBox "makro çalıştı"
End Sub

**TayfunAlbuz** · #5 07-30-2010, 09:39

Sayın sezar bu yaptığınız makroyu biraz geliştirerek, benim belirlediğim bir hücreye ve belirlediğim kelime girildiğinde girilen değeri değiştirme teklifi mesajbox'u gelse olur mu? Örneğin Türkiyede 2 tane Kemer adlı ilçe var. Antalya Kemer mi Burdur Kemer mi? Sorusunu soran bir kutu ve ardından değiştirme imkanı versin? Teşekkürler.

**Evren Gizlen** · #6 07-30-2010, 11:08

Alıntı:

TayfunAlbuz Nickli Üyeden Alıntı

Sayın sezar bu yaptığınız makroyu biraz geliştirerek, benim belirlediğim bir hücreye ve belirlediğim kelime girildiğinde girilen değeri değiştirme teklifi mesajbox'u gelse olur mu? Örneğin Türkiyede 2 tane Kemer adlı ilçe var. Antalya Kemer mi Burdur Kemer mi? Sorusunu soran bir kutu ve ardından değiştirme imkanı versin? Teşekkürler.

Bunu sayfada changed olayı ile yapmak daha kullanışlı olur.
Yalnız evet veya hayır cevabında ne nereye yazılacak.Hangi hücreye ne yazılacak?Bunun için bir tasrım yapmanız lazım.Önce tasarım sonra kod.
Önce kod sonra tasarım olmuyor maalesef.

**TayfunAlbuz** · #7 07-30-2010, 11:36

B4 hücresine"KEMER" yazıldığında " Antalya Kemer ise KEMER(ANT), Burdur Kemer ise KEMER(BUR) yazınız" şeklinde mesaj gelecek ve

aynı hücre içinde örneğin ; KEMER(ANT) şeklinde değiştirdiğinde ikaz gelmeyecek. Teşekkürler .

**TayfunAlbuz** · #8 07-30-2010, 11:37

B4 hücresine"KEMER" yazıldığında " Antalya Kemer ise KEMER(ANT), Burdur Kemer ise KEMER(BUR) yazınız" şeklinde mesaj gelecek ve

aynı hücre içinde örneğin ; KEMER(ANT) şeklinde değiştirdiğinde ikaz gelmeyecek. Teşekkürler .

**meyill** · #9 08-11-2010, 01:43

Merhaba arkadaşlar VB konusunda bir sorum olacak.
Aşağıda yazdığım kodlarda G4 ile G53 hücrelerinden birine veri yazıldığında makro otomatik olarak hücredeki değerleri büyük harfe çevirerek alfabetik sıraya dizsin. Bu kodu yazdığımda döngü sonlanmıyor. Nerde yanlış yaptığımı yazmanızı veya bu manada bir kod yazmanızı rica ediyorum. Yardımlarınız için şimdiden teşekkürler.

Kod:

 
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [G4:G53]) Is Nothing Then Exit Sub
Range("G4:G53").Select
Dim cell As Range
  For Each cell In Selection.Cells
    If cell.HasFormula = False Then
      cell = UCase(cell)
    End If
  Next
    Range("G4:G53").Select
    Selection.Sort Key1:=Range("G4"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
        Range("F1").Select
End Sub

**Yakup Karaman** · #10 08-11-2010, 08:36

Merhaba,

Aşağıdaki kodlar G4:G53 hücre aralığına herhangi birşey yazdığınızda bunu büyük harfe çevirerek sıralama yapar. Deneyip sonucu haber verirseniz sevinirim.

Kod:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [G4:G53]) Is Nothing Then Exit Sub
Target.Value = UCase(Target.Value)
Range("G4:G53").Sort Key1:=Range("G4"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("F1").Select
End Sub

**meyill** · #11 08-11-2010, 05:37

Teşekkür ederim istediğim gibi olmuş. Eline sağlık..

**Yakup Karaman** · #12 08-11-2010, 05:39

Yardımcı olabildiğime sevindim. İyi çalışmalar..