Search results for query: *

I have a spreadsheet of demographic information for individuals and families. Each person's information is on a separate row. Each row contains a sequencing number. If it is a three member family (male spouse, female spouse, child) this would show as three separate rows but would have the...

I do appreciate the advice. I am still trying to solve the cut/paste back to the "In_Progress" from the "Completed". Still doesn't make any sense why it works one way and not the other. I've tried both the Range("A1").End(xldown) and the Range("A65536").End(xlUp). The A65536 puts it on that...

Two things: First, I thought it would be a simple task to reverse the process to return items to the original worksheet. The Business requirements state that the item can be returned to active status if updates and/or corrections are needed. I have included both sets of code below: Code Set...

I've got it working now. Thanks. If you don't think you can do somethin' it's purty near a cinch you ain't gonna! [cheers]

Because I don't know alternative methods at this time. I don't know why using Activate and Select is ill advised. I am, as stated many times, very new to this language. I am a mainframe programmer who also happens to use Excel extensively but mainly Excel formulas & functions. I have never...

I did step thru this code. The row to cut on the "Group Tracking Report" worksheet gets selected and the 'dancing-dashes' appear. The "Completed Group Tracking" worksheet then appears. Cell "A" of first blank line is selected. Next statement is the "ActiveSheet.Paste" which causes the...

Could the problem be that I am losing what is in the clipboard? I have attempted changing the paste to ActiveSheet.PasteSpecial and to Selection.Paste...both versions receive the same error. In all instances the "Completed" sheet is slected and the first available row is hi-lited but it seems...

I changed the order of the statements as follows: Sheets("Completed Group Tracking").Select Sheets("Completed Group Tracking").Activate Sheets("Completed Group Tracking").Range("A65536").End(xlUp).Offset(1, 0).Select ActiveSheet.Paste...

Nope. Both worksheets are unprotected. Encountered that error before and unprotected the worksheets. If you don't think you can do somethin' it's purty near a cinch you ain't gonna! [cheers]

I am at a loss here. I saw this work yesterday, even demonstrated it to several co-workers...but now I get the following: Run-time error '1004': Paste method of Worksheet class failed. The line of code that is indicated is hi-lited below. Any suggestions? If Not Intersect(Target...

Thanks, Gavona but I tried that. I do have it working now...at least the cutting and pasting... If Not Intersect(Target, Columns("BV")) Is Nothing Then If Target.Value = "COMPLETED" And (Cells(Target.Row, "BS").Value <> "" Or Cells(Target.Row, "BT").Value <> "") Then...

And...I do not know how to insert the code in a "Code" box in a submission or I would send it to you that way. If you don't think you can do somethin' it's purty near a cinch you ain't gonna! [cheers]

Below is current code. Data entered on "In_Progess" worksheet. First available row on "Completed" worksheet is row 53. In stepping through all statements are executed and destination ends up on row 53 of the "Completed" sheet. I attempted a statement to paste but it still only pasted the...

As I stated when I first came in here...I am very new to VBA coding. I am not familiar with statement structure, objects, methods, syntax, etc. I have winged my way through with what I have done thus far...using examples found on the internet, forums, etc. I have stepped through using the...

So, are you saying the statement should now look like this: .Cells(Activecell.Row, 1).End(xlUp).Offset(1).EntireRow.Copy If you don't think you can do somethin' it's purty near a cinch you ain't gonna! [cheers]

I tried Skip's suggestion and still no paste nor cut. Skip, any comment to ck1999's suggestion? If you don't think you can do somethin' it's purty near a cinch you ain't gonna! [cheers]

What I just noticed was that it is copying the format but not the data in the cells. If you don't think you can do somethin' it's purty near a cinch you ain't gonna! [cheers]

Sorry to hear about your crystal ball! My code is below. I also have: Sheets("Completed Group Tracking").Unprotect following the Sub and: Sheets("Completed Group Tracking").Protect before the End-Sub. If Not Intersect(Target, Columns("BV")) Is Nothing Then If Target.Value =...

Thank you. I modified my code to match what you provided. The first thing I encountered though was that it attempted to write to the "Completed" sheet bu it gave me an error that the worksheet is protected (which I had set it to be). I have attempted two different scenarios with the same...

Sorry I haven't responded sooner...been tied up with another task...aahhhh, a mainframe task! I appreciate the code. I inserted this into my code but it stops at statement: Worksheets("Group Tracking Report").EntireRow.Copy It pops up the following: "Run-time error '438': Object doesn't...