[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More

x

Microsoft Office

65K

Solutions

41K

Contributors

Microsoft Office is an integrated suite of applications that includes Outlook, Word, Excel, Access, PowerPoint, Visio and InfoPath, along with a number of tools to assist in making the individual components work together. Coding within and between the projects is done in Visual Basic for Applications, known as VBA.

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

Sign up to Post

I am trying to find a powershell script to export all distribution lists from on-premise Exchange 2010 and import them into Office 365. I want to keep these as distribution list, I do not want to convert them to groups.

Is there a way to do this?
0
Determine the Perfect Price for Your IT Services
Determine the Perfect Price for Your IT Services

Do you wonder if your IT business is truly profitable or if you should raise your prices? Learn how to calculate your overhead burden with our free interactive tool and use it to determine the right price for your IT services. Download your free eBook now!

Excel file example contains 10 columns.
The request is that for all rows where "Motel" is in column A, these rows are moved to Sheet2.
EE-Example.xlsx
0
I have a client that insists on moving email items in Outlook by right clicking on the email and selecting move / Other folder. When he does this it takes about 10 to 15 seconds for the dialog box to open. After that everything is OK. He says this started after the last Office 365 update last week.

He does not want to drag the item to another folder which works fine because "that is not the way I am used to doing it." I would really hate for the poor guy to do something different even if it makes his life easier!!

He does have a lot of sub folders which I think is the problem however he claims it worked until last weeks office 365 updates. I have no way of knowing if this is true or not.

I need to find out how to make it so it does not take so long when he right clicks on an email item and selects "move" / "Other Folder"  for the dialog box to come up.
0
Hi,

I have a Excel formula problem, my Excel formula knowledge is not good. Please refer to my attached JPG file.

Thomas

What is my error on cell F2? I want to get a result (IF cell A2 = "AA" , E12 will X L1. IF cell A2 = "BB" , E12 will X L2. IF cell A2 = "CC" , E12 will X L3.)

Regards,
Thomas
0
my vba below is copying and pasting data from one sheet to another.
I need assistance in pasting it to the next empty row. I keep getting an error msg when attempting to modify. (the macro below just paste from A2)

Sub Copy()
Dim i As Long
Dim lngLastRow As Long, lngPasteRow As Long

'Find the last row to search through
lngLastRow = Sheets("Data").Range("D65535").End(xlUp).Row

'Initialize the Paste Row
lngPasteRow = 2

For i = 2 To lngLastRow
    If Sheets("Data").Range("D" & i).Value = "test1" Then
        Sheets("Data").Select
        Range("A" & i & ":IV" & i).Copy
        Sheets("Cars").Select
        Range("A" & lngPasteRow & ":IV" & lngPasteRow).Select
        ActiveSheet.Paste
        lngPasteRow = lngPasteRow + 1
    End If
Next i

End Sub
0
Excel Index formula not working

Please see attachment - Explain why formula is not working and how to fix it.
Index-issue.xlsx
0
All of a sudden a client of mine doesn't receive email.  He is a single Office 365 user.  Invoices are current, etc.

He can send email from both the portal and Outlook... doesn't receive email at either location.

The only email that he can receive is email he sends to himself.

Looks like this started at Oct 9, 2018 at 4:43pm.
0
0
0
Excel - Concatenate issue.
Please see attachment.
I need to know why this is not working and how do I fix it.
concatenate.xlsx
0
Big Business Goals? Which KPIs Will Help You
Big Business Goals? Which KPIs Will Help You

The most successful MSPs rely on metrics – known as key performance indicators (KPIs) – for making informed decisions that help their businesses thrive, rather than just survive. This eBook provides an overview of the most important KPIs used by top MSPs.

i have a distribution group called sales group and another distribution group called marketing.

under sales mail universal distribution group we have- sales@domain.com
 under marketing universal distribution group we have marketing @domain.com and marketing1 @domain.com

can we add the marketing email addresses both of them under sales distribution group

i dont want to remove marketing email addresses under marketing group.

we have on premise AD and is synced through AAD sync to office 365 as these distribution groups are in office 365 portal.

i tried to add in office 365 directly but it threw error saying these email addresses already exist.
0
Hello, I have this Excel document I've been struggling with for quite some time now. I would like to have row "N" through row "Q" highlighted in Red with White lettering based on two criteria. The number in column "O" greater than "0" and the Date in column "Q" equal to or less than the date in cell "M1". The reason for using the date in cell "M1" is that I put this date manually each afternoon and print the spreadsheet for the next day for the production line.

Thanks
Spreadsheet.JPG
0
Good morning,

In my textbox4 i succed to give a format to the number like 1 254 254  but when i apply it to my textbox3 It doesn't work. I want it with decimals in my textbox 3

Thank you
Draft.xlsm
0
Hello,

In the attached file-worksheet DETAILS
These are the main columns
LOGON_ID,ASSOCIATE_CONTRACTORS, JOB_CODE, CSDB_ENTITLEMENT

If you filter by the Job code, you will see all Unique values of CSDB entitlements
alloted to that job code.
If filter by user, you will see all the entitlement assigned to that user. This will not
tell us if any of the missing or unassigned entitilement which we discussed earlier as Unique.

Looking for a formula or a macro which will give the user's missing and matching entitlements in the following format

LOGON_ID      ASSOCIATE_CONTRACTOR      JOB_CODE CSDB_ENTITELMENT MISSING ENTITLEMENT

e.g
If you fitler job code and select CZ0202. In this job code we have 2 users John Smith and Naomi Morris
we get 11 CSDB_ENTITLEMENTS
ALFA21
ALFA22
ALFA23
SIGMA13
SIGMA13
SIGMA14
SIGMA17
SIGMA18
BOSS22
BOSS23
BOSS24

I have put in the the report in the REPORT tab, to explain what I need.

Thank you for your help. I appreciate it
ENT_RECORDS.xlsx
0
I had this question after viewing Modify default height of drop-down filter menu in Excel.

I manage an addin to Excel that I've created in vba. I'd like to add a custom option under the filter drop-down menu. On the referenced case the question was if the poup size could be set programmatically. Now I'm interested in adding a new custom option to the menu. Can the menu be manipulated in any way at all?
0
How do I loop thru a folder called October to load all the files found within the folder.

I know what to do with the file once I locate the file - I have code to import the file.  I am somewhat familiar with the FileSystem Object, but I am struggling with:

Once I identify the folder how do I proceed to loop thru to take the next file until empty ?
0
I have a VBA COUNTIF statement that will not evaluate a value within a cell unless I go into the call and re-type the cell.  The cell value is text.  As an example in the cell is 10.10.2018.  If I go into the cell and re-type in the value (note I was sent the spreadsheet, I did not type the original value).

When I set a variable to the cell it correctly displays "10.10.2018" (before any re-type.  Thus, why am I forced to re-type in the value in order for the CountIf to recognize the value ?

 Count = Application.CountIf(Cells(5, i), "10.10.2018")
0
I have an xls file called "Masterlist" that has hundreds of contacts, i.e. Member ID, first name, last name, phone, and email in respective columns/rows.

I have another xls template that only contains Member ID in a column.  I need a formula/method to auto fill/populate the remaining info, i.e. first name, last name, phone, and email per row that matches Member ID on the template file from the Masterlist xls file.  

I'm assuming it's a vlookup or lookup formula, but need a bit more direction and most efficient method.
0
I need an If/Then statenment in excel. On Sheet 1, Column B, if the cell matches something in Column D of Sheet 2, I need it to say "Yes". If the cell is not in Column D of Sheet 2, it should say "No"
0
Powerful Yet Easy-to-Use Network Monitoring
Powerful Yet Easy-to-Use Network Monitoring

Identify excessive bandwidth utilization or unexpected application traffic with SolarWinds Bandwidth Analyzer Pack.

Got a doubt in excel. I have wind speed and power values. I need to find the average of all power values for wind speeds lying between 2 values.
Perhaps this can be done with SUMIF and INDEX MATCH for 2 criteria?
Please find attached the excel sheet.
Any help is much appreciated.
Thanks!
wind.xlsx
0
I have a display function that will display data from my worksheet to a locked textbox, Now i want to build upon my code to only display if the cells in column
D = Environ("Username")

Open in new window


The code i am currently using for displaying the code is
Private Sub CommandButton39_Click()

    Range("B1:B37").Select
    ActiveWorkbook.Worksheets("FUN1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("FUN1").Sort.SortFields.Add Key:=Range("B1"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("FUN1").Sort
        .SetRange Range("A1:D37")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
Me.TextBox4.Value = ""
Dim wb As Workbook
Workbooks("Working.xlsm").Activate
Dim arrIn As Variant
Dim arrOut()
Dim i As Long
Dim j As Long

    arrIn = Sheets("FUN1").Range("A1").CurrentRegion
    
    ReDim arrOut(1 To UBound(arrIn))
    
    For i = 1 To UBound(arrIn)
    
        For j = 1 To UBound(arrIn, 2) - 1
            arrOut(i) = arrOut(i) & arrIn(i, j) & vbTab
        Next j
        
        arrOut(i) = arrOut(i) & arrIn(i, j)
    
    Next i
    
    With TextBox4
        .MultiLine = True
        .Value = Join(arrOut, vbCrLf)
    End With
End Sub

Open in new window

0
We are planning an Exchange 2013 hybrid deployment with Office 365.

Current infrastructure:
4 Exchange 2013 servers, 3 of them in a DAG, 1 Separate for another domain.
All mail servers are in my mail domain.

The issue I am having with research is our current deployment doesn't match any of the hybrid deployment guides.
Our AD Forest has 6 sub domains one of them being our mail domain where our mail servers reside.
The department that wants to go to the hybrid deployment is setup differently than all other departments.
They have their own forest/domain with a two way trust with the mail domain.
All of their accounts are on a separate server that is not part of the DAG and a separate database that is only on this one server.
All of their accounts are linked accounts to their separate forest/domain.
Our initial plan is to only migrate 35 users then get the other 900 moved once the deployment is successful.

Any advice is much appreciated
https://docs.microsoft.com/en-us/exchange/exchange-hybrid
0
Dear All


              i'm migrating on-premises exchange mailbox to Office 365, but I see the sync got stuck for a long time (see below screen), is there anything wrong ? any help would be appreciated

1
Keith
0
Hi

I have this below code that generates BarCodes based on values from my MSHFlexgrid1 while the picture is in a PictureBox ("Picture1")

 when run in the IDE, I have each Picture related to the Value from my MSHFlexgrid1.
Ex:
No issue
When i run it with the .exe, this is when i have the problem where the pictures don't match.
Ex:
with issue
The code i have is:
  xlObj.ActiveWorkbook.ActiveSheet.range("A1") = "BARCODE"
    xlObj.ActiveWorkbook.ActiveSheet.range("B1") = "BARCODE VALUE"
    xlObj.ActiveWorkbook.ActiveSheet.Columns("A").ColumnWidth = 37.59


     With MSHFlexGrid1
        Dim gridRow As Long, xlRow As Long, LastRow As Long, xlDown As Long

        For gridRow = 1 To MSHFlexGrid1.Rows - 1
            If MSHFlexGrid1.TextMatrix(gridRow, 1) <> "" Then
  
                For xlRow = 2 To (MSHFlexGrid1.Rows - 1) + 1
                    If xlObj.ActiveWorkbook.ActiveSheet.Cells(xlRow, 2) = "" Then

                        Form1.Text1.Text = MSHFlexGrid1.TextMatrix(gridRow, 1)
                        makeBC
                        
                        DoEvents

                        '********************************************************************************************************
                        SavePicture Picture1.Image, "C:\Pic.bmp"
                        '********************************************************************************************************

                       ' Sleep 200 ' to

Open in new window

0
Access 2016:

In a module called "basPublicVariables"  I create a variable:  "Public XYZ as Boolean"

Using a Form I assign a value to XYZ.

When I go to another form, that Variable has lost its value, or reverted to zero or etc.....

QUESTION: How do I preserve the value of a Variable from one form to the next?
0

Microsoft Office

65K

Solutions

41K

Contributors

Microsoft Office is an integrated suite of applications that includes Outlook, Word, Excel, Access, PowerPoint, Visio and InfoPath, along with a number of tools to assist in making the individual components work together. Coding within and between the projects is done in Visual Basic for Applications, known as VBA.