$$Excel-Macros$$ Counting visible cells in Pivot table
Hello, How to get count of visible cells in Pivot tables where as below line gives us entire count of pivot field Name. Thanks in advance. pitmcnt_nm = pvt_tbl.PivotFields(nm).PivotItems.Count Regards, Chandra -- 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$$ Counting visible cells in Pivot table
Dear Chandrashekar, Pl share the sample data. Warm Regards, Gawli Anil Thanks Regards, Gawli Anil Narayan Software Developer, Abacus Software Services Pvt Ltd On Fri, Nov 15, 2013 at 2:13 PM, Chandra Shekar chandrashekarb@gmail.com wrote: Hello, How to get count of visible cells in Pivot tables where as below line gives us entire count of pivot field Name. Thanks in advance. pitmcnt_nm = pvt_tbl.PivotFields(nm).PivotItems.Count Regards, Chandra -- 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.
$$Excel-Macros$$ How to connect Excel macros to Quality center
Plz send the process as iam new to QC -- 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$$ if then code in macro doesn't work
Sheets(New).Select On Error Resume Next For i = 2 To ActiveSheet.UsedRange.Rows.Count If Cells(i, 14) 25 Then Cells(i, 16) = 2 Endif If cells(I,14)25 then Cells(i,16)=5 Endif next From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of dewitha.partore...@gmail.com Sent: Thursday, November 14, 2013 8:10 PM To: excel-macros@googlegroups.com Subject: $$Excel-Macros$$ if then code in macro doesn't work Hi, i hope someone can help me. Im new to working with macro's but with some help i usually understand a lot of the codes used. However, now that im actually trying something myself it doesnt quite work as i want it. I have this macro in which i have price and delivery costs. What i want is that when my price is lower than 25 euros, the delivery costs should be 2 euros. When my price is higher than 25 euros, the delivery costs should be 5 euros. This is what ive been using so far, but it doesnt work out: Sheets(New).Select On Error Resume Next For i = 2 To ActiveSheet.UsedRange.Rows.Count If Cells(i, 14) = 25 Then Cells(i, 16) = 2 End If I really hope someone can help me out here! -- 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$$ if then code in macro doesn't work
Sub DeliveryCost() Dim i As Integer Dim j As Integer Dim iEndrow As Long iEndrow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row For i = 2 To iEndrow If Cells(i, 14).Value 25 Then Cells(i, 16).Value = 2 Else Cells(i, 16).Value = 5 End If Next End Sub On Fri, Nov 15, 2013 at 3:04 PM, Ravinder ravinderexcelgr...@gmail.comwrote: Sheets(New).Select On Error Resume Next For i = 2 To ActiveSheet.UsedRange.Rows.Count If Cells(i, 14) 25 Then Cells(i, 16) = 2 Endif If cells(I,14)25 then Cells(i,16)=5 Endif next *From:* excel-macros@googlegroups.com [mailto: excel-macros@googlegroups.com] *On Behalf Of *dewitha.partore...@gmail.com *Sent:* Thursday, November 14, 2013 8:10 PM *To:* excel-macros@googlegroups.com *Subject:* $$Excel-Macros$$ if then code in macro doesn't work Hi, i hope someone can help me. Im new to working with macro's but with some help i usually understand a lot of the codes used. However, now that im actually trying something myself it doesnt quite work as i want it. I have this macro in which i have price and delivery costs. What i want is that when my price is lower than 25 euros, the delivery costs should be 2 euros. When my price is higher than 25 euros, the delivery costs should be 5 euros. This is what ive been using so far, but it doesnt work out: Sheets(New).Select On Error Resume Next For i = 2 To ActiveSheet.UsedRange.Rows.Count If Cells(i, 14) = 25 Then Cells(i, 16) = 2 End If I really hope someone can help me out here! -- 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. -- 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
$$Excel-Macros$$ Stuck in attaching multiple image files in email body
Dear Coders, iam new to VBA, was trying to automate my work, this is the last step of my task, some images are stored at a path ( here the path is in sImgPath ) when i try to insert the image in the email, first image is inserted properly, but when there is the second iteration, it deletes the previous complete email body and insert the new image. i have died trying stuff to bypass this issue. please help me out, would be really grateful to you. ( also i can not replications of code as the number of images stored on the path is not fixed, it can change on daily basis.) Thanks in advance. Here is the code i am using. Sub Create_Email() Dim objOL As Object Dim sImgPath As String Dim olMail As MailItem Dim sHi As String Dim sBody As String Dim sThanks As String Dim path_a As String, path_b As String, C_Path As String, path_before As String, image_names() As String path_before = Cells(7, 9).Value path_a = Cells(7, 10).Value ' contains path of issues folder 'path_b = Cells(8, 10).Value ' contais bsc name C_Path = path_before \ path_a ' Now C_Path has the complete path for taking images for attachemnet in the mail '** check number of files in the folders Dim MyFile As String Dim count As Integer, j As Integer MyFile = Dir(C_Path \ path_b *.jpg) GoTo Line1 ' this loop will store all the names of images in the folder to the array - image_names() Do While MyFile MyFile = Dir If MyFile = Then GoTo Line2 Else End If Line1: ReDim Preserve image_names(count) image_names(count) = MyFile count = count + 1 ' at the end of loop count will contain # of images Loop 'MsgBox j files found 'Creating The EMAIL Line2: Set objOL = CreateObject(Outlook.Application) Set olMail = objOL.CreateItem(olMailItem) With olMail .To = myem...@mydomain.com .Subject = NPO Issue :: Huawei :: path_a For j = 0 To count - 1 sImgPath = C_Path \ image_names(j) uuu = Mid(sImgPath, InStrRev(sImgPath, \) + 1) sHi = font size='3' color='black' Hi, br br Here is the required solution: br br ' in the variable sImgPath i have the file name along with the extension --- .jpg in my case sBody = p align='Left'img src= sImgPath width=700 height= 350 br br br br br br br br olMail.HTMLBody = sBody .Display Next j End With 'Free-up the objects Set olMail = Nothing Set olApp = Nothing 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.
Fwd: $$Excel-Macros$$ Formula to fetch employee names based on time
*PLEASE HELP!!!* -- Forwarded message -- From: Abhishek Jain abhishek@gmail.com Date: Wed, Nov 13, 2013 at 10:16 AM Subject: $$Excel-Macros$$ Formula to fetch employee names based on time To: MS EXCEL AND VBA MACROS excel-macros@googlegroups.com Friends, I have a file, wherein I have times when employees are scheduled to work. These times are in PST. I have a table where I have noted the hours of a day in different timezones. All I need is a formula (not VBA) that will show the corresponding employee name(s) working on that hour based on selection. See attached sample file - I have clarified. Any and all help will be appreciated. Thanks in advance. Best regards, Abhishek -- 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. Show Times.xlsx Description: application/vnd.openxmlformats-officedocument.spreadsheetml.sheet