Soru Veri Kopyalama

[Diphda]

Merhaba,
İki dosya arasında birinden diğerine veri kopyalıyorum.
Eğer örnek aşağıdaki gibi olursa işim kolay, kolayca kopyalayabiliyorum;

No

Deneme 1

Deneme 2

Deneme 3

Deneme 4

Deneme 5

Deneme 6

Deneme 7

Deneme 8

Deneme 9

Deneme 10

Deneme 11

Deneme 12

Deneme 13

A1

1,01

3,11

*

1,02

*

*

0,52

*

*

*

1,82

Burda veriyi çekmek istediğim dosyada hücreye A1 yazdığımda. Deneme yazan başlıkları ve altındaki satırları kopyalabiliyorum. Arama Kriterim A1
Fakat işin içine Aşağıdaki gibi bir veri girdiğinde işin içnden çıkamadım;

No

Deneme 1

Deneme 2

Deneme 3

Deneme 4

Deneme 5

Deneme 6

Deneme 7

Deneme 8

Deneme 9

Deneme 10

Deneme 11

Deneme 12

Deneme 13

A1

1,01

3,11

*

1,02

*

*

0,52

*

*

*

1,82

B2

0,88

*

1,19

*

1,18

*

*

0,61

0,87

1,19

*

0,43

1,13

C3

1,49

0,03

0,04

*

0,63

0,81

2,49

*

*

*

0,06

*

*

D4

1,70

*

0.87

*

1,01

*

*

1,75

2,01

*

*

0,17

2,12

burada yapmak istediğim; No Yazan Başlıkları ve C3'de dahil olmak üzere o satırları alt alta gelecek şekilde kopyalamak. Acaba bunun için önerilebilecek bir yol var mı ? Başlıklar (Deneme) yazan kısımlar değişkendir farklı yazılar yazmaktadır.
C3'e göre veriyi çekiyorum. No kısmı altındaki sütunlar benzersizdir.

 

[Muzaffer Ali]

Merhaba.

Örnek bir dosya hazırlayın.
Dosyaya bir sayfa daha ekleyip, olmasını istediğiniz şekilde tablonuzu hazırlayın "Böyle Olmasını İstiyorum" deyin.
Bu şekilde daha hızlı cevap alabilirsiniz.

 

[Diphda]

Merhaba,
Gözden geçirmeden direk olarak konuyu göndermişim şimdi fark ettim.
Dosya aşağıdadır.

Dosyayı İndir

 

[Muzaffer Ali]

1-C3 nereye yazarsanız kopyalanacak?
2-Listede C3 satırı birden fazla olabiliyor mu?
3-Kopyalanan veriler nereye yapıştırılacak?

 

[Diphda]

@Muzaffer Ali Bey Bunu şöyle de yapabilir miyiz. Benim bilgim yeterli olmadığı için size fikir olması bakımından söylemek istiyorum; Sarı işaretli kısımlardan ilgili veriyi bul, Sarı işaretli alanların üzerinde No kısmına kadar gel, No kısmıyla birlikte yataydaki verileri(Yeşil işaretli) kopyala, Altına sarı işaretli istenilen No ya ait yataydaki verileri kopyala gibi bişey yapılabilir mi bilmiyorum.

 

[Diphda]

Veriler başka bir dosyaya aktarılacak. Tek satırlı olduğunda ben yapabiliyorum ama birden fazla No geldiğinde(Sarı alanlar) aynı başlık altına o zaman işler karışıyor.
C3 satırı birden fazla olabiliyor ama Sarı alanlar "benzersizdir".
Örnek olarak başka bir excel dosyasının A1 hücresini baz alabilirsiniz. hiç önemli değil.

 

[Muzaffer Ali]

Dosyaya yeni bir sayfa ekleyin, yeni sayfanın kod kısmına aşağıdaki kodları kopyalayın.
Yeni sayfanın A1 hücresine no yazınca kodlar otomatik çalışacaktır.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Bak As Integer
    Dim Kaydet As String
    If Not Intersect(Range("A1"), Target) Is Nothing And Not Target = "" Then
        Application.EnableEvents = False
        With Worksheets("Sayfa1")
            For Bak = 2 To .Cells(Rows.Count, "A").End(xlUp).Row
                If .Cells(Bak, "A") = Target Then
                    Kaydet = Kaydet & ", " & Bak & ":" & Bak
                End If
            Next
            Kaydet = "1:1 " & Kaydet
            Cells.Clear
            .Range(Kaydet).Copy
            Range("A1").PasteSpecial
        End With
        Application.EnableEvents = True
    End If
End Sub