Microsoft Applications

44K

Solutions

38K

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

To remove duplicate line if this line is based on a repeated route and also add 'Y' in column F to indicate that the next line was removed.

One can filter column b, c and d to be all equal to 0 and will see all the same route appear in column A.

See attached for detailed examples and comments.

And of course if there are more than 1 duplicates meaning like this:

108.004.600 - 108.004.600      0      0      0      84.75291788  
108.004.600 - 108.004.600      0      0      0      1.968908303  
108.004.600 - 108.004.600      0      0      0      2.417233924  
108.004.600 - 108.004.600      0      0      0      1.713124927  

then the result should be like this (3 lines below are removed) :
108.004.600 - 108.004.600      0      0      0      84.75291788   Y

and column G states how many lines were removed.

if there is no duplicate, for example:
405.091.200 - 405.091.200      0      0      0      6.337535366

then do nothing for this line.

Same concept applies to all.




Thanks !
Row-Indicator-Remove-Duplicate-EE.xlsx
0
10 Tips to Protect Your Business from Ransomware
10 Tips to Protect Your Business from Ransomware

Did you know that ransomware is the most widespread, destructive malware in the world today? It accounts for 39% of all security breaches, with ransomware gangsters projected to make $11.5B in profits from online extortion by 2019.

Has anyone had experience on converting PDF files to Visio 2016?  I lost my folder that had all my Campus Visio Diagrams but have the PDF versions.  Any help here would be appreciated.
0
How To:  
  1. Create a Desktop or Taskbar icon for the online version of Microsoft Word 365
  2. Make .doc & .docx file types open Word 365 online

Summary
I have lost Word 2010 Starter (free, ad-based version offered on limited PCs & laptops) when I had to rebuild a PC.  One free option is to use the online version of Word in Office 365.  I am using it now, but all my Word files no longer have a default app.

Being able to open a program via icon or double-click on a file is a time-saver.  I'm not sure how to set this up, though, for the online version of Word or Excel.  Or Outlook, for that matter.

Help!
0
Ah hello.

This might be a simple question, but I am a C++ programmer by trade and don't know much about Excel.  So please bear with me :)

I am analysing a network packet trace and have extracted relevant data into the attached spreadsheet.  



Long story short, I need to automatically calculate values in the "A-S" column.  The pseudo-code for doing this is:

while we have not run out of rows
     while value in first column is an S
        remember the value in the VALUE column
        go onto the next row

        (At this point, the value in the first column for the current row is an 'A')
        Subtract the remembered 'S' value from the current row's VALUE
        Write this value into the A-S column for the current row

        Go onto the next row

Open in new window


I haven't got a clue how to do this.  Can someone please advise?
0
I use a Userform to setup an AutoFilter
How can I use the special cells, visible after the Auto Filter?
Obviously the attached code will refer to all data in the worksheet.
Can I adapt it so that it just focuses on special visible cells?

Dim LastRowA As Long, x as integer

With Sheets("Sheet1")
LastRowA = .Cells(.Rows.Count, "D").End(xlUp).Row
End With

For x = 1 To LastRowA
If Range("A" & x).value = 125 Then
'insert code here
End If

Next x

Open in new window

0
Thanks to all the brilliant experts here, I got a solution working. Alas, when I went to test it again today...seems to have stopped.  In cells M15 I have entered RES - the idea is that this will only be counted once as some can only resign ONCE. So based on that, I should have the number 1 in cell BS6 - which I created using the formulas and truth table (starting at DW10 - and that bit seems to be working - I have one true there). So what have I entered incorrectly? Thanks again.
EE_WTE_RES_calcs.xlsx
0
If column B of sheet1  and column C of sheet3 is same
and
If column J of sheet3 is BUY then  add 0.01% of column D of sheet1  with itself and paste the data to column L of sheet3 and add 0.1% of column D of sheet1 with itself and paste the data to sheet3 column G
If column J of sheet3 is SELL then  subtract  0.01% of column D of sheet1  with itself and paste the data to column L of sheet3 and subtract 0.1% of column D of sheet1 with itself and paste the data to sheet3 column G
OneClick.xlsb
0
Copy column B data of sheet1 and sheet2 1st row and 2nd row  and paste the data to sheet3
see the sample file
OneClick.xlsb
0
Copy column B sheet1 and sheet2 1st row  and paste the data to sheet3
plz see the sample file
OneClick.xlsb
0
Hi Experts,

This Program is saving the attachments from Independent Outlook folder to My Dcoumnets "EmailAttchments" folder.


The issue is , loop is checking at every run the whole folder emails one by one , In that folder I will get daily one email that have same subject suppose " My Daily Report" and I need that the program check latest email only and save (overwrite) the latest attachment on destination folder and avoid checking the whole email folder.

Appreciate your help.


Public Sub SaveAttachments()
Dim objOL As Outlook.Application
Dim objMsg As Outlook.MailItem 'Object
Dim objAttachments As Outlook.Attachments
Dim NS As Outlook.NameSpace
Dim srcOLFolder As Outlook.Folder
Dim i As Long
Dim lngCount As Long
Dim srcOLFolderName As String
Dim strFile As String
Dim strFolderpath As String
Dim strDeletedFiles As String
Dim subFolderName As String
Dim sFileType As String
Dim dtDate As Date
Dim sName As String
       
       
   ' Get the path to your My Documents folder
    strFolderpath = CreateObject("WScript.Shell").SpecialFolders(16)
    
    ' The attachment folder needs to exist
    ' You can change this to another folder name of your choice
    'Assuming  a folder called "Email Attachments" in your Document folder
    Set fso = CreateObject("Scripting.FileSystemObject")
    subFolderName = "EmailAttachments"
 
    '--------------------------------------------------
    'create the folder if it doesnt exists:
    Dim ttxtfile, txtfile, 

Open in new window

0
Build an E-Commerce Site with Angular 5
LVL 12
Build an E-Commerce Site with Angular 5

Learn how to build an E-Commerce site with Angular 5, a JavaScript framework used by developers to build web, desktop, and mobile applications.

I am looking for an alternative XPS viewer/writer program besides Microsoft XPS Viewer/Document Writer.
0
I have highlighted this data we have to remove all this type of data from sheet4 to  sheet6
when we will remove this data then It will be a blank row
but I don't want that blank row also delete that row

What I want is that in sheet4  remove this type of all  data and paste that data to  sheet6
OneClick.xlsb
0
If the difference between column D and column G is  equal  or more than 3% or -3% then keep that data and delete the rest data
HistoricalData.xlsb
0
My both files are located in same place i.e.  C:\Users\user\Desktop
My First file name is OneClick.xlsb
my second file name is ReFresh.xlsb
i will place the code in second file
now what i want is to clear all the data in the sheets of OneClick file (sheet1,sheet2,sheet3,sheet4,sheet6,sheet7) except sheet5
we don't have to delete the data in sheet5 leave this sheet
0
Hi ,
I am trying to determine the Order in Which Selections are Made in listbox by the user ( Excel VBA), So far am able to populate selected into column A but selection order is missing,  below is the code  - also attached file for your reference.
Private Sub CommandButton2_Click()

ThisWorkbook.Sheets("Sheet2").Range("A1:A10").Select
Selection.Cells.Clear
   Dim msg As String
               
   For X = 0 To ListBox1.listCount - 1
                 
   If ListBox1.Selected(X) = True Then
      msg = msg & "," & ListBox1.List(X) & vbCrLf
   End If
               
   Next X
   
   ThisWorkbook.Sheets("Sheet2").Range("A1").Value = msg
   
             
      Dim X1 As Variant
X1 = Split(Range("A1").Value, ",")
On Error Resume Next
Range("A2").Resize(UBound(X1) - LBound(X1) + 1).Value = Application.Transpose(X1)
Cells.WrapText = False
ThisWorkbook.Sheets("Sheet2").Range("A1:A2").Select
Selection.Cells.Clear
ThisWorkbook.Sheets("Sheet2").Range("B2").Value = Application.WorksheetFunction.CountA(ThisWorkbook.Sheets("Sheet2").Range("A3:A10"))
ThisWorkbook.Sheets("Sheet2").Range("A3").Select
End Sub

thanks a lot for the help
0
https://www.experts-exchange.com/questions/29115581/Copy-and-paste-the-data-by-add-subtract-by-percentage.html
https://www.experts-exchange.com/questions/29115579/Conditionally-copy-and-paste-of-the-data-with-add-subtract-method.html
Plz have a look in this post
when i run the code  one after another  then they are deleting the previous data
Plz look into it and do needful
Sub STEP8_2()
Dim ws2 As Worksheet, ws3 As Worksheet, ws4 As Worksheet
Dim x2, x3, x4, arrG(), dict
Dim i As Long, lr As Long

Application.ScreenUpdating = False

Set ws2 = Sheets("Sheet2")
Set ws3 = Sheets("Sheet3")
Set ws4 = Sheets("Sheet4")
lr = ws4.Cells(Rows.Count, 1).End(xlUp).Row
x2 = ws2.Range("A1").CurrentRegion.Value
x3 = ws3.Range("A1").CurrentRegion.Value
x4 = ws4.Range("A1:T" & lr).Value
ReDim arrG(1 To UBound(x4, 1), 1 To 1)

Set dict = CreateObject("Scripting.Dictionary")

For i = 2 To UBound(x2, 1)
    dict.Item(x2(i, 2)) = x2(i, 13) & "_" & Round(x2(i, 4) * 1.005, 2)
Next i

For i = 2 To UBound(x3, 1)
    dict.Item(x3(i, 2)) = x3(i, 13) & "_" & Round(x3(i, 4) * (1 - 0.005), 2)
Next i

For i = 1 To UBound(x4, 1)
    If dict.exists(x4(i, 3)) Then
        If x4(i, 10) = Split(dict.Item(x4(i, 3)), "_")(0) Then
            arrG(i, 1) = Split(dict.Item(x4(i, 3)), "_")(1)
        End If
    End If
Next i
ws4.Range("G1").Resize(UBound(x4, 1), 1).Value = arrG
Application.ScreenUpdating = True
End Sub

Open in new window


Sub STEP8()
Dim ws2 As Worksheet, ws3 As Worksheet, ws4 As Worksheet

Open in new window

0
Hi Experts,

Need help .

I have one folder in outlook where rule is created to get emails that have attachments , I need to save all email attachment comes in that outlook folder to my windows folder , Appreciate your help in advance.

I don't know how to create macros and execute as well.
0
We are looking to set up policies to restrict which Mobile devices are able to pair with ActiveSync. Under the phone and voice settings in the exchange control panel you have the option to set up ActiveSync policies based on device model or family.  Is anyone in here currently using this to manage their ActiveSync device partnerships and if not what are you using?  If you are using this what has been your experience with it?
0
If column B & column M of sheet2 matches column C and column J of sheet4
add 0.50% of column D of sheet2 with itself and paste that data to sheet4 to column G
If column B & column M of sheet3 matches column C and column J of sheet4
minus 0.50% of column D of sheet3 with itself and paste that data to sheet4 to column G
plz see the sample file
TwoClick.xlsb
0
Python 3 Fundamentals
LVL 12
Python 3 Fundamentals

This course will teach participants about installing and configuring Python, syntax, importing, statements, types, strings, booleans, files, lists, tuples, comprehensions, functions, and classes.

If column C of sheet4 matches with column  B of sheet2 and  column J of sheet4  is not matching with column M of sheet2
then in sheet4
in L  column of sheet4 put the value of column D of sheet2
in G column of sheet4  -0.05 in  the value of L and  put the remaining value  in column G



If column C of sheet4 matches with column  B of sheet3 and  column J of sheet4  is not matching with column M of sheet3
then in sheet4
in L  column of sheet4 put the value of column D of sheet3
in G column of sheet4  + 0.05 in   the value of L and  put the total value  in column G

Plz see the sample file
TwoClick.xlsb
0
Conditionally put data if condition met
If Column H is greater than column I then Put in column K BUY
If column H is lower than column I then put in column K SELL
see the sample file
Book1.xlsb
0
Fill the empty cells in column G & L  of sheet4
copy  the data from sheet2 & sheet3 from column  D  of both the sheets  into sheet4 column G and column L
symbol sholud be same while doing this

plz see the sample file
Book1.xlsb
0
Why am I getting an error on this line?

I get a Run-time error '10040:
Application-defined or object-defined error

When I run the debugger it highlights this line

  ws.Range("A" & i + 1).Resize(UBound(str), 1).Insert shift:=xlDown
0
I'm trying to get SAP to send a report to Excel 2013 but keep getting the error Missing activeX component  Business Explorer Global Services.

Someone mentioned that this will only work with Excel 2010 , which I find odd, but then again this IS Microsoft!

What can I do other than downgrade excel to get it working?

Excel Version:       Excel  (15.0.5059)       2013
Windows Version:       Windows 7 Service Pack 1 (7601)      
Default Browser:       Internet Explorer (11.0.9600.19101)      
SAP GUI:       720 Patch 15      

Thanks

Pete
0
conditionally copy and paste of the data by percentage
plz see the sample file
sample5.xlsb
0

Microsoft Applications

44K

Solutions

38K

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.