Do you want to copy the results again and again after the result,and do not
want to replace the existing result..
On Thursday, April 9, 2015 at 6:37:11 AM UTC+5:30, modi89 wrote:
>
> Group, please replace 'house1' with 'Red apples' and 'house2' with 'Green
> apples'
>
> On Wednesday, April 8, 2015 at 8:56:36 PM UTC-4, modi89 wrote:
>>
>>
>>
>> Hello Group,
>> I need help. when this code runs , The result goes to Sheet2 as
>> intended. however it overwrite A, B, C E, G. of Sheet2 columns. you help to
>> stop overwriting .I Appreciate your help
>>
>> Sub SheetA()
>> Dim w1 As Worksheet, w2 As Worksheet
>> Dim a As Variant, o As Variant
>> Dim i As Long, j As Long
>> Application.ScreenUpdating = False
>> Set w1 = Sheets("Sheet1")
>> Set w2 = Sheets("Sheet2")
>> a = w1.Range("A1:H" & w1.Range("A" & Rows.Count).End(xlUp).Row)
>> ReDim o(1 To UBound(a, 1), 1 To 8)
>> For i = LBound(a, 1) To UBound(a, 1)
>> If a(i, 2) <> "Red apple" Then
>> j = j + 1
>> o(j, 4) = a(i, 3)
>> o(j, 6) = a(i, 5)
>> o(j, 8) = a(i, 7)
>>
>>
>> ElseIf a(i, 2) = "Red apple" And a(i + 1, 2) = "Green apple" Then
>> j = j + 1
>> o(j, 4) = a(i, 3) + a(i + 1, 3)
>> o(j, 6) = a(i, 5) + a(i + 1, 5)
>> o(j, 8) = a(i, 7) + a(i + 1, 7)
>> i = i + 1
>> Else
>> j = j + 1
>> o(j, 4) = a(i, 3)
>> o(j, 6) = a(i, 5)
>> o(j, 8) = a(i, 7)
>> End If
>> Next i
>> With w2
>> .Columns(1).ClearContents
>> .Range("A1").Resize(UBound(o, 1), UBound(o, 2)) = o
>> .Columns(1).AutoFit
>> .Activate
>> End With
>> Application.ScreenUpdating = True
>>
>> End Sub
>>
>>
>> Sheet1
>> A B C D E F G H arange Test10 23 44 67 arange house1 25 46 69 arange
>> house2 26 47 70 arange Test4 27 48 71 arange house1 28 49 72 arange
>> house2 29 50 73 arange Test9 30 51 74 arange house1 31 52 75 arange
>> house2 32 53 76 arange Test12 33 54 77 arange Test13 34 55 78
>>
>>
>> Sheet2
>> A B C D E F G doNotOverite doNotOverite doNotOverite doNotOverite
>> doNotOverite doNotOverite doNotOverite doNotOverite doNotOverite
>> doNotOverite doNotOverite doNotOverite doNotOverite doNotOverite
>> doNotOverite doNotOverite doNotOverite doNotOverite doNotOverite
>> doNotOverite doNotOverite doNotOverite doNotOverite doNotOverite
>> doNotOverite doNotOverite doNotOverite doNotOverite doNotOverite
>> doNotOverite doNotOverite doNotOverite doNotOverite doNotOverite
>> doNotOverite doNotOverite doNotOverite doNotOverite doNotOverite
>> doNotOverite doNotOverite doNotOverite doNotOverite doNotOverite
>> doNotOverite
>>
>
--
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
https://www.facebook.com/discussexcel
FORUM RULES
1) Use concise, accurate thread titles. Poor thread titles, like Please Help,
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.
NOTE : Don't ever post confidential data in a workbook. Forum owners and
members are not responsible for any loss.
---
You received this message because you are subscribed to the Google Groups "MS
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.
