Hi Basole,
Thanks for changes on the file to ABC.xlsm and the temperatures column.
It takes time for me to digest your professional codes. I hope you don;t
mind if I ask too many questions.
Here are the questions on below:-
1) You have identify the name of the sheets, for example, Range("d" &
sheet1.Range("d1").Offset(sheet1.Rows.Count - 1, 0).End(xlUp).Row + 1) = cl.
Can we name the workbook in vba code editor such as ,
book1 = "ABC.xlsm"
sheet1 = "sheet1"
Range("d" & book1. sheet1.Range("d1").Offset(book1. sheet1.Rows.Count - 1,
0).End(xlUp).Row + 1) = cl
2) Correct me if i am wrong here, most of your codes are - Range("e" &
sheet1.Range("e1"), Range("f" & sheet1.Range("f1").Offset, Range("c" &
sheet1.Range("c1").Offset..... and the rest.Offset, are removing the cell
from entering the data which is on the first row.
3) Can you make me understand on the other half, (sheet1.Rows.Count - 1,
0).End(xlUp).Row + 1) = cl and
(sheet1.Rows.Count - 1, 0).End(xlUp).Row + 1).NumberFormat = "hh.mm am/pm"
4) Can you make me understand the codes as below:-
Public Function CountChrInString(Expression As String, Character As String)
As Long
Dim iResult As Long
Dim sParts() As String
sParts = Split(Expression, Character)
iResult = UBound(sParts, 1)
If (iResult = -1) Then
iResult = 0
End If
CountChrInString = iResult
End Function
Function CheckForNumber(strg As String) As Boolean
Dim i As Integer
For i = 1 To Len(strg)
If IsNumeric(Mid(strg, i, 1)) Then
CheckForNumber = True
Exit Function
End If
Next i
End Function
Function ContainDigit(sText As String) As Boolean
ContainDigit = (sText Like "*#*")
End Function
6) Thirdly, even we click the stop button at the vba code editor, but the
excel application still runs, any reason?
I did not understand which button you refer to?
Please refer the image as below:- ( highlighted in black box)
<https://lh3.googleusercontent.com/-cD2hakAEUCg/U0JVb375q6I/AAAAAAAAAFw/cCW6gcG8wqM/s1600/vbabtn.png>
It still can run the "Start Code" button or "Clean" button.
<https://lh3.googleusercontent.com/-payxCrdN1YA/U0JV1aIPGzI/AAAAAAAAAF4/FD1gncMZ3xQ/s1600/excelapp.png>
We hope to hear from you.
Thanks.
Falina
On Monday, April 7, 2014 12:04:41 PM UTC+8, Basole wrote:
>
> Dear Falina Gan,
>
> Thank you very much.
>
> See the attachment, the answers to your questions are in the spreadsheet.
>
> Regards,
>
> Basole.
>
>
>
>
> 2014-04-06 12:42 GMT-03:00 Falina Gan <fali...@gmail.com <javascript:>>:
>
>> Hi Basole,
>>
>> While testing your application, how can we do the error handling when the
>> numbers are not suppose in the text column? Refer the image as below:-
>>
>> Thank you.
>>
>>
>> <https://lh4.googleusercontent.com/-yyG9qgr10e0/U0F1wnfs6gI/AAAAAAAAAFg/-0W_obNfhIM/s1600/abc1.jpg>
>>
>>
>> On Sunday, April 6, 2014 11:25:31 PM UTC+8, Falina Gan wrote:
>>
>>> Hi Basole,
>>>
>>> Thank you for your brilliant codes especially you have identify which
>>> sheets that we need to run the application. May I ask how about the project
>>> name such as ABC.xlsm?
>>>
>>> Secondly, the symbol @ is for any string?
>>>
>>> Thirdly, even we click the stop button at the vba code editor, but the
>>> excel application still runs, any reason?
>>>
>>> Can we put a "temperature or degree column" in for column F? how do we
>>> do it in vba?
>>>
>>> We hope to hear from you.
>>>
>>>
>>>
>>> On Sunday, April 6, 2014 9:22:13 AM UTC+8, Basole wrote:
>>>>
>>>> Hi Falina,
>>>>
>>>> See the attachment
>>>>
>>>> I inserted the explanation in the commentary of the vba code editor.
>>>> Corrected some errors and drafted the macro.
>>>>
>>>> Regards,
>>>>
>>>> Basole.
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>> 2014-04-05 1:52 GMT-03:00 Falina Gan <fali...@gmail.com>:
>>>>
>>>>> Thanks Basole,
>>>>>
>>>>> The codes are running well but can I ask from your codes for my
>>>>> understanding as a learner. Could you explain as below:-
>>>>>
>>>>> 1) z = sheet1.Range("a1").Offset(sheet1.Rows.Count - 1,
>>>>> 0).End(xlUp).Row
>>>>>
>>>>> 2) Set cl = .Cells(i, 1)
>>>>>
>>>>> 3) Case IsEmpty(cl)
>>>>> Case InStr(cl.NumberFormat, ":mm") > 0
>>>>> Range("e" & sheet1.Range("e1").Offset(sheet1.Rows.Count
>>>>> - 1, 0).End(xlUp).Row + 1) = cl
>>>>>
>>>>> 4) Range("c" & sheet1.Range("c1").Offset(sheet1.Rows.Count - 1,
>>>>> 0).End(xlUp).Row + 1) = cl
>>>>>
>>>>> 5) If a user key in a data, for example, today's date, does it affect
>>>>> the codes as well?
>>>>>
>>>>> Hope to hear from your good solutions.
>>>>>
>>>>>
>>>>>
>>>>> On Friday, April 4, 2014 11:41:19 PM UTC+8, Falina Gan wrote:
>>>>>>
>>>>>> To Whom It May Concern,
>>>>>>
>>>>>> May I ask, how to you create a vba to identify whether the text or
>>>>>> integer or date or time in a table such as:-
>>>>>>
>>>>>> Thanks.
>>>>>>
>>>>>> --
>>>>> Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be?
>>>>> It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
>>>>> https://www.facebook.com/discussexcel
>>>>>
>>>>> FORUM RULES
>>>>>
>>>>> 1) Use concise, accurate thread titles. Poor thread titles, like
>>>>> Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need
>>>>> Advice will not get quick attention or may not be answered.
>>>>> 2) Don't post a question in the thread of another member.
>>>>> 3) Don't post questions regarding breaking or bypassing any security
>>>>> measure.
>>>>> 4) Acknowledge the responses you receive, good or bad.
>>>>> 5) Jobs posting is not allowed.
>>>>> 6) Sharing copyrighted material and their links is not allowed.
>>>>>
>>>>> NOTE : Don't ever post confidential data in a workbook. Forum owners
>>>>> and members are not responsible for any loss.
>>>>> ---
>>>>> You received this message because you are subscribed to the Google
>>>>> Groups "MS EXCEL AND VBA MACROS" group.
>>>>> To unsubscribe from this group and stop receiving emails from it, send
>>>>> an email to excel-macros...@googlegroups.com.
>>>>> To post to this group, send email to excel-...@googlegroups.com.
>>>>> Visit this group at http://groups.google.com/group/excel-macros.
>>>>> For more options, visit https://groups.google.com/d/optout.
>>>>>
>>>>
>>>> --
>> Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
>> =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
>> https://www.facebook.com/discussexcel
>>
>> FORUM RULES
>>
>> 1) Use concise, accurate thread titles. Poor thread titles, like Please
>> Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
>> will not get quick attention or may not be answered.
>> 2) Don't post a question in the thread of another member.
>> 3) Don't post questions regarding breaking or bypassing any security
>> measure.
>> 4) Acknowledge the responses you receive, good or bad.
>> 5) Jobs posting is not allowed.
>> 6) Sharing copyrighted material and their links is not allowed.
>>
>> NOTE : Don't ever post confidential data in a workbook. Forum owners and
>> members are not responsible for any loss.
>> ---
>> You received this message because you are subscribed to the Google Groups
>> "MS EXCEL AND VBA MACROS" group.
>> To unsubscribe from this group and stop receiving emails from it, send an
>> email to excel-macros...@googlegroups.com <javascript:>.
>> To post to this group, send email to excel-...@googlegroups.com<javascript:>
>> .
>> Visit this group at http://groups.google.com/group/excel-macros.
>> For more options, visit https://groups.google.com/d/optout.
>>
>
>
--
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
https://www.facebook.com/discussexcel
FORUM RULES
1) Use concise, accurate thread titles. Poor thread titles, like Please Help,
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.
NOTE : Don't ever post confidential data in a workbook. Forum owners and
members are not responsible for any loss.
---
You received this message because you are subscribed to the Google Groups "MS
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.
