sayfalar arası geçiş

[osiso]

ekte gönderdiğim excel tablosunda sayfa 1 de hangi ismin karşısında x varsa
sayfa2 deki a1 sütunundan itibaren x in karşısındaki ismi yazdıracak formülü istiyorum her türlü cevap kabulumdür...


not (x sabit bir simgedir onun yerine başka bir şey de kullanılabilir ama tek sabit var)

 

[Korhan Ayhan]

Selamlar,

Örnek dosyanızda Sayfa1 in kod bölümüne aşağıdaki kodu uygulayıp deneyiniz. Sayfa1 de B sütununa veri girdikçe kod otomatik olarak çalışacaktır. Hücrelere büyük yada küçük harfle "X" girebilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 2 Then Exit Sub
    Set S2 = Sheets("Sayfa2")
    S2.Columns(1) = ""
    Sat&#305;r = 1
    For X = 1 To [A65536].End(3).Row
    If Ucase(Cells(X, 2)) = "X" Then
    S2.Range("A" & Sat&#305;r) = Cells(X, 1)
    Sat&#305;r = Sat&#305;r + 1
    End If: Next
End Sub

Yada bu işlemi bir buton ile yapmak isterseniz aşağıdaki kodu kullanabilirsiniz.

Sub AKTAR()
    Set S2 = Sheets("Sayfa2")
    S2.Columns(1) = ""
    Satır = 1
    For X = 1 To [A65536].End(3).Row
    If Ucase(Cells(X, 2)) = "X" Then
    S2.Range("A" & Satır) = Cells(X, 1)
    Satır = Satır + 1
    End If: Next
End Sub

 

[Ali]

Sn COST_CONTROL makrosunu yazmış formülüde şu şekildedir.
Sayfa2'deki A1 hücrenize

=EĞER(SATIRSAY(Sayfa1!$A$1:A1)<=EĞERSAY(Sayfa1!$B$1:$B$30;"x");İNDİS(Sayfa1!$A$1:$A$30;KÜÇÜK(EĞER(Sayfa1!$B$1:$B$30="x";SATIR(Sayfa1!$B$1:$B$30)-SATIR(Sayfa1!$B$1)+1);SATIRSAY($A$1:A1)));"")

yazıp direk entere basmadan CTRL+SHIFT+ENTER tuşlarına basarak

{=EĞER(SATIRSAY(Sayfa1!$A$1:A1)<=EĞERSAY(Sayfa1!$B$1:$B$30;"x");İNDİS(Sayfa1!$A$1:$A$30;KÜÇÜK(EĞER(Sayfa1!$B$1:$B$30="x";SATIR(Sayfa1!$B$1:$B$30)-SATIR(Sayfa1!$B$1)+1);SATIRSAY($A$1:A1)));"")} şeklinde dizi formülü oluşturun ve aşağı doğru sürükleyin.

Siz 30 olan satır sayısını kendinize göre ayarlarsınız x yerinede başka sabitte yazabilirim demişsiniz siz daha sonra belirleyeceğiniz sabiti yazarsanız.

 

[osiso]

Teşekkürler

Yardımlarınız için çok teşekkür ederim gerçekten zahmet olmuş başarılarınızın devamını dilerim sizleri çok kıskanıyorum hemde çok neden benden daha iyi biliyorsunuz bunu.... çıldıracağım yaaaaaa



insanların başarısını gerçekten çok kıskanıyorum hemde çooook....