Insert data in multiple rows
Hello all
as per the code below, its reading 4 rows and i want all the four rows to be inserted in new row of excel. Kindly help me to achieve the same if (srcRng1.Value2.ToString() == "Affected Products:") { for (int j = i; j <= i + 1; j++) { //Excel.Range range = (Excel.Range) excel.Cells.get_Item(i, j); //range.Insert (Excel.XlInsertShiftDirection.xlShiftDown, System.Type.Missing); TempAP = _shtSrc.get_Range("B" + j.ToString (), Type.Missing); destRng1.Insert (Excel.XlInsertShiftDirection.xlShiftDown, Type.Missing); destRng1.Value2 = TempAP.Value2; } } Thanks Shantanu |
Insert data in multiple rows
I don't know what your code is supposed to do, but based on your description,
i think this is what you want: Do three things before you run the code: backup, backup, and backup!! Sometimes the consequences are unintended and it's a PITA to undo things that have been done, and done wrong!! Sub MergeCols() Dim FBlank As Boolean Dim FRow As Integer FRow = 1 FBlank = IsEmpty(Cells(FRow, 1).Value) Do While FBlank = False Rows(FRow + 1 & ":" & FRow + 3).Insert Shift:=xlDown Cells(FRow, 2).Cut Destination:=Range("A" & FRow + 1) Cells(FRow, 3).Cut Destination:=Range("A" & FRow + 2) Cells(FRow, 4).Cut Destination:=Range("A" & FRow + 3) FRow = FRow + 4 FBlank = IsEmpty(Cells(FRow, 1).Value) Loop End Sub Regards, Ryan--- -- RyGuy "shantanu" wrote: Hello all as per the code below, its reading 4 rows and i want all the four rows to be inserted in new row of excel. Kindly help me to achieve the same if (srcRng1.Value2.ToString() == "Affected Products:") { for (int j = i; j <= i + 1; j++) { //Excel.Range range = (Excel.Range) excel.Cells.get_Item(i, j); //range.Insert (Excel.XlInsertShiftDirection.xlShiftDown, System.Type.Missing); TempAP = _shtSrc.get_Range("B" + j.ToString (), Type.Missing); destRng1.Insert (Excel.XlInsertShiftDirection.xlShiftDown, Type.Missing); destRng1.Value2 = TempAP.Value2; } } Thanks Shantanu |
All times are GMT +1. The time now is 05:20 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com