Hücre Değeri Değişince İstediğim Sheet'e Gitsin

[oderkaya]

Hepinize selamlar ,

Açıkcası soracağım şey bana göre biraz garip olduğu için daha önce konunun işlenip işlenmediğini hangi anahtarla arayacağımı bilemedim ?

Kısaca ;

" Ekli dosyadaki sheet1 alanında yer alan " DEĞER " hücresindeki hücre değeri normalde 3+2 gibi bir formülden hesaplanan bir değer. Bu değer değişirse default olarak sheet2 hücresine gideyim..." şeklinde bir macro mümkün olabiliyor mudur acaba ?

Teşekkürler

 

[ECYavuz]

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [C5]) Is Nothing Then Exit Sub
If Target <> "" Then Sheets("" & [C5]).Select
End Sub

&#351;eklinde bir uygulama m&#305; istiyorsunuz?

 

[oderkaya]

Teşekkürler ,

C5 'e değer girilir veya C5 deki değer değişirse ( boş iken bir rakam girilmesi, veya mevcut bir rakam ilen değiştirilmesi ) beni direkt sheet2 de örneğin A1 hücresine götürsün ( yönlendirsin ) gibi birşey anlatmak istediğim.

 

[Seyit Tiken]

Uygun olan&#305; kullan&#305;n.

Private Sub Worksheet_Calculate()
On Error Resume Next
If Target.Address = "$C$5" Then Sayfa2.Select: [a1].Select
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Address = "$C$5" Then Sayfa2.Select: [a1].Select
End Sub

 

[oderkaya]

Teşekkürler ,
ancak C5 değeri değişince sheet2 ye yönlenmiyorum, hiçbirşey olmuyor ?

iyi çalışmalar

 

[Seyit Tiken]

Bu &#351;ekilde deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Address = "$C$5" Then Sheets("Sheet2").Select: [a1].Select
End Sub

 

[Orion1]

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [C5]) Is Nothing Then Exit Sub
If Target <> "" Then Sheets("" & [C5]).Select
End Sub

şeklinde bir uygulama mı istiyorsunuz?

Yavuz bey bu kırmızı ile belirttiğim tırnakları neye koyuyorsunuz acaba?
Merakımı mazur görün.

 

[access70]

&#199;ift t&#305;rnak i&#351;areti alan&#305;n bo&#351; oldu&#287;unu ifade eder. Yani de&#287;er yok.

 

[oderkaya]

te&#351;ekk&#252;rler say&#305;n Seyit Tiken ,

bir k&#252;&#231;&#252;k de&#287;i&#351;iklik yapabilir miyiz.? &#214;rne&#287;in bu C5 alan&#305;n&#305;n manuel de&#287;i&#351;medi&#287;ini, bir form&#252;l ve hesaplama sonucu &#252;retilen bir de&#287;ere sahip oldu&#287;unu ve bu hesaplama de&#287;eri de&#287;i&#351;ince di&#287;er sheet'e gitmesi gerekti&#287;ini becerebiliyor muyuz.

&#214;rne&#287;in ; C5 te = sum(x+y ) gibi bir form&#252;l sonucu olu&#351;an bir de&#287;er oldu&#287;unu varsayal&#305;m.Makroyu bu form&#252;l bile&#351;enlerinin de&#287;i&#351;imi sonucu C5 deki de&#287;er de&#287;i&#351;irse de di&#287;er sheet'e gidecek gibi set edebiliyor muyuz ?

Tekrar te&#351;ekk&#252;rler,

 

[Seyit Tiken]

Biraz &#231;abayla, biraz ara&#351;t&#305;rmayla bulurdunuz. Yukar&#305;daki 4.mesaj&#305;mda belirtmi&#351;tim. Kodu bu olaya atay&#305;n.

Private Sub Worksheet_Calculate()

End Sub

 

[oderkaya]

Say&#305;n Tiken ,
Benim macro yazmak ile ilgili pek fazla bir deneyimim yok. K&#305;sa vadede ara&#351;t&#305;r&#305;p bulmam m&#252;mk&#252;n olmayacakt&#305;. Asl&#305;nda bu g&#252;n itibariyle bu &#231;&#246;z&#252;me ihtiyac&#305;m kalmasa da , konunun bir payla&#351;&#305;m oldu&#287;unu d&#252;&#351;&#252;nd&#252;&#287;&#252;mden ve sadece akl&#305;ma geldi&#287;i i&#231;in C5 hesaplamaya konu olsa ne olurdu ? diye iyi niyetle sizlere sordum. Ayr&#305;ca deste&#287;inize de her seferinde defalarca te&#351;ekk&#252;r ettim...
Emin olunuz ki ger&#231;ekten &#231;abalamadan veya ara&#351;t&#305;rmadan sizlerin yard&#305;m&#305;na ba&#351;vurmuyorum, sizlerinde zaman&#305;n&#305;n de&#287;erli oldu&#287;unu biliyorum. Yani ara&#351;t&#305;rma veya &#231;aba konusundaki siteminize yukar&#305;da belirtti&#287;im nedenlerle kat&#305;lm&#305;yorum, yine de tekrar te&#351;ekk&#252;r ederim, &#231;&#246;z&#252;m &#231;al&#305;&#351;t&#305; ...