|
More site info...
microsoft.public.excel.programming | Forum profile
|
|
Forum profile page for microsoft.public.excel.programming on http://www.microsoft.com/communities/newsgroups....
This report page is the aggregated overview from a single forum: microsoft.public.excel.programming, located on the Message Board at http://www.microsoft.com/communities/newsgroups....
This forum profile page summarizes the general forum statistics such as: Users Activity, Forum Activity, and Top Authors, which are reported in either a table or graph below for a given reporting time period.
Additional forum profile information for "microsoft.public.excel.programming" on the Message Board at http://www.microsoft.com/communities/newsgroups... is also shown in the following ways:
1) Latest Active Threads
2) Hot Threads for Last Week
Warning: These statistics are generated using 'best efforts' and can experience delays and reporting errors at times. Please note that such statistics do not constitute a forum's popularity and/or exact posting volumes at any given reporting period.
|
|
|
|
|
Posting activity on microsoft.public.excel.programming:
|
|
Week
|
Month
|
3 Months
|
|
Threads:
|
343
|
1,133
|
3,673
|
|
Post:
|
924
|
3,268
|
11,398
|
|
|
microsoft.public.excel.programming Posting activity graph:
|
Top authors during last week:
user's latest post:
Absolute value in...
Published (2009-11-27 23:51:00)
How about this array-entered** formula (change the range to suit your needs)... =SUM(ABS(A1:A100)) **Commit this formula using Ctrl+Shift+Enter, not just Enter by itself.
user's latest post:
Editing multiple controlsource...
Published (2009-11-27 20:54:00)
Try the below for the range ..textbox1 to textbox10 Private Sub UserForm_Initialize() Dim intCount as Integer For intCount = 1 To 10 UserForm1.Controls("Textbox" & intCount).ControlSource = "Sheet1!A" & intCount Next End Sub If this post helps click Yes --------------- Jacob Skaria "Roger on Excel" wrote: > I need to edit 100's of textbox...
user's latest post:
Help with OptionButtons on a...
Published (2009-11-27 20:31:00)
I created my first Userform with a pair of OptionButtons. So there two option buttons in my group and I need to know how to set or check one of the option buttons before or when the userform loads. How would I do this?? Btw, the option that gets set is going to depend on the contents of cell A1. so if cell A1 contains integer value of 1, then i want OptionButton1 to be set. If A1 == 2, then I want OptionButton2 to be set or...
user's latest post:
UserForm show question in...
Published (2009-11-26 21:01:00)
I am not sure I understand the question, but you can call a UserForm anytime from any code module because it is a separate object. But if it is already visible you cannot open a second instance of it. The TextBox has a double click event that could be used, but not a single click. There are other events such as enter and exit that could also be used to call a userform. You can view these events by creating a textbox from the...
user's latest post:
building array in...
Published (2009-11-27 11:11:00)
Make sure you have a DIM statement and start you dimension index at zero. YOu don't need preserve because you don't need to save any data you already put into the array. Dim aNewDbData() ReDim aNewDbData(0 To 1, 0 To iNoWks) -- joel ------------------------------------------------------------------------ joel's Profile: http://www.thecodecage.com/forumz/member.php?userid=229 View this thread:...
user's latest post:
Combine Ranges to Draw Borders...
Published (2009-11-27 09:36:00)
sub DoAllBorders() DrawBorders .Range("C" & lngFirstRow & ":E" & lngLastRow) DrawBorders .Range("F" & lngFirstRow & ":F" & lngLastRow) DrawBorders .Range("G" & lngFirstRow & ":G" & lngLastRow) DrawBorders .Range("H" & lngFirstRow...
user's latest post:
Increasing alphabectically in...
Published (2009-11-27 08:10:00)
I'll give you what you need to answer your question, however some of your syntax doesn't make sense. If you have other questions, come back. Option Explicit Sub test() Dim myRange As Excel.Range Dim r As Excel.Range Dim myWS As Excel.Worksheet Set myWS = Worksheets("Rates") Set myRange = myWS.Range("B2:X2") For Each r In myRange Debug.Print r.Address Debug.Print r.Offset(1,...
user's latest post:
Extracting names and titles in...
Published (2009-11-26 15:01:00)
"andreashermle" <andreas.hermle@gmx.de> wrote in message news:7bfec790-5975-41e7-ab0b-83a392929862@m3g2000yqf.googlegroups.com... On Nov 26, 6:24 pm, "Peter T" <peter_t@discussions> wrote: > Sub test() > Dim i As Long > Dim s As String > Dim sArr() As String > s = "Dr. med. Betty Eastwood" > sArr = Split(s,...
user's latest post:
Error on Autofill in...
Published (2009-11-27 11:40:00)
Just an afterthought Wally, If you do want the destination to commence at cell J7 then I think that you will have to use copy and paste.
user's latest post:
Looping through TextBoxes in...
Published (2009-11-27 16:01:00)
If you're in the userform_initialize event (or anywhere in the userform module), you could use: With Me (instead of With Userform1) so dim iCtr as long for ictr = 1 to 13 'lbound(myArray) to ubound(myArray) me.controls("txbox" & ictr).value = myarray(ictr) next ictr The names and array bounds have to be in sync. Al_82 wrote: > > I have a UserForm with an array of TextBoxes that...
|
|
|
|
Latest active threads on microsoft.public.excel.programming::
Started 1 day, 3 hours ago (2009-11-28 09:56:00)
by JLGWhiz
The sheet needs to be visible for that code to work.
"Robert Crandal" <nobody@gmail.com> wrote in message
news:sWcQm.5960$y%5.4997@newsfe03.iad...
> In my Workbook_Open() subroutine, I run the following line of code:
>
> Application.Goto Reference:=Sheets("Sheet1").Range("A1"), scroll:=True
>
> This code works ...
Started 1 day, 11 hours ago (2009-11-28 02:36:00)
by Peter T
Not sure about your particular issue but some observations.
- As written, previously unlocked cells get unlocked, then just one new cell
gets locked (iow previously locked cells get unlocked)
- The routine would only work one time, when the sheet was originally
unprotected (need to unprotect each time).
- There's no password...
Started 1 day, 9 hours ago (2009-11-28 04:06:00)
by Peter T
You asked about this before and I tried to ask you to clarify some things
before proposing a solution, but you didn't get back. Is this something new
or related to your previous question.
Regards,
Peter T
"Roger on Excel" <RogeronExcel@discussions.microsoft.com> wrote in message
news:F1D4BB14-44A7-4E7E-961F-...
Started 1 day, 17 hours ago (2009-11-27 20:02:00)
by FSt1
hi
no. when dealing with merged cell, you skew off into a totally different
concept.
note: i am totally opposed to using merged cells. dumbest thing excel
programers ever came up with. it may look pretty on the sheet but it screws
everthing else up.
so....stop using keywords that apply to unmerged cells(normal cells). use...
Started 1 day, 11 hours ago (2009-11-28 01:48:00)
by Mike H
Eric
If Weekday(Today) = 1 Or Weekday(Today) = 7 Or Hour(Now) > 16 Then
Mike
"Eric" wrote:
> The following code is not working, does anyone have any suggestions on how to
> fix the code for macro?
>
> If or(weekday(Today)=1,weekday(Today)=7,Hour(Now) > 16) Then
>
> Thanks in advance for ...
Started 2 days, 5 hours ago (2009-11-27 08:10:00)
by Barb Reinhardt
I'll give you what you need to answer your question, however some of your
syntax doesn't make sense. If you have other questions, come back.
Option Explicit
Sub test()
Dim myRange As Excel.Range
Dim r As Excel.Range
Dim myWS As Excel.Worksheet
Set myWS = Worksheets("Rates")
Set myRange = ...
|
|
Hot threads for last week on microsoft.public.excel.programming::
Started 6 days, 9 hours ago (2009-11-23 04:03:00)
by Sam Wilson
Hi,
You have to have the sheet open to get the data from it. The following is as
seamless a way as I can think of to leave the user unaware of this:
Sub test()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim wb As Workbook
Set wb = Workbooks. Open("C:\path\test.xls")...
Started 1 week, 2 days ago (2009-11-20 09:16:00)
by Mike H
Hi,
I wouldn't 'remove' the lines I'd copy the edited data elsewhere like this.
Change SrcSheet to the sheet containing data
DestSheet to where the data is to go
MyStep to the required step
Sub Mariner()
Dim DstSheet As String
Dim SrcSheet As String
Dim LastRow As Long, MyStep As Long
Dim ...
Started 1 week, 1 day ago (2009-11-21 05:54:00)
by Mike H
Try this
Right click the QA Toolbar and select Customise.
From the left dropdown choose 'Macros' and scroll to your macro and then
click ADD
On the right click modify and from the popup select an Icon
OK
Mike
"Gary''s Student" wrote:
> Excel 2007
>
> is it possible to put something on...
Started 4 days, 10 hours ago (2009-11-25 03:36:00)
by ab
I don't even know if you can do that without simply looping through
your temprange and then putting each value into your target range
according cell.
What you can certainly do (instead of the looping i mention above) is
actually copy/paste[transpose] it - something along these lines:
rngTemp.Copy
wsDest.Range("A" & ...
Started 5 days ago (2009-11-24 12:55:00)
by OssieMac
Hi Oldjay,
Note when copying a worksheet with the below method then the command buttons
with their associated VBA code will be copied with them. Therefore it is a
good idea to place most of the code in a standard module and just call the
code from the command buttons. That way you are not duplicating code
throughout your ...
Started 3 days, 2 hours ago (2009-11-26 10:51:00)
by Steve Yandl
Gordon,
Your idea to copy into a new file is a good option. The example below
assumes a workbook with three sheets. It will retain data and formatting
while leaving behind VBA in modules.
'-----------------------------------
Sub SaveWithoutMacro()
Dim intOpens As Integer
intOpens = Application....
Started 1 week ago (2009-11-21 15:24:00)
by Mike H
Hi,
When you dim your variable by default it is set as nothing which for an
integer variable is the same as zero which can be demonstrated with this bit
of code
Dim cnt As Integer
MsgBox cnt + 10
If you try this you will find the message box displays 10 so cnt was zero
Mike
"Pawan" wrote...
Started 2 days, 6 hours ago (2009-11-27 07:24:00)
by Barb Reinhardt
What specifically are you having issues with. I typically don't download
files from this site, but if there are questions you have, we may be able to
help.
Started 1 day, 11 hours ago (2009-11-28 01:48:00)
by Mike H
Eric
If Weekday(Today) = 1 Or Weekday(Today) = 7 Or Hour(Now) > 16 Then
Mike
"Eric" wrote:
> The following code is not working, does anyone have any suggestions on how to
> fix the code for macro?
>
> If or(weekday(Today)=1,weekday(Today)=7,Hour(Now) > 16) Then
>
> Thanks in advance for ...
Started 1 week, 2 days ago (2009-11-20 08:41:00)
by Barb Reinhardt
You may want to post your selectionchange code.
|
|