Hücreye gitme

[muratgunay48]

Arkadaşlar aradım bulamadım. Şimdi Sayfa2' liste var. Sayfa1 de A1 hücresine 1 yazıp enter deyince Sayfa2'deki A1 hücresinindeki rakamı, 2 yazıp enter deyince A2 hücresindeki rakamı, 3 deyince A3 öyle gidecek. Bu nasıl yapılabilir. Yardımcı olabilirseniz sevinirim.
Saygılarımla.

 

[S.Yiğit]

Murat bey merhaba,

En basiti düşeyara ile alabilirsiniz veya indis kaçıncı ile..

 

[muratgunay48]

Murat bey merhaba,

En basiti düşeyara ile alabilirsiniz veya indis kaçıncı ile..

Hocam ben pek DÜŞEYARA bilmiyorum ama. Örnek dosya gönderiyorum. Size zahmet bakabilir miiniz.

 

[alicimri]

Sayfa1 de herhangi bir hücreye aşağıdaki formülü yapıştırın, A1 hücresindeki değeri değiştirerek deneyin
=DOLAYLI("Sayfa2!A" & A1)

 

[muratgunay48]

Sayfa1 de herhangi bir hücreye aşağıdaki formülü yapıştırın, A1 hücresindeki değeri değiştirerek deneyin
=DOLAYLI("Sayfa2!A" & A1)

Teşekkür ederim.

 

[muratgunay48]

@Korhan Ayhan hocam, bi yol gösterebilir misiniz acaba.
Teşekkür ederim.

 

[Korhan Ayhan]

Ne konuda?

 

[muratgunay48]

Ne konuda?

Hocam, eklediğim dosyada ayın gününü yazıp enter yapınca o günün rakamı gemı gelmesi mümkün mü.

 

[Korhan Ayhan]

Ayın gününü nereye yazıyorsunuz?

Enter yapınca bu bilgi nereye gelecek?

 

[muratgunay48]

Ayın gününü nereye yazıyorsunuz?

Enter yapınca bu bilgi nereye gelecek?

Hocam, sayfa 2'de B sütununda rakamlar var. Bunlar ayın günleri ile artmış. Sayfa 1'de B3'e 1 yazınca Sayfa 2 B1 gelecek.
Artarak gidecek.
Mümkün mü.

 

[Korhan Ayhan]

"Sayfa 2 B1 gelecek. "

Bu bilgi nereye gelecek?

 

[YUSUF44]

Anladığım kadarıyla Sayfa1'in B4 hücresine aşağıdaki formülü yazarsanız B3 hücresindeki günün karşılığı B4 hücresine gelir:

=İNDİS(Sayfa2!$B$1:$B$30;B3)

Sayın Korhan Ayhan'ın sorduğu konuyu bu cevabımla anlamışsınızdır; "yani formül nereye yazılacak".

 

[muratgunay48]

"Sayfa 2 B1 gelecek. "

Bu bilgi nereye gelecek?

Sayfa 1 B3'e. Ancak ben 1 enter yaparsam.
Şöyleki
Sayfa 1 B3'e 1 yazıp ENTER yaparsam, Sayfa 2 "B1" gelecek.
Sayfa 1 B3'e 2 yazıp ENTER yaparsam, Sayfa 2 "B2" gelecek.
Sayfa 1 B3'e 3 yazıp ENTER yaparsam, Sayfa 2 "B3" gelecek.
Sayfa 1 B3'e 4 yazıp ENTER yaparsam, Sayfa 2 "B4" gelecek.
.
.
.
.
Yani o günün sonucunu, faiz eklenmiş rakamını getirecek.
Saygılarımla.

 

[YUSUF44]

Eğer B3'e veri girip yine aynı B3 hücresinde sonucun görünmesini istiyorsanız makro kullanılması gerekir. Çok gerekli değilse bu yöntemi önermem. bunun yerine B3' veri girip başka bir hücrede verdiğim formülü kullanarak sonuç almanız daha iyi olur. Çünkü aynı hücrede işlem yapan kodlar tecrübeli değilseniz genellikle sorun çıkarırlar. İlla aynı hücrede görünsün istiyorsanız aşağıdaki kodları Sayfa1'in kod bölümüne (sayfa adına sağ tıklayıp kod görüntüle deyince açılan sayfaya) yapıştırıp deneme yapabilirsiniz. Dosyanızı kaydederken makro içerebilen excel dosyası olarak kaydetmelisiniz:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B3]) Is Nothing Then Exit Sub
Application.EnableEvents = False
    If Target <> "" Then
        son = Sheets("Sayfa2").Cells(Rows.Count, "B").End(3).Row
        If WorksheetFunction.CountIf(Sheets("Sayfa2").Range("A1:A" & son), Target) = 0 Then
            MsgBox Target & " günü Sayfa2'de bulunamadı!", vbInformation
            Target.ClearContents
            Target.Select
        Else
            Target = WorksheetFunction.VLookup(Target, Sheets("Sayfa2").Range("A1:B" & son), 2, 0)
        End If
    End If
Application.EnableEvents = True
End Sub

 

[muratgunay48]

Eğer B3'e veri girip yine aynı B3 hücresinde sonucun görünmesini istiyorsanız makro kullanılması gerekir. Çok gerekli değilse bu yöntemi önermem. bunun yerine B3' veri girip başka bir hücrede verdiğim formülü kullanarak sonuç almanız daha iyi olur. Çünkü aynı hücrede işlem yapan kodlar tecrübeli değilseniz genellikle sorun çıkarırlar. İlla aynı hücrede görünsün istiyorsanız aşağıdaki kodları Sayfa1'in kod bölümüne (sayfa adına sağ tıklayıp kod görüntüle deyince açılan sayfaya) yapıştırıp deneme yapabilirsiniz. Dosyanızı kaydederken makro içerebilen excel dosyası olarak kaydetmelisiniz:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B3]) Is Nothing Then Exit Sub
Application.EnableEvents = False
    If Target <> "" Then
        son = Sheets("Sayfa2").Cells(Rows.Count, "B").End(3).Row
        If WorksheetFunction.CountIf(Sheets("Sayfa2").Range("A1:A" & son), Target) = 0 Then
            MsgBox Target & " günü Sayfa2'de bulunamadı!", vbInformation
            Target.ClearContents
            Target.Select
        Else
            Target = WorksheetFunction.VLookup(Target, Sheets("Sayfa2").Range("A1:B" & son), 2, 0)
        End If
    End If
Application.EnableEvents = True
End Sub

İşte aradığım buydu. Çok teşekkür ederim. Elinize emeğinize sağlık.
Saygılarımla.

 

[Korhan Ayhan]

Soru sormakta bir zanaattir.

Ağzınızdan dirhemle bilgi alıyoruz.

Şöyle sorsanız nasıl olurdu acaba...

"Dosyamda iki sayfa var. B3 hücresine 1 yazıp onayladığımda aynı hücreye diğer sayfadaki 1 değerini bulup kaşılığındaki B sütunundaki değeri getirsin istiyorum."

 

[muratgunay48]

Soru sormakta bir zanaattir.

Ağzınızdan dirhemle bilgi alıyoruz.

Şöyle sorsanız nasıl olurdu acaba...

"Dosyamda iki sayfa var. B3 hücresine 1 yazıp onayladığımda aynı hücreye diğer sayfadaki 1 değerini bulup kaşılığındaki B sütunundaki değeri getirsin istiyorum."

Kusura bakmayın hocam. Bilgisizliğimize verin. Bazen kelimeler takılıp kalıyor.