Autofit and a little cleanup.

I code/script by sheer force of will not by any actual I apologize for extremely messy/ugly code :)

But, I kind of got this do what I want except for 2 things:

The auto fit isn't working and I need to know how if I delete something off the first sheet (DME LOG) it will delete the coresponding cell on the second sheet (DME Data)

I had originally got the auto fit to work by first filling the cell with xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx, running auto fit then populating the cell with my data and running autofit again.  That worked if I wasn't using the do/while loop to add mulitple items if needed...

so basically I would like some tips on how to make this work a little better...or if I'm making this harder than it needs to be.

Essentially, staff will see the first sheet and input data, the 2nd sheet will be hidden and mgmt will be able to look at that...ok, I'm rambling now...workbook is attached, let me know if theres anythign else you need!
Who is Participating?

[Webinar] Streamline your web hosting managementRegister Today

fhillyer1Connect With a Mentor Commented:
here it is your file, ill work on the column width a bit later, but i'll send you what i was able to accomplish during lunch time, i only left you with 1 form, not 2, you dont need them, based on the column you are able to tell where to go
analyse the code and i added the delete thing you needed, when you delete a cell on the log one it deletes its correspondent cell on the data sheet
mobious74Author Commented:
and that's why I ask experts! :)

This is awesome...I've been playing with the autofit from what you gave me...but still trying to fit a square peg in a round hole :)

Looked at but was unable to make that work...

Let me know what you think...
i can code something else for the columns autofit, but it will require me like 5 minutes, after i finish with a customer i'll send you an update

in fact here you go buddy
i forgot something please go to the code and update the FitRow sub routine
make sure it looks like the following i just added the Sheet3. before the cells thing
Private Sub FitRow(Lne As Integer)
    Application.ScreenUpdating = False
        Sheet3.Cells(Lne, 1).EntireRow.AutoFit
    Application.ScreenUpdating = True
End Sub

Open in new window

mobious74Author Commented:
You are a rockstar! Works perfectly and my manager loves it...

The joys of being in IT "I want it to do this....."..."um, OK, give me a day :) (and experts-exchange!)

All Courses

From novice to tech pro — start learning today.