Search For:

Try




strName = lstMailTo.List(lstMailTo.ListIndex, 0) 'first column
strEmail = lstMailTo.List(lstMailTo.ListIndex, 1) 'second column

It is probably overkill, but if you wanted to use a function with Insomniacs suggestion of CDate() it is simple enough to change my original one;




Function ConvertTime(ByRef dtValue As Date)...

You can try this




Function ConvertTime(ByRef strValue As String) As String

If strValue <> "" Then
ConvertTime = Format$(strValue, "mmddyyyy_hhmmssAM/PM")
End If

Welcome to the forum!

If you are wanting to fill down with the formula you can use;




=IF(OR($C1="",$B1=""),"",($C1+$B1)-$A1)

Untested..but you can try




Dim ComboX(10,4) As MsForms.ComboBox

'...............

Set ComboX(1, 1) = UserForm5.Controls("combo_name")

Still working on my first cup of coffee so I am not sure I am following exactly, but you could Filter the recordset as you mentioned and when you do so it does moves to the first record of the...

No, you cannot, at least not with ADO, you can Filter it, but you cannot query against an existing recordset.

Look at the .GetRows() method, it returns an array from your recordset and allows you to pull in only the field you are wanting.




Dim varArray
Dim rs As ADODB.Recordset

'code to to set...

If you are using ADO, you could do something along the lines of;




Dim rsOne as New ADODB.Recordset
Dim rsTwo as New ADODB.Recordset

'rsOne is where you are pulling the all 3 fields in...

You can also use another SQL string to do it




CREATE INDEX NewIndex ON <table_name>(<field>) WITH PRIMARY



If you were using multiple fields for the primary key you would use

More than likely, the company purchased the office license that your boss was using to develop the applications and his work was related to company information, so my thoughts are that this would...

Try this.

Put this formula into C8 of the Preload workbook and copy down. You will need to change the path of the Master workbook.

=VLOOKUP(B8,'C:\<change to directory path on your...

You can try this.




With Range("A1").End(xlDown)
.Resize(1, 11).Copy Destination:=Range("A1").End(xlDown).Offset(1, 0)
.Offset(1, 10).Select
End With

Welcome to the forum.

Can you post the macro code of what you have so far and we can probably tweak that to do what you want.

If I understand the question, are you saying you essentially want two identical projects that are running the same code, only you want one to run uninterrupted, while in the other you are stepping...

I think Rich_z may have identified your problem.

From your description




It sounds like you have some global or modular level variables that are not being cleared when entering the...

You could also try



'...start of code

For i = 1 To UBound(vaData)

If IsNumeric(vaData(i, 1)) And LenB(vaData(i, 1)) > 0 Then
vaData(i, 1) = vaData(i, 1) * 1

Try

=SUMPRODUCT((Sheet1!$A$1:$A$100="MON")*(Sheet1!$B$1:$B$100="RAIN"))

If there is some code behind the live feed you could do something there such as making the window automatically minimized or the application visible = false, but otherwise I am unaware of anything at...

Welcome to the forum.

You can try this.




=If(IsErr(LOOKUP(M9,Sheet2!D3:F11)*(M9-Sheet2!E11)),"",LOOKUP(M9,Sheet2!D3:F11)*(M9-Sheet2!E11))

One way would be to add some named ranges for the entries.

I added a namedrange called "StartRange" that refers to Date Field in the transmission table and I added a named range called...

You can try this if the answers to my previous post were correct.

If this is not correct, please post back and I can help out.

Okay, I have a few questions.

1. In your file the table with the "Transmission Log" do you always want to take the last row with data?
2. Once this data is selected as wanting to be copied will...

That tells the DateDiff function to return the resulting difference in dates in Days.



I don't know, the logic is up to you in how you are wanting to compare it. If the data to be copied will...

Welcome to OZ.

This may not be exactly what you are looking for but hopefully it will be a start.




Sub CheckAndCopy()
Dim c As Range