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 Richard Your Own Question

Richard
Richard, Software Specialist
Category: Microsoft Office
Satisfied Customers: 16835
Experience:  Over 15 year experience resolving Microsoft Office Issues
Type Your Microsoft Office Question Here...
Richard is online now
A new question is answered every 9 seconds

i have a report that i convert to excel sheet each week. It

Resolved Question:

i have a report that i convert to excel sheet each week. It has a page title that i manually highlight and delete for each page of the report. What i need is a macro or some other method to delete the page title while leaving the blank lines between the data. Is this an easy fix? I've tried several methods of sorting but have not had any success.
Submitted: 10 months ago.
Category: Microsoft Office
Expert:  Richard replied 10 months ago.
Thank you for your question, my name is Richard.

Can I look at this sheet please?

- Click the following link: http://www.wikisend.com
- Upload the file to that website
- Once it is uploaded, the resulting page will display a "File ID" number.
- Please, give me that "File ID Number"

Thank you
Customer: replied 10 months ago.


540228 report id

Expert:  Richard replied 10 months ago.
Thanks

this is the Macro you need

Sub JA()

Dim i As Integer
On Error Resume Next
i = 1

While i <= 10000

If Left(Range("A" & i), 1) = " " Or Left(Range("A" & i), 4) = "Page" Or Asc(Left(Range("A" & i), 1)) = "12" Then
Rows(i & ":" & i) = ""
End If
i = i + 1
Wend


End Sub


If you have any difficulties at all, please do not hesitate to let me know so I can assist you further

Thank you
Customer: replied 10 months ago.


So far i think it worls well but it doesn't delete the header lines, it blanks them out and leaves a gap in the data where the header use to be. Is there a way to delete the lines?

Expert:  Richard replied 10 months ago.
Of course

Use this Macro

Sub JA()

Dim i As Integer
On Error Resume Next
i = 1

While i <= 10000

If Left(Range("A" & i), 1) = " " Or Left(Range("A" & i), 4) = "Page" Or Asc(Left(Range("A" & i), 1)) = "12" Then
Rows(i & ":" & i).delete
End If
i = i + 1
Wend


End Sub


Let me know if you have any difficulties please

Customer: replied 10 months ago.


This eliminates the the blank lines between the data as well as the header lines. Can it select only lines that contain "Page" or "A.7" in the text?

Expert:  Richard replied 10 months ago.
ok, so if it has Page or A.7 is should delete the line

Else it just clears the text?

Customer: replied 10 months ago.


yes that would work

Expert:  Richard replied 10 months ago.
This does it

Sub JA()

Dim i As Integer
On Error Resume Next
i = 1

While i 0 Or Left(Range("A" & i), 4) = "Page" Then
Rows(i & ":" & i).Delete
i = i - 1
ElseIf Left(Range("A" & i), 1) = " " Or Asc(Left(Range("A" & i), 1)) = "12" Then
Rows(i & ":" & i) = ""
End If
i = i + 1
Wend


End Sub

Let me know if you have any difficulties please

Expert:  Richard replied 10 months ago.
use this code sorry

Sub JA()

Dim i As Integer
On Error Resume Next
i = 1

While i 0 Or Left(Range("A" & i), 4) = "Page" Then
Rows(i & ":" & i).Delete
i = i - 1
ElseIf Left(Range("A" & i), 1) = " " Or Asc(Left(Range("A" & i), 1)) = "12" Then
Rows(i & ":" & i) = ""
End If
i = i + 1
Wend


End Sub
Customer: replied 10 months ago.


getting Syntax error on the line that begins While

Expert:  Richard replied 10 months ago.
The editor took out some of the code.

I have uploaded it for you to copy

Go to www.wikisend.com

Click download and use file id 734912

Then use that code please

Customer: replied 10 months ago.


Works great! Thanks!!

Expert:  Richard replied 10 months ago.
Your welcome!

If you have continued problems, or would like any additional information or assistance, please do not hesitate to let me know.

And if you can take a second to rate my service, that would be greatly appreciated.

Thank you
Richard, Software Specialist
Category: Microsoft Office
Satisfied Customers: 16835
Experience: Over 15 year experience resolving Microsoft Office Issues
Richard and 4 other Microsoft Office Specialists are ready to help you

JustAnswer in the News:

 
 
 
Ask-a-doc Web sites: If you've got a quick question, you can try to get an answer from sites that say they have various specialists on hand to give quick answers... Justanswer.com.
JustAnswer.com...has seen a spike since October in legal questions from readers about layoffs, unemployment and severance.
Web sites like justanswer.com/legal
...leave nothing to chance.
Traffic on JustAnswer rose 14 percent...and had nearly 400,000 page views in 30 days...inquiries related to stress, high blood pressure, drinking and heart pain jumped 33 percent.
Tory Johnson, GMA Workplace Contributor, discusses work-from-home jobs, such as JustAnswer in which verified Experts answer people’s questions.
I will tell you that...the things you have to go through to be an Expert are quite rigorous.
 
 
 

What Customers are Saying:

 
 
 
  • My Expert answered my question promptly and he resolved the issue totally. This is a great service. I am so glad I found it I will definitely use the service again if needed. One Happy Customer New York
< Last | Next >
  • My Expert answered my question promptly and he resolved the issue totally. This is a great service. I am so glad I found it I will definitely use the service again if needed. One Happy Customer New York
  • Wonderful service, prompt, efficient, and accurate. Couldn't have asked for more. I cannot thank you enough for your help. Mary C. Freshfield, Liverpool, UK
  • This expert is wonderful. They truly know what they are talking about, and they actually care about you. They really helped put my nerves at ease. Thank you so much!!!! Alex Los Angeles, CA
  • Thank you for all your help. It is nice to know that this service is here for people like myself, who need answers fast and are not sure who to consult. GP Hesperia, CA
  • I couldn't be more satisfied! This is the site I will always come to when I need a second opinion. Justin Kernersville, NC
  • Just let me say that this encounter has been entirely professional and most helpful. I liked that I could ask additional questions and get answered in a very short turn around. Esther Woodstock, NY
  • Thank you so much for taking your time and knowledge to support my concerns. Not only did you answer my questions, you even took it a step further with replying with more pertinent information I needed to know. Robin Elkton, Maryland
 
 
 

Meet The Experts:

 
 
 
  • jstinehelfer

    Information Systems Manager

    Satisfied Customers:

    36
    A+ Comptia Certified computer repair
< Last | Next >
  • http://ww2.justanswer.com/uploads/JS/jstinehelfer/2012-6-6_215146_Pictureofme1.64x64.png jstinehelfer's Avatar

    jstinehelfer

    Information Systems Manager

    Satisfied Customers:

    36
    A+ Comptia Certified computer repair
  • http://ww2.justanswer.com/uploads/JA/JasonJames122/2011-12-16_135647_jasonjamesheadshotweb.64x64.jpg JasonJames122's Avatar

    JasonJames122

    Computer Enthusiast

    Satisfied Customers:

    0
    I manage all information systems (network of Windows PC's and servers with Microsoft Office products) for a small business
  • http://ww2.justanswer.com/uploads/JE/jessmagz/2012-6-6_18129_jm.64x64.jpg Jess M.'s Avatar

    Jess M.

    Computer Support Specialist

    Satisfied Customers:

    301
    Computer Software Specialist for more than 10 years
  • http://ww2.justanswer.com/uploads/CH/chutz747/2011-11-6_14231_me.64x64.jpg The-PC-Guy's Avatar

    The-PC-Guy

    Computer Manager

    Satisfied Customers:

    274
    20 years experience providing remote computer support
  • http://ww2.justanswer.com/uploads/SP/spherrod/2012-6-6_174244_1000852.64x64.JPG Steve Herrod's Avatar

    Steve Herrod

    Computer Support Specialist

    Satisfied Customers:

    125
    Trained in Microsoft Office from 2000 through to latest version 2010.
  • http://ww2.justanswer.com/uploads/SE/Seashore2011/2011-12-6_33418_111205223015.64x64.jpg Chris L.'s Avatar

    Chris L.

    Support Specialist

    Satisfied Customers:

    124
    Certified Expert with over 10 years experience.
  • http://ww2.justanswer.com/uploads/KR/krkljatorm/2012-6-24_153417_ITMiro.64x64.jpg IT Miro's Avatar

    IT Miro

    Computer Scientist

    Satisfied Customers:

    97
    Bachelor's Degree in Information Technology, Microsoft Certified Professional