*To Basole,*
I have tested Your Improved code and them working fine. I escape by the
action of modifying the code every time before I wanted to apply on
different values.
Thank You Basole for Your Time.
Iou saved-me of a lot of extra-work.
All best wishes!
vineri, 15 noiembrie 2013,
ok Cristian, not at all.
tks,
Basole.
Em quarta-feira, 13 de novembro de 2013 04h14min03s UTC-2, cristian
paduraru escreveu:
Hello to You all,
I encountered following issue:
I want to copy multiple ranges and paste to it in the specific ranges. I
will send you down the vba code:
Hello Basole,
I have tested your code, well is work fine for 3 values but the problem is
that I need copy from 5 to 5 rows a large amount of cells value (eg: 400-
600 values ordered in columns).
I found a code and I had make few emprovements (the code is valable for 72
values as a test). Down I
Dear Cristian,I do not know if this is exactly what I did, I did some
change on your code then try this:
Sub Rutina_5_zile()
Application.ScreenUpdating = False
Dim x As Long
UsedRow = Worksheets(1).Cells.Find(What:=*, SearchOrder:=xlRows,
SearchDirection:=xlPrevious,
Try this:
Sub seldate()
Range(F10).Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = 1/1/2011
Range(F11).Select
ActiveCell.FormulaR1C1 = =R[-1]C+1
Range(F11).Select
Selection.Copy
Range(F12:F41).Select
ActiveSheet.Paste
Range(G12).Select
Selection.Copy
Range(H12).Select