Listeleme

[ilhanhmc]

Merhaba arkadaşlar. Excell'de listeleme yapmaya çalıştım ama işin içinden çıkamadım. Mesela sayfa1 deki B7 hücresi ile M7 arasına "B" harfi yazıldıysa eğer sayfa2'deki B7 hücresine Sayfa1 deki "B" yazılan hücrenin bir üstündeki hücrenin içeriğini yazdırmak istiyorum. Acaba bunu nasıl yapabilirim bilen warmı? Teşekkürler.

Örnek dosya ekte.

 

[Orion1]

Ekli dosyayı inceleyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo son
If Intersect(Target, [B7:M7]) Is Nothing Then Exit Sub
If Target.Value = "B" Or Target.Value = "b" Then
    Sheets("Sayfa2").Range("B7").Value = Target.Offset(-1, 0).Value
End If
son:
End Sub

 

[Ali]

Sayfa2'deki B7 hücresine

=ARA(B6;Sayfa1!B7:M7;Sayfa1!B6:M6)

yazınız.

 

[ilhanhmc]

Yardımlarınız için teşekkürler arkadaşlar.

 

[ilhanhmc]

Bir hücrenin formulunu bulsam gerisini getiririm die düşünüyordum ama hücre sayısı çoğalınca gene işin içinden cıkamadım Eğer dosyayı ekteki gibi yaptığımızda acaba bu işi nasıl çözebiliriz? Şimdiden teşekkürler.

dosya ekte:

 

[Ali]

İki tane tablo eklemişsiniz ama ne istediğinizi yazmamışsınız. Siz bunu belirtmeden biz nasıl anlayabiliriz.

 

[ilhanhmc]

pardon yazmayı unutmuşum. mesela sayfa1 de b7 ile m7 arasına sayfa2 deki b6 ile m6 arasındaki hüçrelerin değerlerinden biri girilecek mesela sayfa1de E7ye C girildi diyelim, sayfa2 de d7 yediye yani c sutununa sayfa1deki E6nın değerini yazacak. bu işlem aşağı doğru devamedecek b8 ile m8 arasını kontrol edecek, b9 ile m9 arası... kısacası her satırı kontrol edecek b ile m sutunları arasını. Eğer sayfa2deki b6 ile m6 değerlerinden birine eşitse. onu eşit olanın altına yazacak.

ilk soruda bunu sadece B için yapmıştık ama burda A,B,C,D,E,F,G,H,I,J,K,L için hepsini bir arada yapmak istiyorum.

eğer bir örnek daha verecek olursak, sayfa1'e D27 hücresine K girilmiş ise sayfa2'deki L27 hücresine sayfa1'deki D6'nın değeri yani "3" yazdırılması gerekiyor. Bunu nasıl yapabilirim açaba işin içinden çıkamadımda

 

[Ali]

Sayfa2'deki B7 hücrenize

=EĞER(Sayfa1!B7="";"";Sayfa1!B$6)

yazıp sağa ve aşağı doğru kopyalayarak tablonuzu doldurun.

 

[ilhanhmc]

Sanırım yalnış anlaşılma olmuş. Bu verdiğiniz formulu kullandığımda örneğin sayfa1de L7 hücresine A girdiğimde sayfa2de B7ye yazması gerekirken 11'i L7ye yazıyor. :s bu sorunu nasıl giderebiliriz acaba?

 

[ilhanhmc]

örnek olarak sayfa 1'e resim1deki gibi değer gircem ve sayfa2de ki çıktırı resim2 deki gibi olmasını istiyorum. Acaba bunu nasıl yapabilirim? :S

resim1:

resim2:

 

[Ali]

Sayfa2'deki B7 hücrenize;

=EĞER(EHATALIYSA(KAÇINCI(B$6;Sayfa1!$B7:$M7;0));"";KAÇINCI(B$6;Sayfa1!$B7:$M7;0))

yazıp sağa (M7 hücresine kadar) ve aşağı çekerek (M47 hücresine kadar) tüm tablonuzu doldurun.