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
*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, 05:34:5
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, LookIn:=xlFor
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
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("H
