![]() |
#1
|
|||
|
|||
![]() Hi, Friends I have a workbook with huge data and find out blank row in col Gwith specific row, I have attached sample file with input and output.. Any help much appreciate. Thanks in advance |
#2
|
|||
|
|||
![]() Quote:
Code:
Public Sub SpecialCopy() Dim SourceRange As Range, TargetRange As Range Dim StartCell As Range, i, k As Long '--- Definitions ----------- Set StartCell = [INPUT!A2] Set TargetRange = [OUTPUT!G2] '----------------------------- Set SourceRange = [INPUT!A:A] Set SourceRange = Range(StartCell, SourceRange(SourceRange.Rows.Count).End(xlUp)) For Each i In SourceRange If i(1, 7) = 0 Then k = k + 1 TargetRange(k) = i(1, 4) End If Next End Sub Bruno |
![]() |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
Want to change Macro to copy and paste data to new sheet | Vortex69 | Excel Programming | 0 | 12-23-2014 09:53 PM |
how can i split a column of rows in half without copy and paste.. | Lindseyfparker | Excel | 2 | 04-25-2014 12:52 AM |
![]() |
Sinister | Excel | 4 | 04-08-2014 05:53 PM |
![]() |
konopca | Word VBA | 5 | 02-20-2014 02:34 PM |
How to Copy data from Outlook mail and Paste it in a Excel sheet? | padhu1989 | Outlook | 0 | 09-11-2012 04:07 AM |