Soru Bir sayfadaki verileri diğer sayfaya alma

[tukayf]

Cümleten hayırlı akşamlar. Ekteki dosyada Sayfa1 de yer alan ve karşılarında X bulunan değerlerin Sayfa2 deki örnekte açıklandığı gibi yapılması mümkün müdür? Öncelik fonksiyon olmazsa ktf ve makro da olabilir. Başlık daha anlaşılır bir başlıkla değiştirilebilir. Şimdiden yardımlar için teşekkürler

 

[turist]

Makro çözüm ile dosyanız eklidir, inceleyiniz.

 

[tukayf]

Sn. turist çok teşekkürler. Allah razı olsun.

 

[turist]

Sağ olun, iyi çalışmalar.

 

[Ömer BARAN]

Merhaba.
Ben de formül ile alternatif çözüm önerisinde bulunayım dedim.

Sayfa1 ve Sayfa2'deki SİCİL numaraları listesi;
-- birbirinin aynısi ise, birinci formülü,
-- diziliş farklı olabilecekse ikinci formülü,
Sayfa1 G2 hücresine uygulayıp sağa ve aşağı doğru kopyalayın.

=EĞER(ESAYIYSA(BUL(G$1;Sayfa2!$D2));"X";"")
=EĞER(ESAYIYSA(BUL(G$1;KAYDIR(Sayfa2!$D$1;KAÇINCI($B2;Sayfa2!$A:$A;0)-1;0)));"X";"")

 

[tukayf]

Sn. Ömer BARAN çok teşekkürler. Allah razı olsun.
Zaten öncelikli olarak formülle çözüm sormuştum. Çok makbule geçti.

 

[Ömer BARAN]

Sayın turist'in çözümü tam tersi yönde çalıştığını gördüm.

Ben olayı, Sayga2 D sütununda, aralarında - işareti olan verilere göre Sayfa1'deki X'lerin yazılması olarak anlamışım.

İsteğinizi yanlış anlamış olabilirim.
.

 

[tukayf]

Merhabalar Sn. turist çözüm için teşekkürler. Yeni inceleme imkanı buldum. Benden kaynaklanan bir hata var. Sayfa2 de siciller sayfa1'deki gibi sıralı değil karışık şekilde. Sayfa2'de siciller sabit kalacak karşılarına sayfa1'deki branşları yazılacak şekilde düzeltebilir miyiz mümkünse.
Sn. Ömer BARAN tespitinizde haklısınız. Sizin çözümünüz Sayfa2'den Sayfa1 e çekiyor verileri ben sayfa1'den sayfa2'ye çekmesini istiyorum.

 

[Ömer BARAN]

Aşağıdaki kodu kullanabilirsiniz.

Sub BRANS()
Set s1 = Sheets("Sayfa1"): Set s2 = Sheets("Sayfa2")
s2son = s2.Cells(Rows.Count, "A").End(3).Row
s2.Range("D2:D" & Rows.Count).ClearContents
For sat = 2 To s2son
    Set bul = s1.[B:B].Find(s2.Cells(sat, "A"))
    If Not bul Is Nothing Then
        For sut = 7 To 33
            If UCase(s1.Cells(bul.Row, sut)) = "X" Then _
                br = br & "-" & s1.Cells(1, sut)
        Next
    Else: eksik = eksik + 1
    End If: s2.Cells(sat, "D") = Mid(br, 2, Len(br)): br = ""
Next: s2.Columns("D:D").AutoFit
If eksik > 0 Then msj = eksik & " kişiye ait veri yok!" & vbLf
MsgBox msj & "İşlem tamamlandı.", vbInformation, "..:: Ömer BARAN ::.."
End Sub

 

[tukayf]

Çok teşekkürler hocam zihninize sağlık.

 

[Ömer BARAN]

Fark ettiniz mi bilmem; verdiğim kod, Sayfa2'de olup, sayfa1'de olmayan numaralar için de sayım yaparak bunların adetini de bildiriyor.

 

[tukayf]

Malesef fark edemedim. İnceledim halen farkında değilim.
Düzeltme: Şu an mesaj açıldı verdi uyarıyı. Çok teşekkürler hocam.

 

[Ömer BARAN]

Sayfa1'deki listeden birkaç sicili silerek ya da Sayfa2'ye, Sayfa1'de olmayan siciller ekleyip denerseniz görebilirsiniz.