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
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