Go Premium for a chance to win a PS4. Enter to Win

x

Microsoft Applications

43K

Solutions

37K

Contributors

Microsoft applications include a variety of software programs, including development and digital authoring programs (Expression and Media Center), educational programs, Internet software, including Essentials, Skype and the Live family, anti-virus, productivity applications and suites like Office, Excel, Word, Outlook, Access and PowerPoint, video games and server applications such as Exchange, SharePoint, IIS and Virtual Server.

Share tech news, updates, or what's on your mind.

Sign up to Post

I want to provide the user with the macro in an excel but I do not want them to see my macro codes, is it possible? if yes please suggest.

I want to implement this in Excel and word application both.
0
Veeam Task Manager for Hyper-V
LVL 1
Veeam Task Manager for Hyper-V

Task Manager for Hyper-V provides critical information that allows you to monitor Hyper-V performance by displaying real-time views of CPU and memory at the individual VM-level, so you can quickly identify which VMs are using host resources.

I had this question after viewing Modification of VBA to use named range instead of offset.

Rgonzo1971 was very kind of helping me many times.  the code  in earlier post was great. now i tried to implement this into my worksheet. it seems like for every cell, i have created two procedures for two cell. please see attached file. but i think there have to be a easiler way to combine all of these into one Sub Procesure. i do not know how to do this. any help is appreciated. if it would not be simplified then it seems like i have to have 16 seperate procedures for each of the cells.

EEE.pngEE.xlsb
0
excel vba
I have data i'm copying to another workbook, from my current workbook.

Dim curWks As Worksheet
Dim templWks As Worksheet
Dim rngToCopy As Range

  
Set curWks = ActiveSheet
With curWks

Set rngToCopy = .Range("A1:AX65453", .Range("a1").End(xlToRight).End(xlDown))
End With

Workbooks.Open _
fileName:="C:\Program Files\enterprise\Customer Copy\Customer_Template.xlsx"


If ActiveSheet.Name = "Project Data" Then
Else
Sheets("project Data").Activate
End If

Set templWks = ActiveSheet
templWks.Cells.Select
templWks.Cells.Clear

' APPENDS DATA
rngToCopy.Copy _
Destination:=templWks.Range("A65453").End(xlUp)


' after i copy data i need to insert a column at  Column P


Workbooks("Customer_Template.xlsx").Close SaveChanges:=True
Application.CutCopyMode = False

Open in new window



What I need:
after i copy data i need to insert a column at  Column P in the other workbook.
And give the Column Header a name "Customer  Price"


Thanks
fordraiders
0
how can I lookup with two values in Excel. Please read sheet 2 from sheet 1 in the attached example.
grid-map-analysis.xlsx
0
My outlook 2013  OOF works for some time for some hrs. and then turns off automatically

It is only me having issues, anything to be checked in my outlook
0
Hello All,

We have a few computers.
On one computer when i click on a control and want to open the Zoom box with Shift+F2 i get a message,
"Add-in missing or was modified". and access locks up.
I already uninstalled Access 2010 and installed it again and it did not help.
Thanks in advance
0
Please see attach spreadsheet for example,

Can you please help me automate the counting of records using a macro.

There are three worksheets
1. Priorities - Lists all the Priorities in column A that will be used in responses on the Responses worksheet
2. Responses - Each row is a set of responses by a user and there may be up to 50 user responses.  I will populate these manually.  The worksheet has some examples.  The responses going across the row can go up to 150 after the name in column b.
3. Results - Counts the responses for every row by user that is in the responses worksheet. The responses are are totaled in the last column. (or on a separate worksheet if easier)

When you look at the attached file you can see two examples.
CountResults.xlsx
0
Hi all,

From last few hrs i have been trying to make a Pivot table, Column "C" "Task" based Person based Count.

Wanted the work done by
How many Voice, Editing, Camera, Anchor work did "Micheal" do

If anyone can help me would be great
attached sample file
Thanks in advance
Sample.xlsx
0
I need to create a Task Scheduler for 10 pm every day, but if the PC is off at that time, it needs to forgot this event and wait until next day 10 pm.  In other works if the PC is off skit the event.
Right now my script create the event but if the computer is off, the event occur at soon user log on in the morning, I need to avoid it.
Any ideas and thanks for your help.
 
#Create a 10 pm task Scheduler

$taskExists = Get-ScheduledTask | Where-Object {$_.TaskName -like $jobname }

if($taskExists)
{}
else
{
$script =  "-ExecutionPolicy Bypass -file $File"
$action = New-ScheduledTaskAction –Execute "powershell.exe" -Argument "$script"
$trigger = New-ScheduledTaskTrigger -daily -At $Time
$Description = "Shutdowm computers at $Time every day."
$settings = New-ScheduledTaskSettingsSet -AllowStartIfOnBatteries -DontStopIfGoingOnBatteries -StartWhenAvailable -DontStopOnIdleEnd
Register-ScheduledTask -TaskName $jobname -user "theuser" -Password "password"-Action $action -Trigger $trigger -RunLevel Highest -Settings $settings -Description $Description
}
0
I am ranking (column AH)  the points for a group of members based on if they meet all percentages greater than or equal 100.  My problem is when the point total (column AG) for a non-qualified member is greater than the qualified member.  I cannot figure out how to exclude the non-qualified member from the formula.  I've attached my spreadsheet and my formula is:  

=IF(NOT($G2>=100%),"Not Qualified",IF(NOT($M2>=100%),"Not Qualified",IF(NOT($S2>=100%),"Not Qualified",RANK($AG2,$AG2:$AG4)+SUMPRODUCT(--($AG$2:$AG$4=$AG2),--($D$2:$D$4>$D2)))))
Ranking_EE_111417.xlsx
0
Get your Disaster Recovery as a Service basics
LVL 1
Get your Disaster Recovery as a Service basics

Disaster Recovery as a Service is one go-to solution that revolutionizes DR planning. Implementing DRaaS could be an efficient process, easily accessible to non-DR experts. Learn about monitoring, testing, executing failovers and failbacks to ensure a "healthy" DR environment.

hi
Just wanted to find out if there is any DateDif configuration that would show the number of years and days between two dates eg. the difference between 12/12/1945 and 14/11/2017 is 71 years and 28 days. Or indeed some other formula?
Thanks
0
need help opening a .webloc file.  thank you
0
I have a column in spreadsheet.  It has a (') in front of each number '006040001
When I use the find and replace with a space it turns only some of the numbers into something that looks like a formula that looks like this 9.9502E+17 instead of the number.
I tried formatting the column as text and I also tried formatting the column using copy, paste value only.

In both cases I still get this on some of the numbers.  If I click on it the real numbers do come back  but I need this to just be a text value as I am using it for a naming convention.  The number were generated by a program I have no control over.
.
0
This follows on from a previous question and some validation checking.

=IF(AND(D37="Yes",D39="Town"),"(Co(z) + 0.6)/1.6)^2",IF(AND(D37="No",OR(D39="Sea",D39="Country")),"Ce(z) x qb","Ce(z) x Ce,t x qb"))

Simplified version

=IF(AND(D37="Yes",D39="Town"),"Equ3",IF(AND(D37="No",OR(D39="Sea",D39="Country")),"Equ1","Equ2"))

Based on the Eurocodes for wind design on which I am basing this spreadsheet I have an issue.  

The final answer for Equ 3 should equal Equ1 + equation 3 ( which is static = Co(z) + 0.6)/1.6)^2) or Equ 2 +  equation 3.

Not sure of how to build this one. I had thought using the cell E41 adjacent to D41 to display?
scaffoldv3.xlsx
0
I need to check the values of a number of cells and keeping getting errors. D39 is a 'list cell' to control entries

1st check
=IF(D37="No", And(D39="Sea"or"Country")"text1=iftrue","text2=iffalse")

if I then change cell D37 to 'Yes' then
=IF(D37="Yes", And(D39="Sea"or"Country")"text3=iftrue","text4=iffalse")

Thanks in advance Paul
0
Hi All,
is there a  vba code to measure the response time between receipt and response to emails from shared inbox.
Average time from start to end of an outlook email thread ?

thanks
0
I created a simple Macro that cleans some data from an excel file that generated from ServiceNow every month.  The Macro simply formats some fields, creates columns, splits data in one column to two columns and sorts the data.  Here is the current code, I know the code isn't optimized but I am under a time constraint to get this done.  

Sub MIMCleanup()
'
' MIMCleanup Macro
'
' Keyboard Shortcut: Ctrl+k
'
    Columns("A:A").Select
    Selection.NumberFormat = "mm/dd/yyyy"
    Columns("B:B").Select
    ActiveWorkbook.Worksheets("Page 1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Page 1").Sort.SortFields.Add Key:=Range("B2:B16") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Page 1").Sort
        .SetRange Range("A1:O16")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Columns("E:E").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("D:D").Select
    Selection.TextToColumns Destination:=Range("D1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="-", FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
    Range("E1").Select
    ActiveCell.FormulaR1C1 = …
0
I am attaching a file and I'm wondering if this needs to be done with a macro or can it be done using formulas e.g. indirect?
1. On the Week names and numbers sheet I have a list of week dates and numbers. Is there a way to create and rename sheets only using the week dates marked in yellow e.g. 3/11/2017, 17/11/2017, 1/12/2017 either using a macro or formulas (ideally it would be great to have it done so that the file with the dates could just be re-created for the following year?
2. Then to have the contents of 03-11-2017 automatically copied to all these newly created renamed sheets..and last but not least,
3. to have the corresponding week date and week numbers for the sheet entered automatically in the areas in yellow on the sheet.

Thanks.
EE_update_sheet_names.xlsx
0
Dear Experts:

I got a list / datat table with the following make-up ...

data_list_numbering
The numbering in Column A (so far manually) should be automated.

The macro or formula is to count the number of occurrences of the e-mail adresses in Column A as depicted in the screenshot above.

- Single e-mail addresses get the number 1
- Multiple occurrences of e-mail addresses get 1 to n numbering depending on the number of occurrences of the respective e-mail address.

I have attached a sample file for your convenience.

Help is very much appreciated. Thank you very much in advance.

Regards, Andreas

Numbering_Occurrences_e-mail_ee.xlsx
0
Free Tool: IP Lookup
LVL 11
Free Tool: IP Lookup

Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Hello,

I want to repeat every date in a month four times. This exercise is required every month. How can I do it easily every month without a macro. As given in the file.

Sanjay.
Month-Dates.xlsx
0
Hi there, I'm working on writing a Macro in excel (don't have any VBA experience). I'm hoping to use the value on tab one in C5 and return the list of all items numbers that correspond to C5 (column C in tab 2). Is this possible to do with a macro?

Thank you!!
Andrea
Excel-Help-11.xlsx
0
I have a data set with Identifiers in column A, a second column containing identifiers in column B and a value in column C.

I want to find all records in column B that has the same identifier as column A, and THEN check the value in column C for each record until I find a value of x.  Therefore, I want the formula to stop looking when it finds the value I'm looking for and return TRUE (or false) in column D.

In this example, I want to find the value = 0 in column C.  Hence, the formula for row 1 should return TRUE since I found a value of 0 on row 3 where A was found in column B.

    A      B      C     D
   
1  N4   N5    1     TRUE
2  N8   N4    1     FALSE (Because it can't find A in column B)
3  N6   N4    0     FALSE (Because it can't find A in column B)
4  N7   N4    1     FALSE (Because it can't find A in column B)

Any thoughts ?
Thanks
0
I have an excel pivot table that has subtotals
Subtotal is at the top

Label                   Count of upd_Apps   Sum of upd_Apps
upd_Apps             5                                       499
App1                      1                                        53
App2                      1                                        14
App3                      1                                        80
App4                      1                                       297
App5                      1                                         55
Label                   Count of upd_Apps1   Sum of upd_Apps1
upd_Apps_1                          3                                 565
WINAPP1                          1                                 45
WINAPP10                         1                                131
WINAPP11                          1                                389

Is there a way to hide the detail e.g. App1 or WINAPP1, and display just the subtotal lines?
If not, I will use sumif and countif functions instead of the pivot table.

Thanks
0
I have a column of cells that has data in it (in the form of sentences). In column B, I would like it to say "Added Lesson" if there is text in column A saying "Added Lesson". If there is not text that says "Added Lesson" it should say "Other".

THanks!
0
Hi,
I'm looking for a time saving formula where I don't need to enter all the ranges in for each sheet every time.
Example

=COUNTIF(AV14:AV6520,">0")

I would simply enter the following
A1    14     B1   6520

and all formulas for same row would reference the range for col AV

Many thanks

Ian
0

Microsoft Applications

43K

Solutions

37K

Contributors

Microsoft applications include a variety of software programs, including development and digital authoring programs (Expression and Media Center), educational programs, Internet software, including Essentials, Skype and the Live family, anti-virus, productivity applications and suites like Office, Excel, Word, Outlook, Access and PowerPoint, video games and server applications such as Exchange, SharePoint, IIS and Virtual Server.