Search:
Type: Posts; User: vbfbryce
Search:
Search took 0.15 seconds.
-
-
I'm 3/4 of the way through both links, and again thanks! Looks like exactly what I need!
-
-
Hi guys and gals. I'm going to work on an app for landscape design, so the user will click on a shape in the "toolbox" and drop it onto their canvas, being able to move and size it appropriately. ...
-
For multiple filter criteria, something like:
Sub afilter()
Dim ws As Worksheet
Dim rng As Range
Set ws = ActiveSheet
Set rng = ws.Range("a1:a9") 'change to your range
-
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a:a")) Is Nothing Then
MsgBox "do something based on change in column A"
ElseIf Not...
-
As Pete says, a description of what you're trying to accomplish would be helpful.
Having said that, if you fix the errors he mentions, I don't think you'd like the results. If you change a value...
-
You're very welcome, glad it worked for you!
-
Assuming you've already inserted a module, this would make whatever text is selected BOLD and SHADOWED:
Sub makeBold()
ActiveWindow.Selection.TextRange.Font.Bold = msoTrue
...
-
Assuming you have cells on that sheet with the border style you want, you could copy that to the range from which you unlist the table, like:
rng1.Borders(xlEdgeRight).LineStyle =...
-
What type is AC, and what are the values of LBED and WBED when the error happens?
-
Check to see if "sOutputFileName" contains a valid file name. It's telling you that file doesn't exist when you try to open it to read.
-
Do you have a reference to "ArduinoExcel?"
-
What does strSQL contain when you run it?
-
Wasn't trying to heckle you, thought maybe it was different in a different version of Excel.
:)
-
Pete,
What do you mean you can't join strings with &?
I have Jon in B1, and car in C1, and this gives me Jon's car in D1:
Sub makeFormula()
Dim ws As Worksheet
Dim rng As Range
-
I don't think a cell's contents can be updated on a protected sheet using those arguments. "UserInterfaceOnly" protects the "interface" but not macros. Why don't you turn the protection off via...
-
Something like this:
Sub getVal()
Dim wb As Workbook
Dim wsC As Worksheet
Dim wsD As Worksheet
Dim lr As Long
Dim J As Long
Dim found As Boolean
-
How do you want this to be triggered? Click a button and choose the OoO pattern? Starting, or exiting Outlook? Other?
-
Make sure the MultiLine property of your text box is set to true, then:
If Len(TextBox1.Text) = 0 Then
TextBox1.Text = "something" 'change to your text to add
Else
...
-
Sample attached, with code I posted earlier.
-
You're getting that because the Copy and Paste areas aren't then same size. The copy area is entire columns, yet the paste area starts in row 18, so not an entire column. i'd suggest finding the...
-
I have various dates from D1 down to Dxx. I have other dates in columns F - I. In both cases, there is no header for the column(s).
Sub matchDates()
Dim ws As Worksheet
Dim lrD As...
-
Range("a1:d20").Copy ' change range to suit
You would qualify this, something like:
wsSummary.Range("a1:d20").Copy ' change range to suit
You'd need to set wsSummary first.
-
Explain a little more exactly what you're trying to do, please.
-
Good point. I tested with only one hyperlink on the sheet.
-
I tested it. Works like a charm!
-
I believe it would work if you used Defined Names rather than a Cell Reference.
-
I think ChartValues is a string array, and needs to be converted to numbers. I would suggest creating a second array of some numeric type and populating it from ChartValues, then use the 2nd array...
-
Are you trying to automatically create a reply, based on (and at the time of) receiving emails from these specific recipients, with the added text somewhere in the reply? Or are you wanting to...
-
Can you zip and attach an example of the file?
-
Works fine for me. As long as the first character in B7 is a number. What do you have in B7?
Also, like SH says, there's no point in multiplying by 1. Are you thinking that will make it an...
-
Maybe check this out:
https://social.technet.microsoft.com/Forums/Azure/en-US/db3b4dff-aad7-4d88-87cc-8f3f117be550/microsoft-windows-common-controls-60-for-office-2016
-
As Pete states, if you're using the code within Powerpoint, no additional references are required. If you're doing it within Visual Studio, then, yes, you'd need a reference to the Powerpoint object...
-
Still don't understand exactly, but maybe something like this:
Sub getText()
Dim activeShape As Shape
Dim shp As Shape
Dim pres As Presentation
Dim sld As Slide
...
-
I'm confused. If you're selecting the text manually, why do you need code to copy it? Please explain more fully.
-
Thanks for the direction. I found out one is a Listview4, will need to check the other.
They are indeed two different versions.
Thanks!
-
Our shop floor computers all had Windows 7 up until a couple of weeks ago. Some have been upgraded to Win 10. They all have Excel 2010.
I developed an app that employs a userform with only three...
-
Mine is named "txtTop" and this is the code I'm using to change the values on each slide:
Sub formatTB()
Dim pres As Presentation
Dim sld As Slide
Dim shp As Shape
Dim J As...
-
How are you defining "the text box in question?" Does the "one at the top" have a consistent name on each slide?
|
Click Here to Expand Forum to Full Width
|