BAŞKA BİR SAYFAYI AÇTIRABİLMEK

[cihangirkara]

BAÞKA BÝR SAYFAYI AÇTIRABÝLMEK

İYİ GÜNLER ARKADAÞLAR BİR EXCEL HÜCRESİNE Ã?YLE BİR KOMUT YAZMALIYIMKİ DİYELİMKİ BU SAYFANIN A1 HÜCRESİNE 1 YAZDIÐIMDA İSTEDİÐİM DİÐER BİR SAYFAYI AÇMALI Ã?YLE BİR KOMUT VARMI TEÞEKKÜRLER

 

[TRABLUS]

Ekle > köprü > Bu belgede yerleştir > ondan sonra sağ tarafda hangi sayfa ile bağlantı kurmak istiyorsanız işaretleyin ve tamam deyin..

 

[TRABLUS]

A1 HÜCRESİNE 1 YAZDIÐIMDA

Ã?zür dilerim, ben bu kısmı atlamışım ama çeşit olması bakımından cevabım dursun diye silmedim.

 

[cihangirkara]

SORMAK İSTEDİÐİM ÞU Ã?YLE BİR FORMÜL OLMALIKİ A1 HÜCRESİNE 1 YAZDIÐIMDA SAYFA 2 EKRANA GELSİN YANİ SAYFA2 Yİ MAUS YERİNE FORMÜLLE AÇMAK İSTİYORUM

 

[Ali]

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$A$1" And Target.Value = 1 Then
Sheets("Sayfa2").Select
End If
End Sub

 

[cihangirkara]

ÇOK TEÞEKKÜRLER AMA BUNU MAKROSUZ BİR FORMÜLLE YAPMAMIZ MÜMKÜNMÜ İLERDE BAÞKA BİR PROBLEM OLURSA KENDİM YAPABİLEYİM DİYE ÇÜNKİ MAKROYU BİLMİYORUM

 

[cihangirkara]

BİRDE BU MAKRODA A1 1 YAZILIP ENTER BASILINCA ÇALIÞIYOR BEN A1 1 OLURSA AÇILMASINI İSTİYORUM YANİ BEN A1 E BİR FORMÜL YAZDIM +EÐER(C1<15000;1;0) YANİ A1 BENDEN BAÐIMSIZ OLARAK 1 OLACAK A1 E 1 YAZIP ENTERE BASINCA OLMASIN

 

[Ali]

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Select Case Range("C1").Value
Case Is < 15000
Range("A1").Value = 1
Sheets("Sayfa2").Select
Case Is > 15000
Range("A1").Value = 0
End Select
End Sub

 

[cihangirkara]

teşekkürler