Makro kaydet ile oluşan kodu kısaltmak

[acar6783]

Sub Makro1()
'
' Makro1 Makro
'

'
Sheets("Sayfa2").Select
Columns("C:K").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sayfa1").Select
Columns("A:A").Select

ActiveSheet.Paste

End Sub


şeklinde bir kod kaydettim fakat bu kodda kısaltmalar yapmak istiyorum
bir de
Hedef hücrelerin içeriği değişsin mi şeklide uyarı geliyor bunun da ben evet demişim gibi gelmemsini istiyorum yardımcı olabilirmsiniz..
saygılarımla

 

[Korhan Ayhan]

Aşağıdaki gibi deneyiniz.

Sub Makro1()
    Application.DisplayAlerts = False
    Sheets("Sayfa2").Columns("C:K").Copy Sheets("Sayfa1").Columns("A:A")
End Sub

 

[acar6783]

Yardımınız için çok teşekkürler.


Sub Makro1()
Application.DisplayAlerts = False
Sheets("Sayfa2").Columns("C:c").Copy Sheets("Sayfa1").Columns("A:A")
Sheets("Sayfa2").Columns("k:k").Copy Sheets("Sayfa1").Columns("b:b")
End Sub


bu şekilde yapmak zorunda kaldım c-k arasındaki veriler gizli idi ve ben bu verileri almak istemiyordum. sadece c ve k sütüunundaki verileri almak istiyorudum
farklı bir şey yazılabilirmi ?

 

[acar6783]

Kolay gelsin hocam
Sub Makro1()
'
' Makro1 Makro
'
Application.DisplayAlerts = False
Sheets("Sayfa2").Columns("C:c").Copy Sheets("Sayfa1").Columns("A:A")
Sheets("Sayfa2").Columns("k:k").Copy Sheets("Sayfa1").Columns("b:b")
'
Windows("kasa extre yeni.xlsx").Activate
Columns("G:G").Select
Selection.AutoFilter
ActiveSheet.Range("$G$1:$G$678").AutoFilter Field:=1, Criteria1:="=pos*", _
Operator:=xlAnd
Range("G:G,L:L,O:O").Select
Range("O1").Activate
Selection.Copy
Windows("Kitap1.xlsm").Activate
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

bu şekilde bir kod kaydettim tekrar faka tkısalatamıyorum yardımcı olabilirmsiniz