hücre değişinçe makro çalıştırma

[ilkay.gmf]

herkese merhaba

forumlardan aldığım aşağıdaki komutu bir türlü kullanamadım.

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

ayrıca bu komutu benim makromum tam neresine yazılacağınıda bilemedim. ekde çalışmamı gönderiyorum
not: makromda d26 hücresi değiştiğinde f25 hüçresi değişiyor. makroyu run yaoınca çalışıyor.

herkese teşekkürler

 

[İhsan Tank]

herkese merhaba

forumlardan aldığım aşağıdaki komutu bir türlü kullanamadım.

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

ayrıca bu komutu benim makromum tam neresine yazılacağınıda bilemedim. ekde çalışmamı gönderiyorum
not: makromda d26 hücresi değiştiğinde f25 hüçresi değişiyor. makroyu run yaoınca çalışıyor.

herkese teşekkürler

Makro neye göre çalışacak ne işlem yapacak
End Sub satırından önce ne işlem yapacağınının kodunu yazın ve deneyin.
Yada ne işlem istediğinizi söyleyin kodunuzu düzenliyelim.

 

[ilkay.gmf]

ekdeki örnekte makrom vardı
Sub try()


If Range("d26") = 1 Then
Range("f25") = 235

ElseIf Range("d26") = 2 Then
Range("f25") = "fb"

ElseIf Range("d26") = 3 Then
Range("f25") = "orduspor"

ElseIf Range("d26") = 4 Then
Range("f25") = 25 / 885 / 223

Else
Range("f25") = "ss26"


End If
End Sub

yardımıcı olursanız sevinirim

 

[İhsan Tank]

ekdeki örnekte makrom vardı
Sub try()


If Range("d26") = 1 Then
Range("f25") = 235

ElseIf Range("d26") = 2 Then
Range("f25") = "fb"

ElseIf Range("d26") = 3 Then
Range("f25") = "orduspor"

ElseIf Range("d26") = 4 Then
Range("f25") = 25 / 885 / 223

Else
Range("f25") = "ss26"


End If
End Sub

yardımıcı olursanız sevinirim

Bu eklediğiniz makro yoktu ayrıca ilk verdiğiniz kod'u da yanlış yere kopyalamışsınız.
Şimdi yapmanız gereken
Module1'e

Sub try()
If Range("d26") = 1 Then
Range("f25") = 235
ElseIf Range("d26") = 2 Then
Range("f25") = "fb"
ElseIf Range("d26") = 3 Then
Range("f25") = "orduspor"
ElseIf Range("d26") = 4 Then
Range("f25") = 25 / 885 / 223
Else
Range("f25") = "ss26"
End If
End Sub

Bu kodu kopyalayın.
Sayfa1'in kod bölümüne

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [D26]) Is Nothing Then Exit Sub
Call try
End Sub

Bu kodu kopyalayın ve D26 hücresinde değişiklik yaparak sonuçları gözlemleyin.

 

[ilkay.gmf]

teşekkür ederim İhsan Bey

sayfa 1 kod bölümünü bulmakta zorlamışım.

iyi günler

 

[İhsan Tank]

teşekkür ederim İhsan Bey

sayfa 1 kod bölümünü bulmakta zorlamışım.

iyi günler

Rica ederim
:keyif: