Makro ile Tablo Oluşturmak

[ahmzlm]

Merhaba,

BR27:BX27 aralığındaki veriler, BQ27'deki isme göre değişen verilerdir.

Yapmak istediğim bir butona bastığımda;

BQ27 hücresi listedeki ilk ismi(ahmet) alsın ve yanındaki BR27:BX27 aralığını BR31:BX31'e(yani ahmet'in yanına) yapıştırsın, sonrasında;

BQ27 hücresi listedeki ikinci ismi(ahmet1) alsın ve yanındaki BR27:BX27 aralığını BR32:BX32'e(yani ahmet1'in yanına) yapıştırsın, sonrasında;

.... 50. satıra kadar bu şekilde bu döngü ile doldursun.

Şimdiden teşekkürler.

 

[ahmzlm]

Yardımcı olabilecek biri var mıdır?

 

[veyselemre]

Sub verileriGetir()
    If ActiveSheet.Name <> "Sayfa1" Then Exit Sub
    Set sv = Sheets("data")
    son = sv.Cells(Rows.Count, 2).End(3).Row
    veri = sv.Range("a2:H" & son).Value
    With CreateObject("Scripting.Dictionary")
        For i = 1 To son - 1
            .Item(veri(i, 1)) = i
        Next
        son = Cells(Rows.Count, "BQ").End(3).Row
        Range("BR31:BX" & son).ClearContents
        For i = 31 To son
            Key = Cells(i, "BQ").Value
            If .exists(Key) Then
                Cells(i, "BQ").Resize(, 8).Value = Application.Index(veri, .Item(Key), 0)
            End If
        Next
    End With
End Sub

 

[ahmzlm]

Veysel Bey cevabınız için teşekkürler.

Fakat datam çok daha büyük, örnek olması açısından sade verdim.

Aslında makrodan direk yapmasını istediğim şu;

BQ27'ye listedeki 1. ismi yazacak(BQ27'deki isim değiştikçe BR27:BX27 aralığındaki verilerde datadan otomatik gelecek), sonrasında BR27:BX27 satırını alıp listede 1. ismin yanına yapıştıracak,
sonrasında
BQ27'ye listedeki 2. ismi yazacak, sonrasında BR27:BX27 satırını alıp listede 2. ismin yanına yapıştıracak,
sonrasında
BQ27'ye listedeki 3. ismi yazacak, sonrasında BR27:BX27 satırını alıp listede 3. ismin yanına yapıştıracak,
.....

bu şekilde liste bitene kadar tabloyu dolduracak.

Umarım anlatabilmişimdir.