How to move from one sheet to otherby condition? Excel Vba

Question

0.00/5 (No votes)

See more:

I need to move the name and surename from sheet1 to empty column in sheet2 by a condition: personal code.
If code match, first two line (name and surename from sheet1) update empty fields in sheet2 right to the same personal code.Is this possible?

Manually without compare and update functions, look like this :

Range("D9").Select
    Sheets("Sheet2").Select
    Range("D5").Select
    Sheets("Sheet1").Select
    Range("B9:C9").Select
    Range("C9").Activate
    Selection.Copy
    Sheets("Sheet2").Select
    Range("A5:B5").Select
    ActiveSheet.Paste
    Sheets("Sheet1").Select

Document attached.http://www.filehost.ro/3100176/test_xlsm/

Posted 26-Feb-12 3:49am

john231

Add a Solution

Comments

ZurdoDev 27-Feb-12 10:33am

The easiest thing to do is record a macro doing what you want, or at least as much of what you want. Then go in and edit it adding in your logic.

Maciej Los 28-Feb-12 11:53am

Can you clarify your question? I'm affraid to download your file, because my web browser locks the content of page. Show us your problem. Use a pseudo-code, for example:
Until Sheet1!A & rownumber <> ""
if Sheet1!A & rownumber = Sheet2!A & rownumber then
copy
else
do not copy
end if
Loop

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Maciej Los · Answer 1 · 2012-03-11T21:40:00

The simplest way is:

VB

Dim srcWsh as Worksheet
Dim dstWsh as Worksheet
Dim i as Integer


srcWsh = ThisWorkbook.Worksheets("Sheet")
dstWsh = ThisWorkbook.Worksheets("Sheet2")

i = 2
j = 5
Do while
    'copy range A:D from sheet 1 starting from row 2 into sheet2 row 5
    srcwsh.Range("A" & i & ":D" & i).Copy dstWsh.Range("A" & j)
    'add 1 to set next row number
    i = i + 1
    j = j + 1
Loop

If you whould like to set condition, you need to add if ... then statement inside a loop.