Giriş sayfasındaki satırları data sayfasına ilgili satıra kopyalatmak

[bilalakdeniz]

A21 hücresinden itibaren başlayarak a sutunda yazan ramama göre
değeri bulunan satırları data sayfasındaki satıra kopyalamasını istiyorum,

 

[excel03]

merhaba;

Sub düzenle()
Dim alan1 As Range
Set alan1 = Sheets("GİRİŞ").Range("A21:A53")
For i = 1 To alan1.Cells.Count
t = alan1.Cells(i).Value
Range(alan1.Cells(i).Offset(0, 1), alan1.Cells(i).Offset(0, 28)).Copy

Sheets("DATA").Select
Sheets("DATA").Range("B" & t).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("GİRİŞ").Select
Next

End Sub

 

[sbayyigit]

bu kodlar işini görür sanırım

Sub aktar()
Set s1 = Sheets("GİRİŞ")
Set s2 = Sheets("DATA")
a = s1.Cells(20, 256).End(1).Column
sat2 = 2
For sat1 = 21 To s1.[a65536].End(3).Row
For sut = 1 To s1.Cells(20, 256).End(1).Column
s2.Cells(sat2, sut).Value = s1.Cells(sat1, sut).Value


Next sut
sat2 = sat2 + 1
Next sat1
End Sub

 

[bilalakdeniz]

Merhaba arkadaşlar, yardımınız için tşk ederim, Ben giriş sayfasının A sutununa yazdığım sayıya göre DATA sayfasındaki ilgile satırlara kopyalamasını istiyorum. teşekkürler

 

[sbayyigit]

Merhaba arkadaşlar, yardımınız için tşk ederim, Ben giriş sayfasının A sutununa yazdığım sayıya göre DATA sayfasındaki ilgile satırlara kopyalamasını istiyorum. teşekkürler

yani gönderdiğim kodlar işinizi görmedi mi? işe yaramadı ise sorun nerede. giriş sayfasındaki a sütünuna yazdığım sayıya göre derken "a21" hücresinde 10 yazıyor bu 10 sayısı data sayfasının "a2" hücresine mi "a10" hücresinemi yazılacak?

 

[bilalakdeniz]

Sayın sbayyigit, giriş sayfasında A sutunundaki numaralara göre DATA sayfasına kopyalamak istiyorum. yani DATA sayfasının A10 uncu sutununa kopyalamasını istiyorum.

 

[sbayyigit]

Sayın sbayyigit, giriş sayfasında A sutunundaki numaralara göre DATA sayfasına kopyalamak istiyorum. yani DATA sayfasının A10 uncu sutununa kopyalamasını istiyorum.

sanırım bu şekilde istiyorsun

 

[bilalakdeniz]

Çok Teşekkür ederim. Elinize sağlık, Tam istediğim gibi olmuş. Saolun