makro sadeleştirmesi

[orhanx]

selamlar ..bu makro nasıl daha sade yazılabilir..
kolay gelsin ..

Sub save14()

seeall
Sheets("aa").Select
Range("c1:c8").Select
Selection.Copy
Sheets("bb").Select
Range("a1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=True
ActiveCell.Select
Sheets("aa").Select
Range("c1:c8").Select
Selection.Copy
Sheets("14").Select
Range("a1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=True
ActiveCell.Select
clear


End Sub

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:6498bb20cc]Sub save14()
seeall
For b = 1 To Sheets.Count
If Sheets(b).Name = "bb" Or Sheets(b).Name = "14" Then
say = Sheets(b).Cells(65536, 1).End(3).Row + 1
For a = 1 To 8
Sheets(b).Cells(say, a) = Sheets("aa").Cells(a, "c")
Next
End If
Next
Clear
End Sub
[/vb:1:6498bb20cc]

Mevcut kodunuzuda aşağıdaki gibi sadeleştirmek mümkündür.

[vb:1:6498bb20cc]Sub save14()
seeall
Sheets("aa").Range("c1:c8").Copy
Sheets("bb").Select
Range("a1").End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").PasteSpecial , , , True
Sheets("14").Select
Range("a1").End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").PasteSpecial , , , True
Clear
End Sub[/vb:1:6498bb20cc]

 

[orhanx]

çok teşekkür ederim.elinize sağlık..