aktif olan hücre "F6" olduğunda işlem yapsın

[bulentcigali]

iyi akşamlar,
aktif olan hücre örneğin F6 olduğunda bu hücredeki meblayı toplatma işlemi yaptırmak istiyorum.F6 hücresinin dışındaki hücrelerden biri seçilip işlem yaptırmak istediğimde "f6 hücresini seçmediniz" mesajı verdirip uyarmak ve f6 nın dışında seçilen hücredeki değeri işleme koymamak istiyorum.kısacası seçilen hücre f6 ise işlem yapsın değilse yapmasın,iyi çalışmalar

 

[Orion1]

Aşağıdaki kodu çalışma sayfasının kod bölümüne yazınız.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo son
If Target.Address = "$F$6" Then
    MsgBox "F6 hücresini seçtiniz"
    Else
    MsgBox "F6 hücresi seçili değil"
End If
son:
End Sub

 

[bulentcigali]

sayın orion2 teşekkür ederim,acemiliğimi bağışlayın soruyu aşağıdaki gibi sormak istemiştim,

i = ActiveCell.Row aktif olan satırı buluyorum.ancak bulduğum satırdaki
Range("f" & i) hücresini seçip işlem yaptırmak ve

Range("j" & i) = "AKTARILDI" deyimini yazdırmak istemiştim.
benim sorunum "f" nin dışında
örneğin Range("e" & i) secersem işlem yapmasın. mesajla uyarsın istemiştim.

 

[Orion1]

iyi akşamlar,
aktif olan hücre örneğin F6 olduğunda bu hücredeki meblayı toplatma işlemi yaptırmak istiyorum.F6 hücresinin dışındaki hücrelerden biri seçilip işlem yaptırmak istediğimde "f6 hücresini seçmediniz" mesajı verdirip uyarmak ve f6 nın dışında seçilen hücredeki değeri işleme koymamak istiyorum.kısacası seçilen hücre f6 ise işlem yapsın değilse yapmasın,iyi çalışmalar.

sayın orion2 teşekkür ederim,acemiliğimi bağışlayın soruyu aşağıdaki gibi sormak istemiştim,

i = ActiveCell.Row aktif olan satırı buluyorum.ancak bulduğum satırdaki
Range("f" & i) hücresini seçip işlem yaptırmak ve

Range("j" & i) = "AKTARILDI" deyimini yazdırmak istemiştim.
benim sorunum "f" nin dışında
örneğin Range("e" & i) secersem işlem yapmasın. mesajla uyarsın istemiştim.

Ama ilk sorduğunuz soru öyle değildi.Yukarıdaki soruyu siz yazmadınızmı?
Lütfen soruları sorarken ne istediğimiz açık ve net bir şekilde belirtelim.:mrgreen:

 

[bulentcigali]

kusura bakmayın,özür diliyor ve teşekkür ediyorum.iyi akşamlar.