seç aktar işlemi

[meda58]

arkadaşlar forumdaki bütün seç aktar makroları denedim fakat bir türlü kendime uyarlayamadım henüz çok yeni ve çok acemiyim örnek dosyamda şeçtigim satırları veya hücreleri buton yardımıyla başka sayfaya alt alta aktarmak istiyorum
lütfen çok çok rica ediyorum yardımlarınızı eksik etmeyin

 

[Korhan Ayhan]

Selamlar,

Size yardımcı olmamız için dosyanızı excel formatında foruma eklemeniz gerekiyor.

 

[meda58]

şeç aktar

buyrun yeni dosya büyük tarife sayfasında tek tek veya toplu olarak seçtiklerimi sayfa 1 e tek dügmeyle alt alta aktarmak ve büyük tarife sayfasında aktardıklarımı silmesini veya reklndirmesini istiyorum ilgi ve alkanıza sonsuz teşekkürler!!!!!!!!!!!!!!!!!!!!!!!!

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub SEÇİMİ_AKTAR()
    Selection.Copy
    Sheets("Sayfa1").Select
    Range("A1048576").End(3).Offset(1).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
End Sub

 

[meda58]

çok teşekkürler ben bunu kaç gündür yapmaya çalışordumm

 

[meda58]

usta sen gerçekten harikasın nasıl teşekkür edeçegimi bilemiyorum çok sağolasın
aktardıklarımızı büyük tarifede sarı dolgu halinde göstememiz mümkünmü

 

[meda58]

usta sen gerçekten harikasın nasıl teşekkür edeçegimi bilemiyorum çok sağolasın
aktardıklarımızı büyük tarifede sarı dolgu halinde göstememiz mümkünmü
birde işimiz bitene kadar aynı sayfada kalabilirmiyiz

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub SEÇİMİ_AKTAR()
    Selection.Copy Sheets("Sayfa1").Range("A1048576").End(3).Offset(1)
    Selection.Interior.ColorIndex = 6
End Sub

 

[meda58]

sen bir tanesin mükemmel çalışıyor teşekkürler