How JustAnswer Works:
  • Ask an Expert
    Experts are full of valuable knowledge and are ready to help with any question. Credentials confirmed by a Fortune 500 verification firm.
  • Get a Professional Answer
    Via email, text message, or notification as you wait on our site.
    Ask follow up questions if you need to.
  • 100% Satisfaction Guarantee
    Rate the answer you receive.
Ask The-PC-Guy Your Own Question
The-PC-Guy
The-PC-Guy, Software Engineer
Category: Programming
Satisfied Customers: 1959
Experience:  Extensive Knowledge in PHP, MYSQL, CSS & Javascript
62934938
Type Your Programming Question Here...
The-PC-Guy is online now
A new question is answered every 9 seconds

Ive got a new job for you. How do I send you a file so you

This answer was rated:

I've got a new job for you. How do I send you a file so you can see what I need?

Customer:

Thanks for using JustAnswer. My name isXXXXX will do whatever I can to answer your question

Customer:

you can upload to

Customer:

www.wikisend.com

Customer:

or

Customer:

www.ge.tt

Customer:

after uploading they give you a download link

Customer:

paste that link here.

Customer :

496864

Customer :

You will find in column F the word Panel.

Customer :

I need all of those rows to be cut from the current sheet and pasted into a different sheet.

Customer:

sorry

Customer:

give me a min to download

Customer:

ok

Customer:

column F has Right Left

Customer:

top

Customer:

bottem

Customer:

etc

Customer:

what exactly do you need me to do?

Customer :

As you scroll down you will see the word Panel. Each line with this word needs be be CUT and pasted into a new or different sheet. The line number and number of lines will change depending on the job.

Customer:

oh

Customer:

i see what you are saying

Customer:

if the row contains "Panel"

Customer:

it needs to be copied

Customer:

and all of the rest will be skipped

Customer:

correct?

Customer :

Correct - except - it needs to be CUT - I need the info on the new sheet but it has to be removed from the current sheet.

Customer:

ok

Customer:

no problem

Customer :

You are the man - that's why I come back!!

Customer:

great

Customer:

i will post back with the completed file soon

Customer:

please stand by

Customer:

or check back later if you prefer

Customer :

I'll stick around, it doesn't take you to long.

Customer:

hopefully not

Customer :

By the way this has to work on a file that is new every time.

Customer:

ok, ill just have it generate a new sheet each time it runs

Customer:

the only thing that will need to be the same

Customer:

is that word will always need to be in column f

Customer :

Yes the word will always be the same. I get orders in on spreadsheets so It can't be attached to that particular file.? Clear?

Customer:

not exactly

Customer:

i would assume you would just copy the macro over to each sheet you need

Customer :

Ok, if you remember - you did one for me a few weeks ago and it would work on the file you tested on but I couldn't get it to work on my sheet.. Each time I will run this macro it will be on a new file. Clearer?

Customer:

so inotherwords the data will not be on the workbook that this macro is on.

Customer :

Correct. I will copy into my personal VBA project and run from there.

Customer:

ok

Customer:

then this will take some more time

Customer:

i will try to finish tonite

Customer:

but if I cant

Customer:

should be by tomarrow

Customer:

i will also have to have you define the sheet name

Customer:

that contains the data

Customer:

i could do that with a prompt

Customer:

and you type the sheet name

Customer:

or put it in a cell

Customer :

Define the sheet name as "Panels".

Customer:

ok

Customer:

if that will always be the same

Customer:

makes life easier

Customer :

If it's ok with you, I'll just check back tomorrow.

Customer:

works for me

Customer:

speak to you then

Customer :

It will always be the same.

Customer:

alright I have all the information I need now

managed to finish this early

http://wikisend.com/download/740560/door lables-JA-Mod.xlsm

this macro will prompt you to select a workbook to open.

let me know if you have any problems
The-PC-Guy and 2 other Programming Specialists are ready to help you
Customer: replied 3 years ago.

Ok works, but instead of it asking me to select the file I would like it to open - open the file below every time:


 


Workbooks.Open Filename:= _
"C:\Users\Ray\Desktop\Batch-Lables - Gcode\door lables.xls"


 


I just recorded a macro to get the above.


 


I don't know what to replace in your code to make this happen.


 


Thanks

Customer: replied 3 years ago.

Never mind I got it. Great Job. I rate right now.

great thanks for the rating

here is the new macro

hard coded to default to your file.

Sub rows_copy()

Dim lr As Long
Dim cv As String
Dim b As Long
Dim WS As Worksheet

FileToOpen = "C:\Users\Ray\Desktop\Batch-Lables - Gcode\door lables.xls"
Workbooks.Open Filename:=FileToOpen

Set WS = Sheets.Add

Worksheets("Panel").Activate
lr = Cells(Rows.Count, "A").End(xlUp).Row
b = 1
For a = 1 To lr
cv = Range("F" & a).Value
If cv = "Panel" Then
Rows(a & ":" & a).Select
Selection.Copy
WS.Activate
Range("A" & b).Select
Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=False
b = b + 1
Worksheets("Panel").Activate
Rows(a & ":" & a).Select
Selection.Delete Shift:=xlUp
a = a - 1
End If
Next
MsgBox ("Macro Done:")
End Sub