Çağırılan veriyi değer olarak gösterme

[menderes01]

Arkadaşlar kolay gelsin araştırdım ama bulamadım örneğim + diğerek başka bir sayfadan hücreme veri çağırıyorum bu sayı sayı görünürde doğru sayı olarak görünüyor ama başka bir formülünde oraya yansıttığım veriyi sayı olarak görmesi gerekirken formül olarak görüyor. yani istediğim çağırdığım sayıyı nasıl o hücreye elle yazmış gibi gösterebilirim.

 

[menderes01]

Arkadaşlar alttaki kodu sayfaya uyguluyorum AT5 hücresinede + deyip başka yerden sayı çağırıyorum ama formüle girip enter yapınca aktif olupyo yoksa hücredeki değişikliği görmüyor yani ayın günleri var 29 çeken ayı göründe ayın 30 unu ve 31 ini kapatıyo formül yalnız ayların günlerini gösterir çizelgede başka sayfada oradaki gün sayısını aldığında otomatik kapanıp açılmasını sağlamak istiyorum

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Activate
If Not Application.Intersect(Range("AT5"), Range(Target.Address)) Is Nothing Then
Select Case Target.Value
Case Is = "28": Columns("AH:AJ").EntireColumn.Hidden = True
Columns("E:H").EntireColumn.Hidden = False
Case Is = "29": Columns("AH:AH").EntireColumn.Hidden = False
Columns("AV:AX").EntireColumn.Hidden = True
Case Is = "30": Columns("AI:AI").EntireColumn.Hidden = False
Columns("AJ:AJ").EntireColumn.Hidden = True
Case Is = "31": Columns("AJ:AJ").EntireColumn.Hidden = False
Columns("AW:AW").EntireColumn.Hidden = True
End Select
End If
End Sub

 

[PLİNT]

Merhaba
Kodlarınızın çalışması; aşağıdaki şekildede sağlanabilir.

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("AT5").Value < 28 Or Range("AT5").Value > 31 Then Exit Sub
Select Case Range("AT5").Value
Case Is = "28": Columns("AH:AJ").EntireColumn.Hidden = True
Columns("E:H").EntireColumn.Hidden = False
Case Is = "29": Columns("AH:AH").EntireColumn.Hidden = False
Columns("AV:AX").EntireColumn.Hidden = True
Case Is = "30": Columns("AI:AI").EntireColumn.Hidden = False
Columns("AJ:AJ").EntireColumn.Hidden = True
Case Is = "31": Columns("AJ:AJ").EntireColumn.Hidden = False
Columns("AW:AW").EntireColumn.Hidden = True
End Select
End Sub

 

[menderes01]

Merhaba
Kodlarınızın çalışması; aşağıdaki şekildede sağlanabilir.

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("AT5").Value < 28 Or Range("AT5").Value > 31 Then Exit Sub
Select Case Range("AT5").Value
Case Is = "28": Columns("AH:AJ").EntireColumn.Hidden = True
Columns("E:H").EntireColumn.Hidden = False
Case Is = "29": Columns("AH:AH").EntireColumn.Hidden = False
Columns("AV:AX").EntireColumn.Hidden = True
Case Is = "30": Columns("AI:AI").EntireColumn.Hidden = False
Columns("AJ:AJ").EntireColumn.Hidden = True
Case Is = "31": Columns("AJ:AJ").EntireColumn.Hidden = False
Columns("AW:AW").EntireColumn.Hidden = True
End Select
End Sub

cevabınız ve ilginiz için öncelikle teşekkür ederim kodu uyguladım aslında çalışıyor ama ben Sayfa8'den K4 hücresindeki sayıları altırıyorum sayfaya girdiğimde almış görünüyor ama formül işlevini o şekilde olunca yerine getirmiyor.

 

[PLİNT]

Merhaba
Kodları "BuÇalışmaKitabı"(Thisworkbook) kod sayfasına aşağıdaki şekilde yazabilirsiniz.
Formülün bulunduğu sayfanın adını kodlar içinde ayarlarsınız (kodlarda "Sayfa2")

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
'........................................
Set s1 = Sheets("Sayfa2")
'...................................
If s1.Range("AT5").Value < 28 Or s1.Range("AT5").Value > 31 Then Exit Sub
Select Case s1.Range("AT5").Value
Case Is = "28": s1.Columns("AH:AJ").EntireColumn.Hidden = True
s1.Columns("E:H").EntireColumn.Hidden = False
Case Is = "29": s1.Columns("AH:AH").EntireColumn.Hidden = False
s1.Columns("AV:AX").EntireColumn.Hidden = True
Case Is = "30": s1.Columns("AI:AI").EntireColumn.Hidden = False
s1.Columns("AJ:AJ").EntireColumn.Hidden = True
Case Is = "31": s1.Columns("AJ:AJ").EntireColumn.Hidden = False
s1.Columns("AW:AW").EntireColumn.Hidden = True
End Select

End Sub

veya ilgili sayfanın kod sayfasında

Private Sub Worksheet_Activate()

başlığı altına yazarak

 

[menderes01]

Merhaba
Kodları "BuÇalışmaKitabı"(Thisworkbook) kod sayfasına aşağıdaki şekilde yazabilirsiniz.
Formülün bulunduğu sayfanın adını kodlar içinde ayarlarsınız (kodlarda "Sayfa2")

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
'........................................
Set s1 = Sheets("Sayfa2")
'...................................
If s1.Range("AT5").Value < 28 Or s1.Range("AT5").Value > 31 Then Exit Sub
Select Case s1.Range("AT5").Value
Case Is = "28": s1.Columns("AH:AJ").EntireColumn.Hidden = True
s1.Columns("E:H").EntireColumn.Hidden = False
Case Is = "29": s1.Columns("AH:AH").EntireColumn.Hidden = False
s1.Columns("AV:AX").EntireColumn.Hidden = True
Case Is = "30": s1.Columns("AI:AI").EntireColumn.Hidden = False
s1.Columns("AJ:AJ").EntireColumn.Hidden = True
Case Is = "31": s1.Columns("AJ:AJ").EntireColumn.Hidden = False
s1.Columns("AW:AW").EntireColumn.Hidden = True
End Select

End Sub

veya ilgili sayfanın kod sayfasında

Private Sub Worksheet_Activate()

başlığı altına yazarak

işe yaradı çok sagolun