Posts by chris verbeski

has anyone experienced File/Save As not allowing a save, but using dialogue (F12) will? The filename contains #, which I thought may be the issue, but using the dialogue method of Save As it allows it?

Re: Automatically advance year if month/day entered is >31 days PRIOR to current date

Works great!!

Thanx so much!!

I would like Excel (2010) to automatically add the next YEAR if I enter a month/day that is more than 31 days EARLIER in the calendar year than TODAY's date.

ie. if today is 11/4/16, and I enter 2-1, I would like it to go to 2/1/17 instead of the default to the current year.

Thanx much in advance for any advice (other than "just type in the -17"...ha ha)!!

Resolved 11/4/16 - Thanx much!

Re: Row keep coming up missing in a Excel 10 workbook saved as a .xls file, mysteriou

Quote from Ger Plante;766491

Is Row 25 Hidden, or
is it just the data on the row has been cleared (blank row) or
is it that the data on the row has been deleted and the other rows shifted up? Entire row is deleted, everything moved up

Is there any macro running that could do either of the above? No macros running in this workbook

Is it only happening on Excel 2003? It is actually happening in 2010 version

How many Total Rows are being used in the Excel document? The maximum has been around 100, each column (max 20) is a different number of rows used

What is the file size in kb's? 188

How many Total columns are being used in the Excel document? 20 max on any worksheet in the workbook

Is the file shared and being used by more than one person? Other users can only open as read-only

Is it always row 25? Appears that way

No and No to both questions above. But could be something quirky..... hence my quirky questions

Display More

I am thinking I will just replace the sheet and see what happens down the road, hoping is just a 2003 to 2010 version "quirk"

I have a simple list file in excel 2010, but I have to save in an .xls format since most users on our network have excel 2003.

Every now and again, I go into one of the tabs and I find out that row 25 has been deleted, which ultimately affects every column that has a list that exceeds that row.

I have the file password protected, so I know it is not another user doing this.

It happens intermittently, I cannot seem to detect a pattern to it.

a) has anyone else experienced or heard of this happening,

b) does anyone have an explanation of why, or how to stop this from happening?

Thanx!

Re: combining macros from several modules to one module for easy export

Thanx cytop, I was figuring the copy/paste method would be the faster, was just hoping that someone else had run into the issue and got "automated" resolution.

The issue I had was it was modules from 40+ spreadsheets, some with upwards of 12 Modules and 30+ macros.

Problem is taken care of, and I thank you for your time!

I have workbooks with dozens of macros scattered through 10+ Modules.

I would like to create a Module, give it a name, and hae all the macros from all the other Modules in this new Module so I can export just 1 Module that contains all the macros.

Any help would be greatly appreciated.

Re: Trying to launch macro utilities in Excel 2013 Preview

Just found out that macros and such are not available with 2013 when used with a RT PC (which is what my Surface is). Oh well, guess I load the Office 2003...haha.

Hi all, I recently got a Surface that included a new Excel 2013 Preview program with it. I can't find where to launch the macro utilities or vba editor.
I am thinking that maybe this is a watered down version (by way of the "Preview") and those utilities are not included?

Any help is greatly appreciated!

Thanx!

Re: Trying to convert the NOW to a number for use in a workbook name

Thank-you for the response, I tried your code and it worked for the date, just would've had to expand on it to cover the time, as I need this to make a copy every time it is closed without overwriting the previous one.

I also found that I could take care of it with the following line:

abcStr = Format(Now(), "mmddyy hmmss")

Thanx again for taking the time!!

I am trying to do a SaveAs from a CloseEvent that will add a "bu_" and a unique number before the ActiveWorkbook.name.

How do I get the NOW to not have the /'s and :'s that show up?

Here is what I have so far...what am I missing? (abcStr is where I am having the issue)

abcStr = Abs(Now)
ActiveWorkbook.Save
SaveDir = "C:\Users\cverbesk\Documents\Excel Backups 10-19-12\"
MsgBox ("Workbook Will Be Backed Up Before Closing")
ActiveWorkbook.SaveAs (SaveDir & "bu" & abcStr & "_" & ActiveWorkbook.Name)
MsgBox ("Backup has been created")

Thanx!

Thank-you, Problem Solved

Thanx much Parsnip, that worked great!

Did I mention I LOVE this place?

Rock on!!!

Chris

Hi, I have a number in A1, another number in B1, a Date in C1.
In D1, I am referencing all 3 of the other cells: =CellA1 & "-" & CellB1 & "----" & CellC1. Trouble is the date is coming through as a number. Is there a way that I can get the date to show as displayed as opposed to the value of the cell?

thanx so much!
Chris

THANX Re: Counting Cell With Partial Text Criteria

Well done Pangolin. And so timely!!
Worked Perfectly (after reference changes of course..learned that some time ago ha ha)
Did I ever mention I love this place? ha ha

Thanx So Much!!!!
Chris

Greetings, I have a particular column containing data similar to:
X24A
X15B
G15A
X23S

I have sorted the data to have all the X marks together, and now I want to run a counter so i can select the data and delete. Following is a sample of the code that is NOT working:

'Delete X Piece Mark Rows


    Range("L2").Select
    counter = 0
    ActiveCell.Select
    
    Do While ActiveCell = "X" & "*" ' This is the line that crapping out
        If ActiveCell = "X" & "*" Then counter = counter + 1
        ActiveCell.Offset(1, 0).Select
    Loop
    
    Range("A2").Select
    Range("A2", "L" & counter + 1).Select
    


    Selection.Delete Shift:=xlUp
    Range("A1").Select

Thanx in advance for any help!!
Chris

Re: Autosum For Single Cell In Vba

You are correct, in that while in Step Into mode, this produces an endless loop. However, when I run the macro, it actually does NOT get caught in a loop....mostly. The initial problem I got was when a block of data was only 1 row, the Autosum was putting in a Formula in the cell that looked like:
=SUM(P15P15) you can see there was no colon, but should have looked like: =SUM(P15) in the 1st place. I did get it to run ok yesterday, didn't do anything to code, just ran, re-ran, etc...
After reading your post, I did go in and changed the 1 line to offset(2, -1) and haven't seen the "situation" yet (ran about 4 different times with changing data)...knock on wood *smile*
I thank you very much for taking the time.
Gosh, I really like this place!
Chris.

Greetings, I have a macro that takes a large block of info, sorts it by certain criteria, then adds blank rows, and puts in Autosum for the various blocks of info. Problem occurs when a particular "block" of info is only 1 row.
Any dirty little tricks to keep the macro running past this roadblock?
The section of code looks like

'   Insert Autosum


    Range("O1").Select
    ActiveCell.Offset(2, 0).Select
    
    Do While ActiveCell <> "end"
        If ActiveCell.Offset(-1, 0) = "TOTAL" Then
            ActiveCell.Offset(-1, 1).Select
            ActiveCell.Font.Bold = True
            SendKeys ("%="), False
            SendKeys ("~"), True
            ActiveCell.Offset(1, -1).Select
        Else
            ActiveCell.Offset(1, 0).Select
        End If
    Loop

Thanx in advance! Chris