RE: $$Excel-Macros$$ Total Count of Unique ID's
=SUMPRODUCT(1/COUNTIF(A2:A595,A2:A595)) Actually this formula first count the all values (a2:a595)in full range (a2:a595) then divide 1 by count of all values and add those with help of sumprduct Just like simple eg:- if count of any value is 4 so countif formula will calculate {4;4;4;4} then if we will divide this like 1/{4;4;4;4;) then result will be {.25;.25;.25;.25} and sumproduct will sum this and ans will b 1. From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of Amit Desai (MERU) Sent: Tuesday, September 24, 2013 11:08 AM To: excel-macros@googlegroups.com Subject: RE: $$Excel-Macros$$ Total Count of Unique ID's Very short Cute formula... Thanks a lot for sharing this with group. Can you please explain how it is calculating. I have tried to check each piece of formula but could not got a clue only =COUNTIF(A2:A595,A2:A595) is giving me 0 as result! -J Also if you can share other uses of SUMPRODUCT. From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of Excel Beginner Sent: 24 September 2013 00:01 To: excel-macros@googlegroups.com Subject: RE: $$Excel-Macros$$ Total Count of Unique ID's Hi Ashish, Use this =SUMPRODUCT(1/COUNTIF(A2:A595,A2:A595)) Regards, Excel Beginner From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of Ashish Kumar Sent: Monday, September 23, 2013 11:49 AM To: excel-macros@googlegroups.com Subject: $$Excel-Macros$$ Total Count of Unique ID's Dear Seniors, I want total count of unique User ID's. These are 594 ID's in data. But unique is 308. I want only unique user ID's count. and the output is 308 which i want. kindly help. and find the attachment. Thanks, Ashish -- 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/groups/opt_out. _ No virus found in this message. Checked by AVG - www.avg.com Version: 2012.0.2242 / Virus Database: 3222/6192 - Release Date: 09/23/13 -- 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/groups/opt_out. _ Disclaimer: This message and its attachments contain confidential information and may also contain legally privileged information. This message is intended solely for the named addressee. If you are not the addressee indicated in this message (or authorized to receive for addressee), you may not copy or deliver any part of this message or its attachments to anyone or use any part of this message or its attachments. Rather, you should permanently delete this message and its attachments (and all copies) from your system and kindly notify
Re: $$Excel-Macros$$ Total Count of Unique ID's
Try the below formula: =SUM(1/COUNTIF(A2:A595,A2:A595)) After entering this formula, you must press *Ctrl-Shift-Enter.* It will give the desired result*. * Best, Manoj Kumar* * On Mon, Sep 23, 2013 at 11:48 AM, Ashish Kumar kumar.ashish...@gmail.comwrote: Dear Seniors, I want total count of unique User ID's. These are 594 ID's in data. But unique is 308. I want only unique user ID's count. and the output is 308 which i want. kindly help. and find the attachment. Thanks, Ashish -- 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/groups/opt_out. -- 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/groups/opt_out. Count - Query_MKV.xlsx Description: application/vnd.openxmlformats-officedocument.spreadsheetml.sheet
RE: $$Excel-Macros$$ Need experts help ***URGENT***
Could u pls provide the specific file (slave) in which you are facing this prob. From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of Indrajit $nai Sent: Tuesday, September 24, 2013 3:48 AM To: excel-macros@googlegroups.com Subject: Re: $$Excel-Macros$$ Need experts help ***URGENT*** Hi Experts / Ravinder / Anil, I need a small update on that file, which you guys had updated. I need to collect data from almost 500 + files, and the macro is doing it's job pretty well. :) But facing a new issue, suppose I am collecting this data from the slave files on readonly mode, but whenever closing this slave files, the master file getting a pop-up message, now you can open the file . Read-write mode or Read-only mode, this is slowing up (hanging) master file data collecting work. :( Can you guys have a quick glance on it and making it bit more user friendly. Thanks in advance for all of your support and valuable time. Thanks Regards, Indrajit talk2indra...@gmail.com Disclaimer: This electronic message and any files transmitted with it are confidential and intended solely for the use of the individual or entity to whom they are addressed. If you are not the intended recipient you are hereby notified that any disclosure, copying, distribution or taking any action in reliance on the contents of this information is strictly prohibited and may be unlawful. On Thu, Sep 19, 2013 at 1:54 PM, Indrajit $nai talk2indra...@gmail.com wrote: Thanks a lot bro. :D It works like a charm. :D -- Indrajit Disclaimer: This electronic message and any files transmitted with it are confidential and intended solely for the use of the individual or entity to whom they are addressed. If you are not the intended recipient you are hereby notified that any disclosure, copying, distribution or taking any action in reliance on the contents of this information is strictly prohibited and may be unlawful. On Thu, Sep 19, 2013 at 12:53 PM, Ravinder ravinderexcelgr...@gmail.com wrote: Pfa... From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of Indrajit $nai Sent: Thursday, September 19, 2013 12:49 PM To: excel-macros@googlegroups.com Subject: Re: $$Excel-Macros$$ Need experts help ***URGENT*** Both of you are simply AWESOME!!! Just need a small change, I actually want consolidate a particular range from the salve files, like from A3:L3, not the whole file, actually it's consolidating the whole file! Guys can you do some changes on it, and revert me the same. Thanks in advance. -- Indrajit Disclaimer: This electronic message and any files transmitted with it are confidential and intended solely for the use of the individual or entity to whom they are addressed. If you are not the intended recipient you are hereby notified that any disclosure, copying, distribution or taking any action in reliance on the contents of this information is strictly prohibited and may be unlawful. On Thu, Sep 19, 2013 at 4:33 AM, Indrajit $nai talk2indra...@gmail.com wrote: Hi Experts, I am facing some problem with this macro file, actually the macro is running pretty well, but need some changes on it, which I am not able to do, kindly try to sort out the below requirements: 1. Suppose I have too many files with the same column headers (like the master file) in a particular folder, but I just want to copy the data from Cell A3:L3 (from each files) and paste it in the master tracker (PFA). 2. If the some of the slave files are in read-only mode, still the master fill will be able to copy and paste the data from all the slave files. Thanks in advance for your kind support. -- Indrajit Disclaimer: This electronic message and any files transmitted with it are confidential and intended solely for the use of the individual or entity to whom they are addressed. If you are not the intended recipient you are hereby notified that any disclosure, copying, distribution or taking any action in reliance on the contents of this information is strictly prohibited and may be unlawful. -- 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.
RE: $$Excel-Macros$$ Calculating Euclidean distance in 2 dimension 3 dimension
I don’t know more about this. U can use like below; =SQRT((x2 – x1)^2 + (y2 – y1)^2 + (z2 – z1)^2) From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of Debasish Sahu Sent: Monday, September 23, 2013 6:36 PM To: excel-macros@googlegroups.com Subject: $$Excel-Macros$$ Calculating Euclidean distance in 2 dimension 3 dimension Can somebody help me calculating euclidean distance for the attached sample file. Column 2, 3 4 contains X, Y Z information of samples for which the euclidean distance is required to be calculated. The formula for the Euclidean distance in 3d 2d are mentioned below. I am finding difficult to calculate as i need to calculate it between each sample with all other samples. Please help d = √((x2 – x1)2 + (y2 – y1)2 + (z2 – z1)2) d = √((x2 – x1)2 + (y2 – y1)2) Thanks regards, Debasish -- 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/groups/opt_out. -- 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/groups/opt_out.
Re: $$Excel-Macros$$ Re: Required the file like the output file.
Try this code.. Sub test() Application.ScreenUpdating = False Dim sh As Object Dim i As Integer Dim nwkb As Object Dim lrow As Long Set nwkb = Workbooks.Add nwkb.Sheets(1).Cells(1, 1).Value = Date nwkb.Sheets(1).Cells(1, 2).Value = Emp code nwkb.Sheets(1).Cells(1, 3).Value = Time nwkb.Sheets(1).Cells(1, 4).Value = DDMM nwkb.Sheets(1).Cells(1, 5).Value = HHMM nwkb.Sheets(1).Cells(1, 6).Value = Empcd nwkb.Sheets(1).Cells(1, 7).Value = Final output ThisWorkbook.Activate For Each sh In ThisWorkbook.Sheets For i = 1 To sh.Cells(Rows.Count, 1).End(xlUp).Row For j = 4 To sh.Cells(1, Columns.Count).End(xlToLeft).Column If sh.Cells(i, 1).Value sh.Cells(i + 1, 1).Value Then lrow = nwkb.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row + 1 nwkb.Sheets(1).Cells(lrow, 1).Value = sh.Cells(1, j).Value nwkb.Sheets(1).Cells(lrow, 2).Value = sh.Cells(i + 1, 1).Value nwkb.Sheets(1).Cells(lrow, 3).Value = sh.Cells(i + 1, j).Value End If Next j Next i Next sh nwkb.Activate Cells.Columns.AutoFit Application.ScreenUpdating = True End Sub -- 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/groups/opt_out.
Re: $$Excel-Macros$$ Re: Required the file like the output file.
Dear Deepak , But here the outtime is missing Warm Regards, Gawli Anil Thanks Regards, Gawli Anil Narayan Software Developer, Abacus Software Services Pvt Ltd On Tue, Sep 24, 2013 at 1:33 PM, Deepak Singh dpk85si...@gmail.com wrote: Try this code.. Sub test() Application.ScreenUpdating = False Dim sh As Object Dim i As Integer Dim nwkb As Object Dim lrow As Long Set nwkb = Workbooks.Add nwkb.Sheets(1).Cells(1, 1).Value = Date nwkb.Sheets(1).Cells(1, 2).Value = Emp code nwkb.Sheets(1).Cells(1, 3).Value = Time nwkb.Sheets(1).Cells(1, 4).Value = DDMM nwkb.Sheets(1).Cells(1, 5).Value = HHMM nwkb.Sheets(1).Cells(1, 6).Value = Empcd nwkb.Sheets(1).Cells(1, 7).Value = Final output ThisWorkbook.Activate For Each sh In ThisWorkbook.Sheets For i = 1 To sh.Cells(Rows.Count, 1).End(xlUp).Row For j = 4 To sh.Cells(1, Columns.Count).End(xlToLeft).Column If sh.Cells(i, 1).Value sh.Cells(i + 1, 1).Value Then lrow = nwkb.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row + 1 nwkb.Sheets(1).Cells(lrow, 1).Value = sh.Cells(1, j).Value nwkb.Sheets(1).Cells(lrow, 2).Value = sh.Cells(i + 1, 1).Value nwkb.Sheets(1).Cells(lrow, 3).Value = sh.Cells(i + 1, j).Value End If Next j Next i Next sh nwkb.Activate Cells.Columns.AutoFit Application.ScreenUpdating = True End Sub -- 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/groups/opt_out.
Re: $$Excel-Macros$$ Re: Required the file like the output file.
Hi Anil, You did not mention the Outtime in your Output sheet..following heading are there in that sheet Date Emp code Time DDMM HHMM Empcd Final output -- 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/groups/opt_out.
Re: $$Excel-Macros$$ Re: Required the file like the output file.
Dear Deepak , See the Output file outitme is mentioned in the same field of Time field. Warm Regards, Gawli Anil Thanks Regards, Gawli Anil Narayan Software Developer, Abacus Software Services Pvt Ltd On Tue, Sep 24, 2013 at 2:26 PM, Deepak Singh dpk85si...@gmail.com wrote: Hi Anil, You did not mention the Outtime in your Output sheet..following heading are there in that sheet Date Emp code Time DDMM HHMM Empcd Final output -- 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/groups/opt_out.
$$Excel-Macros$$ How to paste all the values in the text field of a web page
Hi, with the followong code I can able to paste the all the values from the excel sheet to the webpage.But if while pasting the second value the first value is getting replaced. So finally I can paste only the last cell value. I want all the range of values to be entered in the text filed. Please help me in resloving this. [code] Sub GetTable() Dim ieApp As InternetExplorer 'Dim ieDoc As Object Dim ie As Object Dim ieTable As Object Dim finalrow As Variant Range(A1).Activate colno = ActiveCell.Column MsgBox (colno) Range(A1).Select finalrow = Cells(Rows.Count, 1).End(xlUp).Row MsgBox (finalrow) 'create a new instance of ie 'Set ieApp = CreateObject(InternetExplorer.application) Set ie = CreateObject(InternetExplorer.application) ie.Visible = True ie.navigate http://abcde.com; Do Loop Until ie.readyState = READYSTATE_COMPLETE Application.Wait DateAdd(s, 3, Now) While ie.Busy DoEvents Wend For i = 2 To finalrow ' abcde is element id, if you forget then read the step number 2 again ie.document.getelementbyid(Email).Value = Cells(i, colno).Value Application.Wait (Now + TimeValue(0:00:10)) 'MsgBox Time expired Next [/code] -- 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/groups/opt_out.
Re: $$Excel-Macros$$ Re: Required the file like the output file.
Try this one.. Sub test() Application.ScreenUpdating = False Dim sh As Object Dim i As Integer Dim nwkb As Object Dim j As Long Dim lrow As Long Set nwkb = Workbooks.Add nwkb.Sheets(1).Cells(1, 1).Value = Date nwkb.Sheets(1).Cells(1, 2).Value = Emp code nwkb.Sheets(1).Cells(1, 3).Value = Time nwkb.Sheets(1).Cells(1, 4).Value = DDMM nwkb.Sheets(1).Cells(1, 5).Value = HHMM nwkb.Sheets(1).Cells(1, 6).Value = Empcd nwkb.Sheets(1).Cells(1, 7).Value = Final output ThisWorkbook.Activate For Each sh In ThisWorkbook.Sheets For i = 1 To sh.Cells(Rows.Count, 1).End(xlUp).Row For j = 4 To sh.Cells(1, Columns.Count).End(xlToLeft).Column If sh.Cells(i, 1).Value sh.Cells(i + 1, 1).Value Then lrow = nwkb.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row + 1 nwkb.Sheets(1).Cells(lrow, 1).Value = sh.Cells(1, j).Value nwkb.Sheets(1).Cells(lrow, 2).Value = sh.Cells(i + 1, 1).Value nwkb.Sheets(1).Cells(lrow, 3).Value = sh.Cells(i + 1, j).Value nwkb.Sheets(1).Cells(lrow + 1, 1).Value = sh.Cells(1, j).Value nwkb.Sheets(1).Cells(lrow + 1, 2).Value = sh.Cells(i + 1, 1).Value nwkb.Sheets(1).Cells(lrow + 1, 3).Value = sh.Cells(i + 2, j).Value End If Next j Next i Next sh nwkb.Activate Cells.Columns.AutoFit Application.ScreenUpdating = True End Sub -- 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/groups/opt_out.
RE: $$Excel-Macros$$ How to paste all the values in the text field of a web page
Not able to access website and not getting how its working. From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of Menaka Balakrishnamoorthy Sent: Tuesday, September 24, 2013 2:42 PM To: excel-macros@googlegroups.com Subject: $$Excel-Macros$$ How to paste all the values in the text field of a web page Hi, with the followong code I can able to paste the all the values from the excel sheet to the webpage.But if while pasting the second value the first value is getting replaced. So finally I can paste only the last cell value. I want all the range of values to be entered in the text filed. Please help me in resloving this. [code] Sub GetTable() Dim ieApp As InternetExplorer 'Dim ieDoc As Object Dim ie As Object Dim ieTable As Object Dim finalrow As Variant Range(A1).Activate colno = ActiveCell.Column MsgBox (colno) Range(A1).Select finalrow = Cells(Rows.Count, 1).End(xlUp).Row MsgBox (finalrow) 'create a new instance of ie 'Set ieApp = CreateObject(InternetExplorer.application) Set ie = CreateObject(InternetExplorer.application) ie.Visible = True ie.navigate http://abcde.com; Do Loop Until ie.readyState = READYSTATE_COMPLETE Application.Wait DateAdd(s, 3, Now) While ie.Busy DoEvents Wend For i = 2 To finalrow ' abcde is element id, if you forget then read the step number 2 again ie.document.getelementbyid(Email).Value = Cells(i, colno).Value Application.Wait (Now + TimeValue(0:00:10)) 'MsgBox Time expired Next [/code] -- 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/groups/opt_out. -- 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/groups/opt_out.
RE: $$Excel-Macros$$ How to paste all the values in the text field of a web page
Store the value in any array or collection and then paste it to ie textbox Warm Regards, Ravi Kumar. From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of Ravinder Sent: Tuesday, September 24, 2013 3:01 PM To: excel-macros@googlegroups.com Cc: Soum Subject: RE: $$Excel-Macros$$ How to paste all the values in the text field of a web page Not able to access website and not getting how its working. From: excel-macros@googlegroups.com mailto:excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of Menaka Balakrishnamoorthy Sent: Tuesday, September 24, 2013 2:42 PM To: excel-macros@googlegroups.com mailto:excel-macros@googlegroups.com Subject: $$Excel-Macros$$ How to paste all the values in the text field of a web page Hi, with the followong code I can able to paste the all the values from the excel sheet to the webpage.But if while pasting the second value the first value is getting replaced. So finally I can paste only the last cell value. I want all the range of values to be entered in the text filed. Please help me in resloving this. [code] Sub GetTable() Dim ieApp As InternetExplorer 'Dim ieDoc As Object Dim ie As Object Dim ieTable As Object Dim finalrow As Variant Range(A1).Activate colno = ActiveCell.Column MsgBox (colno) Range(A1).Select finalrow = Cells(Rows.Count, 1).End(xlUp).Row MsgBox (finalrow) 'create a new instance of ie 'Set ieApp = CreateObject(InternetExplorer.application) Set ie = CreateObject(InternetExplorer.application) ie.Visible = True ie.navigate http://abcde.com; Do Loop Until ie.readyState = READYSTATE_COMPLETE Application.Wait DateAdd(s, 3, Now) While ie.Busy DoEvents Wend For i = 2 To finalrow ' abcde is element id, if you forget then read the step number 2 again ie.document.getelementbyid(Email).Value = Cells(i, colno).Value Application.Wait (Now + TimeValue(0:00:10)) 'MsgBox Time expired Next [/code] -- 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 mailto:excel-macros+unsubscr...@googlegroups.com . To post to this group, send email to excel-macros@googlegroups.com mailto:excel-macros@googlegroups.com . Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/groups/opt_out. -- 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 mailto:excel-macros+unsubscr...@googlegroups.com . To post to this group, send email to excel-macros@googlegroups.com mailto:excel-macros@googlegroups.com . Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/groups/opt_out. -- 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,
Re: $$Excel-Macros$$ How to paste all the values in the text field of a web page
can you please say how to store in array or collection On Tuesday, September 24, 2013 3:23:26 PM UTC+5:30, Ravi Kumar wrote: Store the value in any array or collection and then paste it to ie textbox * * *Warm Regards,* *Ravi Kumar.* *From:* excel-...@googlegroups.com javascript: [mailto: excel-...@googlegroups.com javascript:] *On Behalf Of *Ravinder *Sent:* Tuesday, September 24, 2013 3:01 PM *To:* excel-...@googlegroups.com javascript: *Cc:* Soum *Subject:* RE: $$Excel-Macros$$ How to paste all the values in the text field of a web page Not able to access website and not getting how its working… *From:* excel-...@googlegroups.com javascript: [ mailto:ex...@googlegroups.com javascript:] *On Behalf Of *Menaka Balakrishnamoorthy *Sent:* Tuesday, September 24, 2013 2:42 PM *To:* excel-...@googlegroups.com javascript: *Subject:* $$Excel-Macros$$ How to paste all the values in the text field of a web page Hi, with the followong code I can able to paste the all the values from the excel sheet to the webpage.But if while pasting the second value the first value is getting replaced. So finally I can paste only the last cell value. I want all the range of values to be entered in the text filed. Please help me in resloving this. [code] Sub GetTable() Dim ieApp As InternetExplorer 'Dim ieDoc As Object Dim ie As Object Dim ieTable As Object Dim finalrow As Variant Range(A1).Activate colno = ActiveCell.Column MsgBox (colno) Range(A1).Select finalrow = Cells(Rows.Count, 1).End(xlUp).Row MsgBox (finalrow) 'create a new instance of ie 'Set ieApp = CreateObject(InternetExplorer.application) Set ie = CreateObject(InternetExplorer.application) ie.Visible = True ie.navigate http://abcde.com; Do Loop Until ie.readyState = READYSTATE_COMPLETE Application.Wait DateAdd(s, 3, Now) While ie.Busy DoEvents Wend For i = 2 To finalrow ' abcde is element id, if you forget then read the step number 2 again ie.document.getelementbyid(Email).Value = Cells(i, colno).Value Application.Wait (Now + TimeValue(0:00:10)) 'MsgBox Time expired Next [/code] -- 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.comjavascript: . Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/groups/opt_out. -- 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.comjavascript: . Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/groups/opt_out. -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be?
Re: $$Excel-Macros$$ How to paste all the values in the text field of a web page
I want to paste the values of Range A1:A10 in the text box of a web page, I can paste A1 and while pasting A2, A1 is getting replaced, finally there is only one value in the text box that is A10, but I need all the values from A1 to A10 to be pasted. Please help on this. And the link is my VM and pls dont mind about that, I have just entered dummy link. On Tuesday, September 24, 2013 3:01:10 PM UTC+5:30, ravinder negi wrote: Not able to access website and not getting how its working… *From:* excel-...@googlegroups.com javascript: [mailto: excel-...@googlegroups.com javascript:] *On Behalf Of *Menaka Balakrishnamoorthy *Sent:* Tuesday, September 24, 2013 2:42 PM *To:* excel-...@googlegroups.com javascript: *Subject:* $$Excel-Macros$$ How to paste all the values in the text field of a web page Hi, with the followong code I can able to paste the all the values from the excel sheet to the webpage.But if while pasting the second value the first value is getting replaced. So finally I can paste only the last cell value. I want all the range of values to be entered in the text filed. Please help me in resloving this. [code] Sub GetTable() Dim ieApp As InternetExplorer 'Dim ieDoc As Object Dim ie As Object Dim ieTable As Object Dim finalrow As Variant Range(A1).Activate colno = ActiveCell.Column MsgBox (colno) Range(A1).Select finalrow = Cells(Rows.Count, 1).End(xlUp).Row MsgBox (finalrow) 'create a new instance of ie 'Set ieApp = CreateObject(InternetExplorer.application) Set ie = CreateObject(InternetExplorer.application) ie.Visible = True ie.navigate http://abcde.com; Do Loop Until ie.readyState = READYSTATE_COMPLETE Application.Wait DateAdd(s, 3, Now) While ie.Busy DoEvents Wend For i = 2 To finalrow ' abcde is element id, if you forget then read the step number 2 again ie.document.getelementbyid(Email).Value = Cells(i, colno).Value Application.Wait (Now + TimeValue(0:00:10)) 'MsgBox Time expired Next [/code] -- 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.comjavascript: . Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/groups/opt_out. -- 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/groups/opt_out.
RE: $$Excel-Macros$$ How to paste all the values in the text field of a web page
Hi, One example to combined range. Change your range, ie.navigate and element id also Sub testin() Dim ie As Object dataarr = Range(A2:A4) 'Change according to your criteria For i = 1 To UBound(dataarr, 1) If counter = 0 Then store_value = dataarr(i, 1) counter = 1 Else store_value = store_value , dataarr(i, 1) End If Next MsgBox store_value Set ie = CreateObject(internetexplorer.application) ie.Visible = True ie.navigate2 www.google.com http://www.google.com ''Change according to your criteria While ie.Busy Or ie.readyState = readystate_completed DoEvents Wend ie.document.getelementbyid(gbqfq).Value = store_value'Change element id according to your criteria End Sub Note : Change the highlighted place according to your criteria Warm Regards, Ravi Kumar. From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of Menaka Balakrishnamoorthy Sent: Tuesday, September 24, 2013 5:18 PM To: excel-macros@googlegroups.com Subject: Re: $$Excel-Macros$$ How to paste all the values in the text field of a web page can you please say how to store in array or collection On Tuesday, September 24, 2013 3:23:26 PM UTC+5:30, Ravi Kumar wrote: Store the value in any array or collection and then paste it to ie textbox Warm Regards, Ravi Kumar. From: excel-...@googlegroups.com javascript: [mailto:excel-...@googlegroups.com javascript: ] On Behalf Of Ravinder Sent: Tuesday, September 24, 2013 3:01 PM To: excel-...@googlegroups.com javascript: Cc: Soum Subject: RE: $$Excel-Macros$$ How to paste all the values in the text field of a web page Not able to access website and not getting how its working. From: excel-...@googlegroups.com javascript: [mailto:ex...@googlegroups.com javascript: ] On Behalf Of Menaka Balakrishnamoorthy Sent: Tuesday, September 24, 2013 2:42 PM To: excel-...@googlegroups.com javascript: Subject: $$Excel-Macros$$ How to paste all the values in the text field of a web page Hi, with the followong code I can able to paste the all the values from the excel sheet to the webpage.But if while pasting the second value the first value is getting replaced. So finally I can paste only the last cell value. I want all the range of values to be entered in the text filed. Please help me in resloving this. [code] Sub GetTable() Dim ieApp As InternetExplorer 'Dim ieDoc As Object Dim ie As Object Dim ieTable As Object Dim finalrow As Variant Range(A1).Activate colno = ActiveCell.Column MsgBox (colno) Range(A1).Select finalrow = Cells(Rows.Count, 1).End(xlUp).Row MsgBox (finalrow) 'create a new instance of ie 'Set ieApp = CreateObject(InternetExplorer.application) Set ie = CreateObject(InternetExplorer.application) ie.Visible = True ie.navigate http://abcde.com; Do Loop Until ie.readyState = READYSTATE_COMPLETE Application.Wait DateAdd(s, 3, Now) While ie.Busy DoEvents Wend For i = 2 To finalrow ' abcde is element id, if you forget then read the step number 2 again ie.document.getelementbyid(Email).Value = Cells(i, colno).Value Application.Wait (Now + TimeValue(0:00:10)) 'MsgBox Time expired Next [/code] -- 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/groups/opt_out. -- 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
$$Excel-Macros$$ Reg : Count of Color filled cells - VBA Code required
Hi All, In attached workbook I have some cells which are colored in Red, Green, Yellow, Orange. I need a count of these cells. Please find attachment. I'm looking for VBA Code, Excel formula also works fine. Thanks in Advance Regards, Kartik -- 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/groups/opt_out. Colorcount.xlsx Description: application/vnd.openxmlformats-officedocument.spreadsheetml.sheet
Re: $$Excel-Macros$$ How to paste all the values in the text field of a web page
Hi Thankyou so much, its working fine. But I need the second value in the next line not in the comma seperated manner, may I know where should I change that? On Tuesday, September 24, 2013 5:48:00 PM UTC+5:30, Ravi Kumar wrote: Hi, One example to combined range. Change your range, ie.navigate and element id also Sub testin() Dim ie As Object dataarr = Range(A2:A4) ‘Change according to your criteria For i = 1 To UBound(dataarr, 1) If counter = 0 Then store_value = dataarr(i, 1) counter = 1 Else store_value = store_value , dataarr(i, 1) End If Next MsgBox store_value Set ie = CreateObject(internetexplorer.application) ie.Visible = True ie.navigate2 www.google.com‘‘Change according to your criteria While ie.Busy Or ie.readyState = readystate_completed DoEvents Wend ie.document.getelementbyid(gbqfq).Value = store_value‘Change element id according to your criteria End Sub Note : Change the highlighted place according to your criteria * * *Warm Regards,* *Ravi Kumar.* *From:* excel-...@googlegroups.com javascript: [mailto: excel-...@googlegroups.com javascript:] *On Behalf Of *Menaka Balakrishnamoorthy *Sent:* Tuesday, September 24, 2013 5:18 PM *To:* excel-...@googlegroups.com javascript: *Subject:* Re: $$Excel-Macros$$ How to paste all the values in the text field of a web page can you please say how to store in array or collection On Tuesday, September 24, 2013 3:23:26 PM UTC+5:30, Ravi Kumar wrote: Store the value in any array or collection and then paste it to ie textbox * * *Warm Regards,* *Ravi Kumar.* *From:* excel-...@googlegroups.com [mailto:excel-...@googlegroups.com] *On Behalf Of *Ravinder *Sent:* Tuesday, September 24, 2013 3:01 PM *To:* excel-...@googlegroups.com *Cc:* Soum *Subject:* RE: $$Excel-Macros$$ How to paste all the values in the text field of a web page Not able to access website and not getting how its working… *From:* excel-...@googlegroups.com [mailto:ex...@googlegroups.com] *On Behalf Of *Menaka Balakrishnamoorthy *Sent:* Tuesday, September 24, 2013 2:42 PM *To:* excel-...@googlegroups.com *Subject:* $$Excel-Macros$$ How to paste all the values in the text field of a web page Hi, with the followong code I can able to paste the all the values from the excel sheet to the webpage.But if while pasting the second value the first value is getting replaced. So finally I can paste only the last cell value. I want all the range of values to be entered in the text filed. Please help me in resloving this. [code] Sub GetTable() Dim ieApp As InternetExplorer 'Dim ieDoc As Object Dim ie As Object Dim ieTable As Object Dim finalrow As Variant Range(A1).Activate colno = ActiveCell.Column MsgBox (colno) Range(A1).Select finalrow = Cells(Rows.Count, 1).End(xlUp).Row MsgBox (finalrow) 'create a new instance of ie 'Set ieApp = CreateObject(InternetExplorer.application) Set ie = CreateObject(InternetExplorer.application) ie.Visible = True ie.navigate http://abcde.com; Do Loop Until ie.readyState = READYSTATE_COMPLETE Application.Wait DateAdd(s, 3, Now) While ie.Busy DoEvents Wend For i = 2 To finalrow ' abcde is element id, if you forget then read the step number 2 again ie.document.getelementbyid(Email).Value = Cells(i, colno).Value Application.Wait (Now + TimeValue(0:00:10)) 'MsgBox Time expired Next [/code] -- 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/groups/opt_out. --
$$Excel-Macros$$ Re: Pie chart
Goto the pie chart - double click on the pie - should be able to bring up a four tab choice box - select option the just adjust the angle in degrees of the first slice regards John On Thursday, 19 September 2013 18:46:52 UTC+1, Joseph wrote: Hi, I have a two slice pie chart and the first slice should face to the right centre horizontally. Can you provide a macro for this. Thanks for your help in advance. Regards, Joseph -- 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/groups/opt_out.
Re: $$Excel-Macros$$ Reg : Count of Color filled cells - VBA Code required
try attached file On Tue, Sep 24, 2013 at 6:47 PM, Kartik Dale kartik.1...@gmail.com wrote: Hi All, In attached workbook I have some cells which are colored in Red, Green, Yellow, Orange. I need a count of these cells. Please find attachment. I'm looking for VBA Code, Excel formula also works fine. Thanks in Advance Regards, Kartik -- 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/groups/opt_out. -- *Regards* * * *Ashish Koul* *Visit* *My Excel Blog http://www.excelvbamacros.com/* Like Us on Facebookhttp://www.facebook.com/pages/Excel-VBA-Codes-Macros/15180389897 Join Us on Facebook http://www.facebook.com/groups/163491717053198/ P Before printing, think about the environment. -- 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/groups/opt_out. Colorcount.xlsm Description: Binary data
Re: $$Excel-Macros$$ How to paste all the values in the text field of a web page
Even if I replace as store_value = store_value Chr(13) dataarr(i, 1) its pasting in the webpage with comma seperated only On Tuesday, September 24, 2013 5:48:00 PM UTC+5:30, Ravi Kumar wrote: Hi, One example to combined range. Change your range, ie.navigate and element id also Sub testin() Dim ie As Object dataarr = Range(A2:A4) ‘Change according to your criteria For i = 1 To UBound(dataarr, 1) If counter = 0 Then store_value = dataarr(i, 1) counter = 1 Else store_value = store_value , dataarr(i, 1) End If Next MsgBox store_value Set ie = CreateObject(internetexplorer.application) ie.Visible = True ie.navigate2 www.google.com‘‘Change according to your criteria While ie.Busy Or ie.readyState = readystate_completed DoEvents Wend ie.document.getelementbyid(gbqfq).Value = store_value‘Change element id according to your criteria End Sub Note : Change the highlighted place according to your criteria * * *Warm Regards,* *Ravi Kumar.* *From:* excel-...@googlegroups.com javascript: [mailto: excel-...@googlegroups.com javascript:] *On Behalf Of *Menaka Balakrishnamoorthy *Sent:* Tuesday, September 24, 2013 5:18 PM *To:* excel-...@googlegroups.com javascript: *Subject:* Re: $$Excel-Macros$$ How to paste all the values in the text field of a web page can you please say how to store in array or collection On Tuesday, September 24, 2013 3:23:26 PM UTC+5:30, Ravi Kumar wrote: Store the value in any array or collection and then paste it to ie textbox * * *Warm Regards,* *Ravi Kumar.* *From:* excel-...@googlegroups.com [mailto:excel-...@googlegroups.com] *On Behalf Of *Ravinder *Sent:* Tuesday, September 24, 2013 3:01 PM *To:* excel-...@googlegroups.com *Cc:* Soum *Subject:* RE: $$Excel-Macros$$ How to paste all the values in the text field of a web page Not able to access website and not getting how its working… *From:* excel-...@googlegroups.com [mailto:ex...@googlegroups.com] *On Behalf Of *Menaka Balakrishnamoorthy *Sent:* Tuesday, September 24, 2013 2:42 PM *To:* excel-...@googlegroups.com *Subject:* $$Excel-Macros$$ How to paste all the values in the text field of a web page Hi, with the followong code I can able to paste the all the values from the excel sheet to the webpage.But if while pasting the second value the first value is getting replaced. So finally I can paste only the last cell value. I want all the range of values to be entered in the text filed. Please help me in resloving this. [code] Sub GetTable() Dim ieApp As InternetExplorer 'Dim ieDoc As Object Dim ie As Object Dim ieTable As Object Dim finalrow As Variant Range(A1).Activate colno = ActiveCell.Column MsgBox (colno) Range(A1).Select finalrow = Cells(Rows.Count, 1).End(xlUp).Row MsgBox (finalrow) 'create a new instance of ie 'Set ieApp = CreateObject(InternetExplorer.application) Set ie = CreateObject(InternetExplorer.application) ie.Visible = True ie.navigate http://abcde.com; Do Loop Until ie.readyState = READYSTATE_COMPLETE Application.Wait DateAdd(s, 3, Now) While ie.Busy DoEvents Wend For i = 2 To finalrow ' abcde is element id, if you forget then read the step number 2 again ie.document.getelementbyid(Email).Value = Cells(i, colno).Value Application.Wait (Now + TimeValue(0:00:10)) 'MsgBox Time expired Next [/code] -- 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/groups/opt_out. -- Are you =EXP(E:RT) or
Re: $$Excel-Macros$$ Reg : Count of Color filled cells - VBA Code required
Thank you Ashish...:) Regards, Kartik On Tue, Sep 24, 2013 at 7:12 PM, ashish koul koul.ash...@gmail.com wrote: try attached file On Tue, Sep 24, 2013 at 6:47 PM, Kartik Dale kartik.1...@gmail.comwrote: Hi All, In attached workbook I have some cells which are colored in Red, Green, Yellow, Orange. I need a count of these cells. Please find attachment. I'm looking for VBA Code, Excel formula also works fine. Thanks in Advance Regards, Kartik -- 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/groups/opt_out. -- *Regards* * * *Ashish Koul* *Visit* *My Excel Blog http://www.excelvbamacros.com/* Like Us on Facebookhttp://www.facebook.com/pages/Excel-VBA-Codes-Macros/15180389897 Join Us on Facebook http://www.facebook.com/groups/163491717053198/ P Before printing, think about the environment. -- 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/groups/opt_out. -- Thanks Kartik -- 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/groups/opt_out.
$$Excel-Macros$$ I need help on one Macro creation
Hello All, I have attached one excel file in which one column is source and other in target, for XXX in target suppose transalation is given, for the source which have blank in front of it copy the source and hide the all text except the text just copied. Can any one help to create macro to work on many files. This is really urgent. I have attached source and Expected target. Regards, Sandy -- 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/groups/opt_out. Expected Target.xlsx Description: application/vnd.openxmlformats-officedocument.spreadsheetml.sheet Source.xlsx Description: application/vnd.openxmlformats-officedocument.spreadsheetml.sheet
Re: $$Excel-Macros$$ Re: Pie chart
Thanks for your response. I know to do it manually but my charts gets updated very often. So I am looking for an automation. On Sep 24, 2013 6:54 PM, Johnnyboy5 intermediatec...@gmail.com wrote: Goto the pie chart - double click on the pie - should be able to bring up a four tab choice box - select option the just adjust the angle in degrees of the first slice regards John On Thursday, 19 September 2013 18:46:52 UTC+1, Joseph wrote: Hi, I have a two slice pie chart and the first slice should face to the right centre horizontally. Can you provide a macro for this. Thanks for your help in advance. Regards, Joseph -- 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/groups/opt_out. -- 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/groups/opt_out.
Re: $$Excel-Macros$$ How to paste all the values in the text field of a web page
try vbnewline see if it works store_value = store_value vbnewline dataarr(i, 1) or store_value = store_value vbnewline vbnewline dataarr(i, 1) On Tue, Sep 24, 2013 at 7:30 PM, Menaka Balakrishnamoorthy menaka.balakris...@gmail.com wrote: Even if I replace as store_value = store_value Chr(13) dataarr(i, 1) its pasting in the webpage with comma seperated only On Tuesday, September 24, 2013 5:48:00 PM UTC+5:30, Ravi Kumar wrote: Hi, One example to combined range. Change your range, ie.navigate and element id also Sub testin() Dim ie As Object dataarr = Range(A2:A4) ‘Change according to your criteria For i = 1 To UBound(dataarr, 1) If counter = 0 Then store_value = dataarr(i, 1) counter = 1 Else store_value = store_value , dataarr(i, 1) End If Next MsgBox store_value Set ie = CreateObject(**internetexplorer.application) ie.Visible = True ie.navigate2 www.google.com‘‘Change according to your criteria While ie.Busy Or ie.readyState = readystate_completed DoEvents Wend ie.document.getelementbyid(**gbqfq).Value = store_value‘Change element id according to your criteria End Sub Note : Change the highlighted place according to your criteria * * *Warm Regards,* *Ravi Kumar.* *From:* excel-...@googlegroups.com [mailto:excel-...@**googlegroups.com] *On Behalf Of *Menaka Balakrishnamoorthy *Sent:* Tuesday, September 24, 2013 5:18 PM *To:* excel-...@googlegroups.com *Subject:* Re: $$Excel-Macros$$ How to paste all the values in the text field of a web page can you please say how to store in array or collection On Tuesday, September 24, 2013 3:23:26 PM UTC+5:30, Ravi Kumar wrote: Store the value in any array or collection and then paste it to ie textbox * * *Warm Regards,* *Ravi Kumar.* *From:* excel-...@googlegroups.com [mailto:excel-...@**googlegroups.com] *On Behalf Of *Ravinder *Sent:* Tuesday, September 24, 2013 3:01 PM *To:* excel-...@googlegroups.com *Cc:* Soum *Subject:* RE: $$Excel-Macros$$ How to paste all the values in the text field of a web page Not able to access website and not getting how its working… *From:* excel-...@googlegroups.com [mailto:ex...@googlegroups.com**] *On Behalf Of *Menaka Balakrishnamoorthy *Sent:* Tuesday, September 24, 2013 2:42 PM *To:* excel-...@googlegroups.com *Subject:* $$Excel-Macros$$ How to paste all the values in the text field of a web page Hi, with the followong code I can able to paste the all the values from the excel sheet to the webpage.But if while pasting the second value the first value is getting replaced. So finally I can paste only the last cell value. I want all the range of values to be entered in the text filed. Please help me in resloving this. [code] Sub GetTable() Dim ieApp As InternetExplorer 'Dim ieDoc As Object Dim ie As Object Dim ieTable As Object Dim finalrow As Variant Range(A1).Activate colno = ActiveCell.Column MsgBox (colno) Range(A1).Select finalrow = Cells(Rows.Count, 1).End(xlUp).Row MsgBox (finalrow) 'create a new instance of ie 'Set ieApp = CreateObject(**InternetExplorer.application) Set ie = CreateObject(**InternetExplorer.application) ie.Visible = True ie.navigate http://abcde.com; Do Loop Until ie.readyState = READYSTATE_COMPLETE Application.Wait DateAdd(s, 3, Now) While ie.Busy DoEvents Wend For i = 2 To finalrow ' abcde is element id, if you forget then read the step number 2 again ie.document.getelementbyid(**Email).Value = Cells(i, colno).Value Application.Wait (Now + TimeValue(0:00:10)) 'MsgBox Time expired Next [/code] -- 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/**discussexcelhttps://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
Re: $$Excel-Macros$$ payback Period Formula / Macro
Hello David, I am working on XL2003, and tried inserting the function in a general module, but I continue to receive the #NAME? error when applying the formula... Any quick hint? Thanks in advance Gilberto On Saturday, 11 August 2012 12:56:32 UTC+1, David Grugeon wrote: Hi Sharad Use the following function in a general module. Then use =Payback(range) See attached '= Function PayBack(ByRef rng As Range) As Variant 'check that the range has only one dimension If rng.Rows.Count 1 And rng.Columns.Count 1 Then PayBack = error Else Dim t As Double 'The total value Dim t1 As Double Dim t2 As Double Dim x As Long 'cell counter Dim p As Double 'the part of the following year ' find the period Do Until t 1 x = x + 1 t = t + rng.Cells(x).Value Loop PayBack = x - (t / rng.Cells(x).Value) End If End Function '= Regards David Grugeon -- 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/groups/opt_out.
RE: $$Excel-Macros$$ How to split Alphabetic Numeric data in different cells....
Try this one..for getting number and character and u can use UDF given by Ravi for get character From: Ravinder [mailto:ravinderexcelgr...@gmail.com] Sent: Tuesday, September 24, 2013 10:02 AM To: 'excel-macros@googlegroups.com' Cc: Soum (quote.ex...@gmail.com) Subject: RE: $$Excel-Macros$$ How to split Alphabetic Numeric data in different cells PFA From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of ashish koul Sent: Monday, September 23, 2013 9:47 PM To: excel-macros Subject: Re: $$Excel-Macros$$ How to split Alphabetic Numeric data in different cells =LEFT(A1,MIN(FIND({0,1,2,3,4,5,6,7,8,9},A10123456789))-1) =RIGHT(A1,LEN(A1)-LEN(E1)) see if it helps On Mon, Sep 23, 2013 at 8:52 PM, Dhananjay Pinjan dppin...@gmail.com wrote: Dear Friends, Assume that following values are in A1,A2, A3 . Column. I want to split the Alphabetic Name in B1, B2.. Column Numbers in C Column. Pl. help. Alphanumeric Data Expected Answer A Column B Column C Column Dhananjay420 Dhananjay 420 Ramesh007 Ramesh 7 Prashant786 Prashant 786 Chandrakant100 Chandrakant 100 Regards, Dhananjay -- 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 mailto:excel-macros%2bunsubscr...@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/groups/opt_out. -- Regards Ashish Koul Visit My Excel Blog http://www.excelvbamacros.com/ Like Us on Facebook http://www.facebook.com/pages/Excel-VBA-Codes-Macros/15180389897 Join Us on Facebook http://www.facebook.com/groups/163491717053198/ P Before printing, think about the environment. -- 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/groups/opt_out. -- 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
RE: $$Excel-Macros$$ How to split Alphabetic Numeric data in different cells....
U can use UDF 'For Character Function gettext(refc As Variant) For i = 1 To Len(refc) If Mid(refc, i, 1) Like [a-zA-Z] Then temp = temp Mid(refc, i, 1) End If Next gettext = temp End Function --- 'For numbers Function getnum(refc1 As Variant) For i = 1 To Len(refc1) If Mid(refc1, i, 1) Like [0-9] Then temp = temp Mid(refc1, i, 1) End If Next getnum = temp End Function Warm Regards, Ravi Kumar. From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of Ravinder Sent: Wednesday, September 25, 2013 10:38 AM To: excel-macros@googlegroups.com Cc: Soum; Soum Subject: RE: $$Excel-Macros$$ How to split Alphabetic Numeric data in different cells Try this one..for getting number and character and u can use UDF given by Ravi for get character From: Ravinder [mailto:ravinderexcelgr...@gmail.com] Sent: Tuesday, September 24, 2013 10:02 AM To: 'excel-macros@googlegroups.com' Cc: Soum (quote.ex...@gmail.com mailto:quote.ex...@gmail.com ) Subject: RE: $$Excel-Macros$$ How to split Alphabetic Numeric data in different cells PFA From: excel-macros@googlegroups.com mailto:excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of ashish koul Sent: Monday, September 23, 2013 9:47 PM To: excel-macros Subject: Re: $$Excel-Macros$$ How to split Alphabetic Numeric data in different cells =LEFT(A1,MIN(FIND({0,1,2,3,4,5,6,7,8,9},A10123456789))-1) =RIGHT(A1,LEN(A1)-LEN(E1)) see if it helps On Mon, Sep 23, 2013 at 8:52 PM, Dhananjay Pinjan dppin...@gmail.com mailto:dppin...@gmail.com wrote: Dear Friends, Assume that following values are in A1,A2, A3 . Column. I want to split the Alphabetic Name in B1, B2.. Column Numbers in C Column. Pl. help. Alphanumeric Data Expected Answer A Column B Column C Column Dhananjay420 Dhananjay 420 Ramesh007 Ramesh 7 Prashant786 Prashant 786 Chandrakant100 Chandrakant 100 Regards, Dhananjay -- 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 mailto:excel-macros%2bunsubscr...@googlegroups.com . To post to this group, send email to excel-macros@googlegroups.com mailto:excel-macros@googlegroups.com . Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/groups/opt_out. -- Regards Ashish Koul Visit My Excel Blog http://www.excelvbamacros.com/ Like Us on Facebook http://www.facebook.com/pages/Excel-VBA-Codes-Macros/15180389897 Join Us on Facebook http://www.facebook.com/groups/163491717053198/ P Before printing, think about the environment. -- 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 mailto:excel-macros+unsubscr...@googlegroups.com . To post to this group, send email to excel-macros@googlegroups.com mailto:excel-macros@googlegroups.com . Visit this group at
Re: $$Excel-Macros$$ How to paste all the values in the text field of a web page
Thank you Ravi, its working fine :) On Tuesday, September 24, 2013 5:48:00 PM UTC+5:30, Ravi Kumar wrote: Hi, One example to combined range. Change your range, ie.navigate and element id also Sub testin() Dim ie As Object dataarr = Range(A2:A4) ‘Change according to your criteria For i = 1 To UBound(dataarr, 1) If counter = 0 Then store_value = dataarr(i, 1) counter = 1 Else store_value = store_value , dataarr(i, 1) End If Next MsgBox store_value Set ie = CreateObject(internetexplorer.application) ie.Visible = True ie.navigate2 www.google.com‘‘Change according to your criteria While ie.Busy Or ie.readyState = readystate_completed DoEvents Wend ie.document.getelementbyid(gbqfq).Value = store_value‘Change element id according to your criteria End Sub Note : Change the highlighted place according to your criteria * * *Warm Regards,* *Ravi Kumar.* *From:* excel-...@googlegroups.com javascript: [mailto: excel-...@googlegroups.com javascript:] *On Behalf Of *Menaka Balakrishnamoorthy *Sent:* Tuesday, September 24, 2013 5:18 PM *To:* excel-...@googlegroups.com javascript: *Subject:* Re: $$Excel-Macros$$ How to paste all the values in the text field of a web page can you please say how to store in array or collection On Tuesday, September 24, 2013 3:23:26 PM UTC+5:30, Ravi Kumar wrote: Store the value in any array or collection and then paste it to ie textbox * * *Warm Regards,* *Ravi Kumar.* *From:* excel-...@googlegroups.com [mailto:excel-...@googlegroups.com] *On Behalf Of *Ravinder *Sent:* Tuesday, September 24, 2013 3:01 PM *To:* excel-...@googlegroups.com *Cc:* Soum *Subject:* RE: $$Excel-Macros$$ How to paste all the values in the text field of a web page Not able to access website and not getting how its working… *From:* excel-...@googlegroups.com [mailto:ex...@googlegroups.com] *On Behalf Of *Menaka Balakrishnamoorthy *Sent:* Tuesday, September 24, 2013 2:42 PM *To:* excel-...@googlegroups.com *Subject:* $$Excel-Macros$$ How to paste all the values in the text field of a web page Hi, with the followong code I can able to paste the all the values from the excel sheet to the webpage.But if while pasting the second value the first value is getting replaced. So finally I can paste only the last cell value. I want all the range of values to be entered in the text filed. Please help me in resloving this. [code] Sub GetTable() Dim ieApp As InternetExplorer 'Dim ieDoc As Object Dim ie As Object Dim ieTable As Object Dim finalrow As Variant Range(A1).Activate colno = ActiveCell.Column MsgBox (colno) Range(A1).Select finalrow = Cells(Rows.Count, 1).End(xlUp).Row MsgBox (finalrow) 'create a new instance of ie 'Set ieApp = CreateObject(InternetExplorer.application) Set ie = CreateObject(InternetExplorer.application) ie.Visible = True ie.navigate http://abcde.com; Do Loop Until ie.readyState = READYSTATE_COMPLETE Application.Wait DateAdd(s, 3, Now) While ie.Busy DoEvents Wend For i = 2 To finalrow ' abcde is element id, if you forget then read the step number 2 again ie.document.getelementbyid(Email).Value = Cells(i, colno).Value Application.Wait (Now + TimeValue(0:00:10)) 'MsgBox Time expired Next [/code] -- 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/groups/opt_out. -- 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
Re: $$Excel-Macros$$ How to paste all the values in the text field of a web page
Thanks for the suggestion Ashish, its working fine now. On Tuesday, September 24, 2013 9:52:04 PM UTC+5:30, ashish wrote: try vbnewline see if it works store_value = store_value vbnewline dataarr(i, 1) or store_value = store_value vbnewline vbnewline dataarr(i, 1) On Tue, Sep 24, 2013 at 7:30 PM, Menaka Balakrishnamoorthy menaka.ba...@gmail.com javascript: wrote: Even if I replace as store_value = store_value Chr(13) dataarr(i, 1) its pasting in the webpage with comma seperated only On Tuesday, September 24, 2013 5:48:00 PM UTC+5:30, Ravi Kumar wrote: Hi, One example to combined range. Change your range, ie.navigate and element id also Sub testin() Dim ie As Object dataarr = Range(A2:A4) ‘Change according to your criteria For i = 1 To UBound(dataarr, 1) If counter = 0 Then store_value = dataarr(i, 1) counter = 1 Else store_value = store_value , dataarr(i, 1) End If Next MsgBox store_value Set ie = CreateObject(**internetexplorer.application) ie.Visible = True ie.navigate2 www.google.com‘‘Change according to your criteria While ie.Busy Or ie.readyState = readystate_completed DoEvents Wend ie.document.getelementbyid(**gbqfq).Value = store_value‘Change element id according to your criteria End Sub Note : Change the highlighted place according to your criteria * * *Warm Regards,* *Ravi Kumar.* *From:* excel-...@googlegroups.com [mailto:excel-...@**googlegroups.com] *On Behalf Of *Menaka Balakrishnamoorthy *Sent:* Tuesday, September 24, 2013 5:18 PM *To:* excel-...@googlegroups.com *Subject:* Re: $$Excel-Macros$$ How to paste all the values in the text field of a web page can you please say how to store in array or collection On Tuesday, September 24, 2013 3:23:26 PM UTC+5:30, Ravi Kumar wrote: Store the value in any array or collection and then paste it to ie textbox * * *Warm Regards,* *Ravi Kumar.* *From:* excel-...@googlegroups.com [mailto:excel-...@**googlegroups.com] *On Behalf Of *Ravinder *Sent:* Tuesday, September 24, 2013 3:01 PM *To:* excel-...@googlegroups.com *Cc:* Soum *Subject:* RE: $$Excel-Macros$$ How to paste all the values in the text field of a web page Not able to access website and not getting how its working… *From:* excel-...@googlegroups.com [mailto:ex...@googlegroups.com**] *On Behalf Of *Menaka Balakrishnamoorthy *Sent:* Tuesday, September 24, 2013 2:42 PM *To:* excel-...@googlegroups.com *Subject:* $$Excel-Macros$$ How to paste all the values in the text field of a web page Hi, with the followong code I can able to paste the all the values from the excel sheet to the webpage.But if while pasting the second value the first value is getting replaced. So finally I can paste only the last cell value. I want all the range of values to be entered in the text filed. Please help me in resloving this. [code] Sub GetTable() Dim ieApp As InternetExplorer 'Dim ieDoc As Object Dim ie As Object Dim ieTable As Object Dim finalrow As Variant Range(A1).Activate colno = ActiveCell.Column MsgBox (colno) Range(A1).Select finalrow = Cells(Rows.Count, 1).End(xlUp).Row MsgBox (finalrow) 'create a new instance of ie 'Set ieApp = CreateObject(**InternetExplorer.application) Set ie = CreateObject(**InternetExplorer.application) ie.Visible = True ie.navigate http://abcde.com; Do Loop Until ie.readyState = READYSTATE_COMPLETE Application.Wait DateAdd(s, 3, Now) While ie.Busy DoEvents Wend For i = 2 To finalrow ' abcde is element id, if you forget then read the step number 2 again ie.document.getelementbyid(**Email).Value = Cells(i, colno).Value Application.Wait (Now + TimeValue(0:00:10)) 'MsgBox Time expired Next [/code] -- 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/**discussexcelhttps://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
RE: $$Excel-Macros$$ How to paste all the values in the text field of a web page
Welcome Menaka Warm Regards, Ravi Kumar. From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of Menaka Balakrishnamoorthy Sent: Wednesday, September 25, 2013 11:06 AM To: excel-macros@googlegroups.com Subject: Re: $$Excel-Macros$$ How to paste all the values in the text field of a web page Thank you Ravi, its working fine :) On Tuesday, September 24, 2013 5:48:00 PM UTC+5:30, Ravi Kumar wrote: Hi, One example to combined range. Change your range, ie.navigate and element id also Sub testin() Dim ie As Object dataarr = Range(A2:A4) 'Change according to your criteria For i = 1 To UBound(dataarr, 1) If counter = 0 Then store_value = dataarr(i, 1) counter = 1 Else store_value = store_value , dataarr(i, 1) End If Next MsgBox store_value Set ie = CreateObject(internetexplorer.application) ie.Visible = True ie.navigate2 www.google.com http://www.google.com ''Change according to your criteria While ie.Busy Or ie.readyState = readystate_completed DoEvents Wend ie.document.getelementbyid(gbqfq).Value = store_value'Change element id according to your criteria End Sub Note : Change the highlighted place according to your criteria Warm Regards, Ravi Kumar. From: excel-...@googlegroups.com javascript: [mailto:excel-...@googlegroups.com javascript: ] On Behalf Of Menaka Balakrishnamoorthy Sent: Tuesday, September 24, 2013 5:18 PM To: excel-...@googlegroups.com javascript: Subject: Re: $$Excel-Macros$$ How to paste all the values in the text field of a web page can you please say how to store in array or collection On Tuesday, September 24, 2013 3:23:26 PM UTC+5:30, Ravi Kumar wrote: Store the value in any array or collection and then paste it to ie textbox Warm Regards, Ravi Kumar. From: excel-...@googlegroups.com mailto:excel-...@googlegroups.com [mailto:excel-...@googlegroups.com] On Behalf Of Ravinder Sent: Tuesday, September 24, 2013 3:01 PM To: excel-...@googlegroups.com mailto:excel-...@googlegroups.com Cc: Soum Subject: RE: $$Excel-Macros$$ How to paste all the values in the text field of a web page Not able to access website and not getting how its working. From: excel-...@googlegroups.com mailto:excel-...@googlegroups.com [mailto:ex...@googlegroups.com] On Behalf Of Menaka Balakrishnamoorthy Sent: Tuesday, September 24, 2013 2:42 PM To: excel-...@googlegroups.com mailto:excel-...@googlegroups.com Subject: $$Excel-Macros$$ How to paste all the values in the text field of a web page Hi, with the followong code I can able to paste the all the values from the excel sheet to the webpage.But if while pasting the second value the first value is getting replaced. So finally I can paste only the last cell value. I want all the range of values to be entered in the text filed. Please help me in resloving this. [code] Sub GetTable() Dim ieApp As InternetExplorer 'Dim ieDoc As Object Dim ie As Object Dim ieTable As Object Dim finalrow As Variant Range(A1).Activate colno = ActiveCell.Column MsgBox (colno) Range(A1).Select finalrow = Cells(Rows.Count, 1).End(xlUp).Row MsgBox (finalrow) 'create a new instance of ie 'Set ieApp = CreateObject(InternetExplorer.application) Set ie = CreateObject(InternetExplorer.application) ie.Visible = True ie.navigate http://abcde.com; Do Loop Until ie.readyState = READYSTATE_COMPLETE Application.Wait DateAdd(s, 3, Now) While ie.Busy DoEvents Wend For i = 2 To finalrow ' abcde is element id, if you forget then read the step number 2 again ie.document.getelementbyid(Email).Value = Cells(i, colno).Value Application.Wait (Now + TimeValue(0:00:10)) 'MsgBox Time expired Next [/code] -- 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 mailto:excel-macros...@googlegroups.com .