one more question: what to change in this part of macro so when I want to paste two ranges so they stand beside each other and not beneath each other.
With Worksheets("Sheet1")
With .Range("A" & .Rows.Count).End(xlUp).Offset(1, 0)
.PasteSpecial xlPasteValues
As it is now this macro after multiply selection in listbox copy rows from sheet (VJ) and paste dem on sheet1. I Want to copy ranges instead of rows. Please some help.
Private Sub CommandButton1_Click()
Dim mpRow As Long
Dim i As Long
With Me.ListBox1
For i = 0 To...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.