Sometimes when i run code under a command button on a pop-up user form, the contents of the userform go "blank (i.e., border stays on, so you can see that the form is still there, but the contents are all "white"-you cannot read/see any of the content...
What could be done to prevent this from happening (presently, i just have the mouse cursor displaying while code is running?
I am using a user form to display a splash screen. In the user form, I have a picture that is being displayed as splash screen for 5 seconds and then it disappears.
I only want to display the picture in the splash screen.
I want to to remove the following three items from the user form:
1 - remove all borders
2 - remove the menu/caption bar
3 - remove the "x" button that allows user to close form.
I want to get the text inside the cell which is to the left of the first blank cell of a column.
I show the problema in the attach imageSin tÃtulo.jpg
I am very new to VBA and I am trying to create a userform which can be filled in and then when command button "submit" is clicked the completed form is emailed to myself. I have created the code for this but the userform is arriving as a blank attachment.
On a userform, I have three textboxes, one listbox, and an OK button. When the user presses the OK button, the information in these boxes is pasted onto a worksheet. I am wondering how I can detect if any of these boxes have been accidentally left empty, so as to prevent the user from pasting an incomplete entry onto the worksheet. This is what I have so far (this is part of the routine that executes when the OK button is pressed):
If EnterGrowerTextBox.Text = "" Then
MsgBox "Please Enter the Grower Name"
Exit Sub
End If
If EnterAmountTextBox.Text = "" Then
MsgBox "Please Enter the Number of Chicks"
Exit Sub
End If
If EnterBreedTextBox.Text = "" Then
MsgBox "Please Enter the Breed"
Exit Sub
End If......................
I have a modal userform that I load to warn the user that the system is busy processing a scheduled job. The form is nothing more than a screen that comes up and says "One moment please..." with the form caption set to "Processing...". When I use the form in this way, if I don't use an application.wait command the form just shows the header without the text that it shows when I look at in the in the VBA IDE. (In other words it is just blank.)
View 4 Replies View RelatedI have a userform with 16 Textboxes Named "Text1" through "Text16". What I am trying to do is apply code that if there is content in the textbox it generates a new row after row15 and inputs the text in cellA of that row. Ex. "Text1" = JOE "Text2" = TONY......Hit Commandbutton1 on userform. It inserts Row16 puts "JOE" in A16.....then sequentially it inserts Row17 puts "TONY" in A17.
View 14 Replies View RelatedI have a spreadsheet containing data in coloumns A to L.
Where all the codes in column B are the same then a border must be placed around all the codes that are the same i.e the border must start in Column A and end with column L.
provide me with the code the will put borders around the codes in column B that are the same ...
I have created a 4 page chart in landscape with text in each of the 4 columns in the chart.
When I looked at it in print preview the chart did not fill the page and so to widen the last 2 columns I dragged them over to the right hand margin. I am still definitely within the right hand dotted line showing the margin limit.
The problem is that I cannot now put a border line down the extreme right hand column. Every time I click on any of the border instructions in the Font tab nothin appears on the right hand side of the box.
I am trying to write vba code that will highlight the row in the range if a field is over a certain percent. The column number won't change but the number of rows will. I'd also like the code to automatically work on all tabs of the workbook when a button is clicked.
Data Info:
Currently there are 4 tabs, but can have more/less
Columns used are A:O
Data for shading starts at A3 and should go to however many rows have data and ignore blank rows
Formula should be if data in column E is over 10.00% then the data in that row A:O should be shaded in the color off yellow & have black thin orders
If the data in column E is not over 10.00% then the data in that row should not be shaded but still have thin black borders.
Is it possible to stop excel from pasting border formating with cell data other than to select paste special-all except borders?
View 5 Replies View RelatedThe attached file works with 3 Drawers and 3 Doors but if I use 2 Drawers and 2 Doors the Borders do not line up. I think the Drawers are right the Doors appears to be the problem.
Same thing happens with 3 drawers and 4 Doors. It has and extra border on the right side.
See Attached : ozgrid cabinet error.xlsm
Also I would like for the Measurements to be in the cell to the right of the left hand border and center across each of the sections.
Change B3 and B4 to 2 then click draw. 3 and 3 work 3 and 4 don't but 4 and 4 does.???
I want to remove some cell borders for printing so that on paper it will look like 2 separate tables (ie, I want a space between the 2 tables). I have tried removing the borders and changing the colouring to white but they still show.
View 5 Replies View Relatedi am trying to do the following but having trouble getting my head around it!
if a2=0 then b2:b13=border
I need to change the thickness of the borders line but I couldn't find out how.
View 6 Replies View RelatedWhat I'm trying to do is put top&bottom borders on ALL cells in a range, not just the margins of the selected area. See spreadsheet below for explanation if required.
Surely there must be a way to do this through Excel menu, tools and whatever.
Alternatively, this could be solved if I knew how to select all rows in a spreadsheet (not Select All), because if I select rows one by one it will obviously apply the borders correctly. Is there a way to select multiple rows then?
A cell on sheet1 needs to count the number of cells on sheet2 (D3:D31) that has a complete (top, bottom, left and right) border. This is my best shot at it.
[Code] .....
Sheet1 cell I input =CountBrds('sheet2'!D3:D31)
One issue, on sheet2 for example cell D4 is merged with E4 and F4 as is every even cell in the D column down to row 30. Not sure if that throws a wrench in things or not.
Trying to select all cells below the last row of data based on column B and remove borders.
So far I have this.
[Code] .....
This piece of code is run from a form when the user click OK. It dumps the data the user filled in on the form, below the last row on the sheet.
View 2 Replies View RelatedI have a spreadsheet that has descrptions in column D. Where the descriptions are the same ,
I need the VBA code that will do the following:
1) Sort the data by columns C (descending), G (ascending) & E (ascending)
2) Putting a border around all the data where the decriptions are the same
i.e from column A to Column I beginning from row 2
I have attached a sample file for ease of reference....
i have just recorded a macro to put thin borders in columns L and M, but it needs cleaning, ...
View 9 Replies View RelatedI have designed a form with Grey horizontal borders.
When I print to my HP LaserJet 2420, the borders are black.
I have other forms with Grey borders where the borders print Grey.
I have not chosen to print Black and White in Page Setup.
How do I correct this?
With Range("A12", Range("E65536").End(xlUp))
With .Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin......................
It is supposed to border data from columns A to E for all rows where data exists in column A. (like a dynamic range). How would I change the dynamic reference I have now?
I have a report that is imported into excel with all thick borders. Does anyone know a VBA code (or simpler way) to change all of these borders to skinny borders?
View 4 Replies View RelatedHow to box data where the bottom of the box ends at the page break.
View 1 Replies View RelatedI am using a user form to display a splash screen. In the user form, I have a picture that is being displayed as splash screen for 5 seconds and then it disappears. I only want to display the picture in the splash screen. I want to to remove the following three items
from the user form:
1 - remove all borders
2 - remove the menu/caption bar
3 - remove the "x" button that allows user to close form.
In column A of my worksheet I have values starting from A4 as below:
A4-1000
A5-1000
A6-1000
A7-2000
A8-2000
A9-1500
A10-2200
A11-2200
A12-2200
A13-2200
and so on till A10200.
What is want is to put thick box borders for similar values using a macro. For e.g. i want to put the borders to first 3 cells together as these are of same value 1000, then it has to be put to A7 & A8 (Value - 2000), then for A9 alone, then for A10 to A13 together till i have values in column A.
I am having a hard time understanding why the following code (i am avoiding the select procedure on purpose) doesn't work:
Code:
Function APMS_Border(Namesheet As Variant, Mode As Variant, RowStart As Variant, ColStart As Variant, RowEnd As Variant, ColEnd As Variant, LeftBorder As Variant, TopBorder As Variant, RightBorder As Variant, BottomBorder As Variant, InterColor As Variant)
Dim BorderMatrix() As Variant
[Code]....
it only draws the left border of my range, am i missing something?
I got some code from an old discussion thread
Sheets("Reference").Select
Range("d9").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Dim myBorders() As Variant, item As Variant
myBorders = Array(xlEdgeLeft, _
xlEdgeTop, _
xlEdgeBottom, _
xlEdgeRight, _
xlInsideVertical)
This ia a recorded code to draw borders around cells on a given range
I am sure it can be shortened to 1-2 sentences!
Range("J11:O16").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic