I am using this sql statement called from a class module
RST.Open "select DISTINCT REPNAME, E_MAILADDR, ILEC, LEVEL] from escalateemail where ilec = " & "'" & strIlec & "'" & " AND " & strState & " = 1 order by [level]", CN, adOpenForwardOnly...
I need to populate some cells in Excel through VB
I origionaly use
Set sht = wb.Sheets("NameOfSheet")
then I poulate the cells I need
now I need to change to the next sheet in the workbook.
when I use.
Set sht = wb.Sheets("NextSheet'sName")
I don't get an error but my...
I'm reading a recordset and creating a string to be used in a select case.
Do While Not rsT.EOF
strLinked = """ & Trim(rsT(1)) & "", " & strLinked
rsT.MoveNext
Loop
I can't get it to give me a string of
"rst(1)", "rst(1)", and so...
I need to load a rather large recordset (aprox 140,000 records) and populate a flex grid. It blows up at 35,000. Anyone know if that is in fact the max rows count?
Any suggestions or alternatives? I can't split the record set.
I'm trying to load a large recordset into a flexgrid.
The rec-count is 37214 records. When I check absolute position I'm at 3500 when it blows up giving me the error 7. Could it be this is max records allowed in a grid or could there be a system memory problem? Any help would be greatly...
I use this code to lay out my pagesetup
sht.PageSetup.PrintArea = ("A:n")
sht.PageSetup.BottomMargin = 0
sht.PageSetup.TopMargin = 0
sht.PageSetup.RightMargin = 0
sht.PageSetup.LeftMargin = 0
sht.PageSetup.CenterHorizontally = True...
I need to change the format of a column to "number" from "general" and have not been able to get it so far. Here is the code any suggestions?
sht.Range("d:d").ColumnWidth = 15
sht.Range("D3").Value = "CLAIM #"...
I need to change the format of a column in excel to "number" from "general" and have had no luck getting it to work. Below is the code.
Any suggestions?
sht.Range("d:d").ColumnWidth = 15
sht.Range("D3").Value = "CLAIM #"...
I'm trying to trouble shoot a program while the designer is on vacation. It's a 3 tier which uses a class to export reports to excel. when I try to step through the code I get an "automation error...This system cannot find the path specified" The code calls a new instance of the...
I have a FG where I need to merge the cells in some of the top rows giving the report name, dates, and when there is no data in the report it says on the last line "NO RECORDS TO REPORT". as I step through the code and use the immediate window I can see the values are correct but the...
I am making a function in a class to return 2 fields from a table in SQL 7 this is the code
Public Function GetReCurChgs(strCustno As String) As String
Dim rsTemp As ADODB.Recordset
Set rsTemp = New ADODB.Recordset
rsTemp.Open "select chg_desc,chg_amt from rcufil...
Hi there,
I'm working on an app in which I need to use 2 main forms and a separate area for notes. I would like to create a form similar to the help files (2 halves of a form with a bar in between to resize). I will need to switch the contents on one side between the 2 main forms while...
100+ page document is password protected in WORD '95 (I believe 95). Person who did origional password protected it and didn't record it and of course is no longer working.
I used this line in my code
Worksheets("worksheet6(R S Cont.(2))")!Range!(T33:AI33").Value = ""
and I get the error "out of range"
the cell range is there on ws6 I don't get it any suggestions?
Thanks
Matt
To all who have helped with the previous posts I thank you again. That issue is resolved. My trouble now is creating a formula that evaluates the text in one cell and depending on what it is change the text in another.
ex
cell a1 = "sunglasses"
now if cell a1 on sheet2 =...
Has anyone had success with a cell merge macro for the purpose of splitting one cells data to fill several cells?
ex.
cell a1=123456 {tab}
macro splits and merges cells so
a1:a6 = 1 2 3 4 5 6 respectively one digit per cell
what do you think?
I'm all ears
[bigears]
I need to develope a keypress event in Excel where a value typed into a cell can be evaluated without pressing enter or tab or anything. I have a loop the evaluates the
len(activecell.value), if 1 it moves to the next cell and sends focus to the worsheet selectionchange_event where I call the...
I have a spreadsheet that I am using a macro to move to the next cell if len(text)= 1. I have not found a way yet to fire the macro with every keystorke. I tried the worsheet change event but you have to press enter for it to work.
Any suggestions would be greatly appreciated
Matt
I have an application in excel in which we would like to use one cell per letter much like a form. I have a macro in a modual evaluating the len(activecell.value)
if > 0 I want it to move to the next unlocked cell.
Dim varCol As Variant
Dim varRow As Variant
Dim varCell As Variant '
' autotab...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.