Posts by MrRedli

hi guys,

Can you please tell me what the below code of line do and does it mean?

Private Const EXCHIVERB_REPLYTOSENDER = 102
Private Const EXCHIVERB_REPLYTOALL = 103
Private Const EXCHIVERB_FORWARD = 104


Private Const PR_LAST_VERB_EXECUTED = "http://schemas.microsoft.com/mapi/proptag/0x10810003"
Private Const PR_LAST_VERB_EXECUTION_TIME = "http://schemas.microsoft.com/mapi/proptag/0x10820040"
Private Const PR_SMTP_ADDRESS = "http://schemas.microsoft.com/mapi/proptag/0x39FE001E"
Private Const PR_RECEIVED_BY_ENTRYID As String = "http://schemas.microsoft.com/mapi/proptag/0x003F0102"

hi guys,

Can you please help me I need to convert text which is saved as DDD MM DD to actual date. so for example I need "Mon Feb 05" to be converted to 05/02/2018 or "Sun Feb 05" to be shown as 05/02/2017.

why do you just use pivot table for this?

you have 2 create a list first and then use data validation for the dropdown.

please find attached macro with built in function. Hope this helps

this is what you need?

Re: Sum all sheet based on column header

Thanks Krishnakumar - exactly what I wanted.

Thanks KJbox for the VBA but I think I will go with Krishnakumar solution.

Re: Sum all sheet based on column header

I would prefer excel built in but if it's possible happy to look into udf

hi guys,

can some one help me? attached sample file. I am looking for formula which will sum based on month in b2 from all sheets. I have got formula which works fine for 1 sheet but can not make it work with all sheet.

the original file has over 20 sheets which I am trying to add up. and has data over 5yrs.

Re: Macro to allow location and change file type to XLS

tried changing this comes with error "Run-time error 91: Object variable or with block variable not set"

Re: copy and past column based on day of the month (AUD $25)

hi Charles, any update on the code?

Re: Macro to allow location and change file type to XLS

anyone who tell me why I am getting type missed match at the array formula?

Re: Macro to allow location and change file type to XLS

I have the below code (from Ron de Bruin website) which I have tried to modify but I get type miss match on "Sheets(Array(Output1, O2)).Copy" line. Can someone look into this?

Sub Copy_ActiveSheet_2()
'Working in Excel 2000-2016
    Dim fname As Variant
    Dim NewWb As Workbook
    Dim FileFormatValue As Long
    'Check the Excel version
    If Val(Application.Version) < 9 Then Exit Sub
    If Val(Application.Version) < 12 Then
        'Only choice in the "Save as type" dropdown is Excel files(xls)
        'because the Excel version is 2000-2003
        fname = Application.GetSaveAsFilename(InitialFileName:="", _
        filefilter:="Excel Files (*.xls), *.xls", _
        Title:="Select Location to Save File and Enter File Name & extension")
        If fname <> False Then
            'Copy the ActiveSheet to new workbook
            ActiveSheet.Copy
            Set NewWb = ActiveWorkbook
            'We use the 2000-2003 format xlWorkbookNormal here to save as xls
            NewWb.SaveAs fname, FileFormat:=-4143, CreateBackup:=False
            NewWb.Close False
            Set NewWb = Nothing
        End If
    Else
        'Give the user the choice to save in 2000-2003 format or in one of the
        'new formats. Use the "Save as type" dropdown to make a choice,Default =
        'Excel Macro Enabled Workbook. You can add or remove formats to/from the list
        
        fname = Application.GetSaveAsFilename(InitialFileName:="", filefilter:= _
            " Excel Macro Free Workbook (*.xlsx), *.xlsx," & _
            " Excel Macro Enabled Workbook (*.xlsm), *.xlsm," & _
            " Excel 2000-2003 Workbook (*.xls), *.xls," & _
            " Excel Binary Workbook (*.xlsb), *.xlsb", _
            FilterIndex:=2, Title:="Select Location to Save File and Enter File Name & extension")
        'Find the correct FileFormat that match the choice in the "Save as type" list
        If fname <> False Then
            Select Case LCase(Right(fname, Len(fname) - InStrRev(fname, ".", , 1)))
            Case "xls": FileFormatValue = 56
            Case "xlsx": FileFormatValue = 51
            Case "xlsm": FileFormatValue = 52
            Case "xlsb": FileFormatValue = 50
            Case Else: FileFormatValue = 0
            End Select
            'Now we can create/Save the file with the xlFileFormat parameter
            'value that match the file extension
            If FileFormatValue = 0 Then
                MsgBox "Sorry, unknown file extension"
            Else
                'Copies the ActiveSheet to new workbook
                Sheets(Array(Output1, O2)).Copy
                Set NewWb = ActiveWorkbook
                'Save the file in the format you choose in the "Save as type" dropdown
                NewWb.SaveAs fname, FileFormat:= _
                             FileFormatValue, CreateBackup:=False
                    Sheets(Array("Output 1", "Output 2")).Select
                    Cells.Select
                    Selection.Copy
                    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                        :=False, Transpose:=False
                NewWb.Close False
                Set NewWb = Nothing
            End If
        End If
    End If
End Sub

Re: Macro to allow location and change file type to XLS

Thanks BaraaKhalil, however I want use to select the path and name the workbook and not define this in the macro. Also I want to save this as xls not xlsm.

hi guys,

Can someone help me, I am looking for a code which will copy output1 and output2 tab from existing worksheet into new worksheet and save the file as XLS.

it should also give the user option to save the file in user define folder and name as they need.

below is my attempt but its does not work and keeps crashing on "Worksheets(Array("Output 1", "Output 2")).Copy"

Private Sub CommandButton1_Click()
     
    Dim UserDirectory As String
     
    UserDirectory = Get_Folder("Enter directory path where ReadMe is to be placed:")
    If UserDirectory = "" Then Exit Sub
    UserDirectory = UserDirectory & "/"
     
    Worksheets(Array("Output 1", "Output 2")).Copy
    ActiveWorkbook.SaveAs Filename:= _
        varResult, FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False
        
    Sheets(Array("Output 1", "Output 2")).Select
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
     
End Sub
 
Private Function Get_Folder(Optional HeaderMsg As String) As String
     
    With Application.FileDialog(msoFileDialogFolderPicker)
        .InitialFileName = Application.DefaultFilePath
        .Title = HeaderMsg
        If .Show = -1 Then
            Get_Folder = .SelectedItems(1)
        Else
            Get_Folder = ""
        End If
    End With
     
End Function

Re: copy and past column based on day of the month (AUD $25)

the dt is showing as 01/09/2017

Re: copy and past column based on day of the month (AUD $25)

sorry attached file now.

hi guys,

I need a macro which will create column based on the next month days excluding weekends. and copy values from pervious day of the week into new date. (attached sample)

Below is step when the button is pressed.

• find which is the last month already been created. is attached its August.
• then create new column for each of the month for Sept excluding weekend (so it will create 21 column) and add sum column at the end which total for the month.
• copy value from last week of pervious month based on day of the week into the new month. So for example copy 1st Sept will copy values from 25th Aug which last Friday of the month of Aug.
• all formulas need to remain and updated as new columns are added in. I have added a column showing which cells are values for reference. So when coping data it need to only copy the values and all formula will remain in place.
• the total column formula will need to be updated based on days in the month and so will the formula in row 1.

hope I have explained this well.

I have paid 10% already to OZgrid will pay $25 AUD to person who completes the task. Need this done by Friday Morning 7/07/17.

Re: Transpose data from one sheet to other in particular format - AUD $20

Yes this is set as date in DD/MM/YYYY

Re: Transpose data from one sheet to other in particular format - AUD $20

also just the output 1 format is not right, there are 4 rows created instead of one

[TABLE="width: 552"]

[TD="class: xl67, width: 92, bgcolor: transparent"]Date
[/TD]
[TD="class: xl68, width: 92, bgcolor: transparent"]Time
[/TD]
[TD="class: xl69, width: 92, bgcolor: transparent"]Import kWh
[/TD]
[TD="class: xl69, width: 92, bgcolor: transparent"]import kVArh
[/TD]
[TD="class: xl69, width: 92, bgcolor: transparent"]Export kWh
[/TD]
[TD="class: xl69, width: 92, bgcolor: transparent"]Export kVArh
[/TD]

[TD="class: xl69, bgcolor: transparent"]19/05/2015
[/TD]
[TD="class: xl68, bgcolor: transparent, align: right"]12:30 AM
[/TD]
[TD="class: xl69, bgcolor: transparent"][/TD]
[TD="class: xl69, bgcolor: transparent"][/TD]
[TD="class: xl69, bgcolor: transparent, align: right"]21
[/TD]
[TD="class: xl69, bgcolor: transparent"][/TD]

[TD="class: xl69, bgcolor: transparent"]19/05/2015
[/TD]
[TD="class: xl68, bgcolor: transparent, align: right"]12:30 AM
[/TD]
[TD="class: xl69, bgcolor: transparent, align: right"]21.112
[/TD]
[TD="class: xl69, bgcolor: transparent"][/TD]
[TD="class: xl69, bgcolor: transparent"][/TD]
[TD="class: xl69, bgcolor: transparent"][/TD]

[TD="class: xl69, bgcolor: transparent"]19/05/2015
[/TD]
[TD="class: xl68, bgcolor: transparent, align: right"]12:30 AM
[/TD]
[TD="class: xl69, bgcolor: transparent"][/TD]
[TD="class: xl69, bgcolor: transparent"][/TD]
[TD="class: xl69, bgcolor: transparent"][/TD]
[TD="class: xl69, bgcolor: transparent, align: right"]42
[/TD]

[TD="class: xl69, bgcolor: transparent"]19/05/2015
[/TD]
[TD="class: xl68, bgcolor: transparent, align: right"]12:30 AM
[/TD]
[TD="class: xl69, bgcolor: transparent"][/TD]
[TD="class: xl69, bgcolor: transparent, align: right"]10.476
[/TD]
[TD="class: xl69, bgcolor: transparent"][/TD]
[TD="class: xl69, bgcolor: transparent"][/TD]

[/TABLE]

this should show as below:

[TABLE="width: 474"]

Date

Time

Import kWh

import kVArh

Export kWh

Export kVArh

19/05/2015

[TD="align: right"]12:30 AM[/TD]
[TD="align: right"]21.112[/TD]
[TD="align: right"]10.476[/TD]
[TD="align: right"]21[/TD]
[TD="align: right"]42[/TD]

[/TABLE]