excel

it’d be something like follows: Sub MyMacro() With Selection Sheets.Add.name = .Cells(1, 1) .Offset(1).Resize(.Rows.Count – 1).Copy Sheets(.Cells(1, 1).value).Range(“A1”) End With End Sub feel free to add all necessary checks for assure error handling (e.g.: no selection made, only 1 row selected, target sheet already existent, …) of which you may find dozens of examples around … Read more

The following will achieve what you are wanting, it will generate 18 random numbers between 2 and your last row with data, in your case row 180 and then copy that row into the next free row in Sheet2: Sub foo() Dim wsOriginal As Worksheet: Set wsOriginal = ThisWorkbook.Worksheets(“Sheet1”) Dim wsDestination As Worksheet: Set wsDestination … Read more

try the code below : Sub test() Dim ws As Worksheet Dim ws2 As Worksheet Set ws = ThisWorkbook.Sheets(“sheet1”) Set ws2 = ThisWorkbook.Sheets(“sheet2”) lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row lastRow2 = ws2.Cells(ws2.Rows.Count, 1).End(xlUp).Row i = 1 Do While ws.Cells(i, 1).Value = ws2.Cells(i, 1).Value i = i + 1 Loop For j = i To lastRow lastRow2 = … Read more

While Den Temple is correct, and you really should Dim variables independently, the real problem here is with the logic of: For clm = 1 To 5 ClmTtl = 0 For copyRow = 1 To percRows ClmTtl = ClmTtl + Sheets(1).Cells(MyRows(copyRow), clm).Value Next Next This clears ClmTtl each time, without doing anything with the total … Read more

Try this example using strings: To get you started, you could use Cells(row#, column#), instead of Range(“A1”) and perform loops over the array and loop through the cells by row, comparing each value. Then adding the values that don’t match to a new array, that you will later pass back into the sheet in another … Read more