Recent content by natedeia

You know, that is prob what she was showing me but with no detail. That makes sense, will give it a try.

Cool, that is what I was afraid of. Someone came over to show me how to do it the other day, I did not test it then for copy and pasting but have not been able to reproduce the same supposed results.

I have the first couple of rows listing catagories, workers here will past their info into this Template I have. Sometime they accidentially delete one of the rows, kinda screws up things. At home I have XP Office, it seems you can specify certain cells or what ever to be locked down. 97 @ work...

It's me, I don't know what I am talking about. Still picking this up. But what you said is exactly what I was trying to do. I was just changing the wrong thing or not reading the code correctly, just ignorant to alot of the rules. That little thing helped out alot, soon it will be lesser and...

Sh1.Range("A" & x).EntireRow.Copy Sh2.Range("A" & n) End If With the code above, the "A", can't I make that A4 for sh1 and A2 for sh2? I have been trying to adapt it to my sheet better cause I have either 3 or 1 rows at the top which I have some cells that have the titles which those have...

really, thanks....someone pointed that out the other day and could not find any other time to figure that one out. it queries via excel w/vba. if the query was kinda big then you could watch it begin, cell by cell by cell. i wanted that timestamp though, no worries now. will have to try it out...

my old one was entertaining, but this one works great. like always. thanks for the smarts again

I am using this code to update a sheet once excel is done querying a DB, it gets dumped into the second sheet called Data and there it gives me a timestamp in cell C1. Like it alot but when there is alot of data it will sit there update each cell and update the time stamp. can someone fix it...

great code, runs smoother than Sub AddToNegative() ' Macro2 Macro Call ClearNegative Dim aColor As Integer Dim aCell As Range Dim aWorksheet As Worksheet Dim bWorksheet As Worksheet Dim i As Long Dim j As Integer Set aWorksheet = Worksheets("DATA") Set...

If a cell in sheet one is BOLD, then copy and paste entire row onto sheet 2. or a sheet name, Option Explicit Sub TransferDataPlease() Dim i As Long, n As Long n = 1 n = n + 1 For i = Range("A65536").End(xlUp).Row To 1 Step -1 If Range("A" & i).Font.Bold = "TRUE" Then...

well i can tell you i did not come close on that one. i was taking a different approach to that, thank you so much JEDI. I hope I have not used up all my questions on this subject, but as I use the one with the threashhold, it does not work on #'s that are around this long...

For x = 1 To 65000 i have been trying to replace this but can not seem to get it right, keep getting errors, this one is very quick, under 10 minutes for 65000 lines

how can i get this one to stop at last cell that has data, this one keeps going to 65 thousand, Sub FlagMatches() Dim myList As New Collection T1 = Now() Range("A:A").Font.ColorIndex = 0 Range("A:A").Font.Bold = False On Error GoTo FlagRow: z = 0 For A = 1 To 9 For B = (A + 1) To 9 For...

yea, for the most part, the feature with column B is ingenious, just cant see the cell's contents entirely because it can get kinda long with all the redundant matching cells showing up. that was one part that would make it easier to look at, because the goal is not to spend too much time...

you know how you have that real quick one that puts the near matche cell #'s in column B, and highlight the digits red that do not match. there may be someone i can take your code to make some changes, but what i am asking is, 'Is it possible to only show a cell once if it matches another in...