bradlydraper
New Member
- Joined
- May 13, 2015
- Messages
- 26
Currently, I have a code that looks something like this, though I can't post the code itself since it's on a work computer
etc
So what that does is pushes my all the cells in column "D", excluding D1, down one row. I have this code assigned to a total of 4 different command buttons, each one writing their own complicated textbox value sentences.
The issue that I'm having is occasionally, and randomly (I honestly can't find a trend to the error), it will blank out the cell D2 and push it down as a blank cell, and push everything else out normally.
For example, I'll have 20 Rows full of text, then I'll click the same command button again (or a different one) and it will randomly push down a blank cell rather than the cell that had text in it. I've tried changing simple formatting, adding
amongst many other things, but nothing really seems to be working and i'll still randomly push down a blank cell in Column D.
Any help is much appreciated, thank you
Code:
Sheets("Sheet1").[D2].Offset(1).Insert Shift:=xlDown
Sheets("Sheet1").[D2] = TextBox1.Value
etc
So what that does is pushes my all the cells in column "D", excluding D1, down one row. I have this code assigned to a total of 4 different command buttons, each one writing their own complicated textbox value sentences.
The issue that I'm having is occasionally, and randomly (I honestly can't find a trend to the error), it will blank out the cell D2 and push it down as a blank cell, and push everything else out normally.
For example, I'll have 20 Rows full of text, then I'll click the same command button again (or a different one) and it will randomly push down a blank cell rather than the cell that had text in it. I've tried changing simple formatting, adding
Code:
CopyOrigin:=xlFormatFromLeftOrAbove
Any help is much appreciated, thank you