microsoft.public.excel.programming | Forum profile

  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.

  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...

  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...

  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...

  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:...

  sub DoAllBorders() DrawBorders .Range("C" & lngFirstRow & ":E" & lngLastRow) DrawBorders .Range("F" & lngFirstRow & ":F" & lngLastRow) DrawBorders .Range("G" & lngFirstRow & ":G" & lngLastRow) DrawBorders .Range("H" & lngFirstRow...

  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,...

  "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,...

  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.

  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...