Soru Benzeyen verileri satırları ile Yeni sayfaya taşıma

[idealimsin]

AN sütunundaki bir sayıyı seçtiğimizde solundaki satırında bulunan değer den, diğer satırlarda olan aynı değerdeki veriyide satır olarak alt alta diğer yeni sayfada yer almasını sağlamak istiyorum.yardımlarınızı rica ediyorum mümkünse

 

[erdmkrky]

Selamlar, exceli dosya paylaşım sitesinden de paylaşmanız mümkün mü acaba?

 

[Korhan Ayhan]

10 nolu sayfada turuncu satırların dışındaki satırlar neden bulunuyor?

 

[DoğanD]

Merhaba,

Soruyu anladığım kadarıyla yorumladım, aşağıdaki kodları veri sayfasının kod kısmına yapıştırıp dener misiniz?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim aranan, ara1 As Variant
Dim sh As Worksheet
Dim i, y As Integer
If Target.Column <> 40 Or Target.Value = "" Then Exit Sub
aranan = Sayfa1.Cells(Target.Row, Target.Column)
For Each sh In Worksheets
If sh.Name = aranan Then
MsgBox aranan & " için işlem yapılmış."
Sheets(aranan).Select
GoTo atla
End If
Next
Worksheets.Add
ActiveSheet.Name = aranan
For y = 1 To Sayfa1.Range("AN" & Rows.Count).End(xlUp).Row
If Sayfa1.Cells(y, 40) = aranan Then
ara1 = Sayfa1.Cells(y, 39)
Else: GoTo atla
End If
For i = 1 To Sayfa1.Range("AN" & Rows.Count).End(xlUp).Row
If Sayfa1.Cells(i, 39) = ara1 Then
Sheets(aranan).Cells(i, 39) = Sayfa1.Cells(i, 39)
Sheets(aranan).Cells(i, 40) = Sayfa1.Cells(i, 40)
End If
Next i
atla:
Next y
End Sub

 

[idealimsin]

veri

sorumu ve dosyamı yeniden güncelledim.tam anlaşılamadı diye düşündüm

 

[idealimsin]

Selamlar, exceli dosya paylaşım sitesinden de paylaşmanız mümkün mü acaba?

evet paylaştım şimdi.bir önceki gönderimde "veri" isimli

 

[Korhan Ayhan]

Paylaştığınız son dosyada 2. sayfanın adını 1 yaptım.
Sonra 1 isimli sayfada D1 hücresine aşağıdaki formülü uyguladım. Bu formül size sekme adını verecektir.

=SONRAKİMETİN(HÜCRE("DOSYAADI";D1);"]")

Sonra yine aynı sayfada A1 hücresine aşağıdaki formülü uyguladım. Bu formül kritere uyan tüm verileri dökülmeli olarak listeleyecektir.

=FİLTRE(veri!AM:AN;veri!AN:AN=D1&" ")

Bu düzene göre gerisini siz halledebilirsiniz.

 

[idealimsin]

Paylaştığınız son dosyada 2. sayfanın adını 1 yaptım.
Sonra 1 isimli sayfada D1 hücresine aşağıdaki formülü uyguladım. Bu formül size sekme adını verecektir.

=SONRAKİMETİN(HÜCRE("DOSYAADI";D1);"]")

Sonra yine aynı sayfada A1 hücresine aşağıdaki formülü uyguladım. Bu formül kritere uyan tüm verileri dökülmeli olarak listeleyecektir.

=FİLTRE(veri!AM:AN;veri!AN:AN=D1&" ")

Bu düzene göre gerisini siz halledebilirsiniz.

Cevabınız için çok teşekkür ederim korhan bey. uyguladığınız arayüz çok iyi .ancak istediğim sadece hücre değil. bulduğu hücrenin satırını kopyalanması

 

[Korhan Ayhan]

O zaman A2 hücresine aşağıdaki formülü uygulayıp deneyiniz.

=FİLTRE(veri!A:XFD;veri!AN:AN=D1&" ")

 

[idealimsin]

O zaman A2 hücresine aşağıdaki formülü uygulayıp deneyiniz.

=FİLTRE(veri!A:XFD;veri!AN:AN=D1&" ")

korhan bey mükemmel çalışıyor. elinize sağlık.sadece şöyle bir ayrıntı var.siz örnek olarak 1 numarasını verdiniz. bu 1 sayısı "AM" sütununda nokta aralarında 1 sayısı bulunan hücreleride içermeli taşımada. mümkünmü