kopyala yapıştır makrosu

[yunka]

selamlar saygılar sorunumu ekli dosyada belirttim çözümlermisiniz

 

[İhsan Tank]

selamlar saygılar sorunumu ekli dosyada belirttim çözümlermisiniz

merhaba
lütfen konunun içinde açıklama eklemeye özen gösteriniz

Sub kopyala_yapıştır()
    Sheets("Sayfa1").Select
    Range("A1:C500").Select
    Selection.Copy
    Range("A1").Select
    Sheets("Sayfa2").Select
    Range("A1").Select
    ActiveSheet.Paste
    Range("A1").Select
    Application.CutCopyMode = False
End Sub

bu kod işini görür

 

[yunka]

sayın tank esasında ben sorumu biraz yanlış sordum ben bu sütünları peş peşe almak istemiyorum şöyleki sayfa 1 deki a sütununu icab ederse sayfa 2 deki c sütununa kopyalamk
istiyorum acaba anlatabildimmi yani sütunlar peşpeşe kopyalanmasın bağımsız olsun siz bana
bir sütunu örnek verin diğerlerini ben ekleyeyim örneğe göre
teşekkürler

 

[İhsan Tank]

sayın tank esasında ben sorumu biraz yanlış sordum ben bu sütünları peş peşe almak istemiyorum şöyleki sayfa 1 deki a sütununu icab ederse sayfa 2 deki c sütununa kopyalamk
istiyorum acaba anlatabildimmi yani sütunlar peşpeşe kopyalanmasın bağımsız olsun siz bana
bir sütunu örnek verin diğerlerini ben ekleyeyim örneğe göre
teşekkürler

merhaba

Sub KopyalaYapıştır()
Sheets("[COLOR="red"]Sayfa1[/COLOR]").Select
Range("[COLOR="Red"]A1:A500[/COLOR]").Select
Selection.Copy
Range("[COLOR="red"]A1[/COLOR]").Select
Sheets("[COLOR="Red"]Sayfa2[/COLOR]").Select
Range("[COLOR="red"]C1[/COLOR]").Select
ActiveSheet.Paste
Range("[COLOR="red"]C1[/COLOR]").Select
Application.CutCopyMode = False
End Sub

bu kodu dener misin
A sütunu Sayfa2'de C sütununa kopyalar
kırmızı yerleri kendinize göre uyarlayınız

 

[yunka]

Sn.Tank ALLAH ın rahmeti üzerine olsun çok teşekkür.

 

[İhsan Tank]

Sn.Tank ALLAH ın rahmeti üzerine olsun çok teşekkür.

Amin Allah Razı Olsun
rica ederim
:yazici: