How to store current row into variable
It seems u need to copy data from 1 file to another skipping blank an also to paste data of next file after current row pasted. If yes, then assign 1 cell (for e.g.: A1) in your workbook-Data t start your current row position to paste. Now Try this.. Code ------------------- Sub Import_Data() Dim ws1 As Worksheet, ws2 As Worksheet Dim myCopyRow, myPasteRow, i Set ws1 = Workbooks("Collect.xls").Sheets("test") 'set sheets Set ws2 = Workbooks("Data.xls").Sheets("data") myCopyRow = ws1.Range("B65536").End(xlUp).Row 'store value for rng used in col-B myPasteRow = ws2.Range("A1").Value 'Paste skipping blank With ws1 For i = 2 To myCopyRow If .Cells(i, 2).Value < 0 Then ws2.Cells(myPasteRow, 2).Value = .Cells(i, 2).Value myPasteRow = myPasteRow + 1 'increase End If Next i End With End Sub ------------------- Do not forget to enter some value manually in workbook-data in cell-A for first time before triggering this macro.. Cheers!!! ilya -- ilyaskaz ----------------------------------------------------------------------- ilyaskazi's Profile: http://www.excelforum.com/member.php...fo&userid=2396 View this thread: http://www.excelforum.com/showthread.php?threadid=47499 |
How to store current row into variable
Hi, Thank you all of you very much for your suggestion. It's work. -- jafer ----------------------------------------------------------------------- jafery's Profile: http://www.excelforum.com/member.php...fo&userid=2764 View this thread: http://www.excelforum.com/showthread.php?threadid=47499 |
All times are GMT +1. The time now is 03:07 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com