Sayfaya Veri Aktarma

[SİBEL70]

Merhabalar,

Ekteki dosyada sayfa1de mevcut tabloda sarı ile işaretlenmiş sütunları. Sayfa2 de ki tabloya aynı sutunlara denk gelecek şekilde aktamak istiyorum. Veri aktarımı ile ilgili araştırdım ancak bulduğum çalışmaları kendime göre uyarlayamadım. Yardımcı olabilirseniz sevinirim.

Saygılar,

 

[Orion1]

Dosyanızı 2003 formöatında eklerseniz daha hızlı yanıt alabilirsiniz.

 

[SİBEL70]

Sayfaya Veri Aktarma

Evren bey merhabalar,

2003 formatı diye yollamıştım ama demekki karıştırdım dosyaları. Tekrar yolluyorum.

Saygılar,

 

[Orion1]

Evren bey merhabalar,

2003 formatı diye yollamıştım ama demekki karıştırdım dosyaları. Tekrar yolluyorum.

Saygılar,

Dosyanız ektedir.

Sub sayfa2_ye_Aktar_59()
Dim sat As Long
Application.ScreenUpdating = False
Sheets("Sayfa2").Select
sat = Sheets("Sayfa1").Cells(65536, "B").End(xlUp).Row
If sat < 7 Then Exit Sub
Range("B22:E65536,G22:H65536").Clear
Sheets("Sayfa1").Range("B7:E" & sat).Copy Range("B22")
Sheets("Sayfa1").Range("G7:H" & sat).Copy Range("G22")
Application.ScreenUpdating = True
MsgBox "İşlem tamamdır." & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[cihangir can]

Evren bey merhabalar,

2003 formatı diye yollamıştım ama demekki karıştırdım dosyaları. Tekrar yolluyorum.

Saygılar,

dosyanız ektedir..

 

[SİBEL70]

Evren Bey, Cihangir Bey,

Vermiş olduğunuz örnekler için ayrı ayrı teşekkür ediyorum. Elleriniz dert görmesin. İyi bir akşam temenni ederim .

Saygılar