Search:

Type: Posts; User: Michael M; Keyword(s):

Page 1 of 6 1 2 3 4

Search: Search took 0.50 seconds.

  1. Replies
    5
    Views
    76

    Re: How do I approach this?

    If you post some sample data, we may have a look at it.
    Here's how

    https://www.mrexcel.com/forum/about-board/508133-attachments.html
  2. Replies
    5
    Views
    76

    Re: How do I approach this?

    How about a Pivot Table using count for the Yes / No
    Otherwise, try looking at SUMPRODUCT
  3. Replies
    1
    Views
    46

    Re: Publishing a spreadsheet

    You could make it an Addin instead of a PDF
    Have a read here about Excel addins

    https://docs.microsoft.com/en-us/office/dev/add-ins/excel/excel-add-ins-overview
  4. Replies
    3
    Views
    29

    Re: Code to make header visible

    Thas fine but it won't get you back to the top of the page if you are more than 24 rows down the page !
  5. Replies
    3
    Views
    29

    Re: Code to make header visible

    You could add this line to your button code


    Application.Goto Reference:=Range("a1"), Scroll:=True
  6. Replies
    4
    Views
    95

    Re: I want my spreadsheet looking good

    Simple answer is..Nope !!
    apart from zooming as mentioned earlier, make the current columns wider !...:beerchug:
  7. Replies
    4
    Views
    95

    Re: I want my spreadsheet looking good

    Have you tried selecting the area you want to "fill" the screen,then ....
    View>>Zoom>>Fit selection
  8. Replies
    13
    Views
    3,593

    Re: VBA to delete row based on cell value.

    Try


    Sub MM1()
    Dim i As Long
    With ActiveSheet
    For i = .Cells(.Cells(.Rows.Count, 6).End(xlUp).Row, 1).Row To 2 Step -1
    If IsNumeric(.Cells(i, 6).Value) = False Then .Cells(i,...
  9. Replies
    8
    Views
    124

    Re: Locking Formula

    So maybe....

    Sub copy()
    With Sheets("Sheet2").Range("B1:B20")
    .Value = Sheets("Sheet2").Range("A1:A20").Value
    End With
    End Sub
  10. Replies
    8
    Views
    124

    Re: Locking Formula

    thespardian
    I'm guessing the OP used the code as posted, which will fail because the action appears on the sub line


    Sub copy()ThisWorkbook.Sheets("Sheet1").Range("B1:B20").Value =...
  11. Replies
    8
    Views
    124

    Re: Locking Formula

    Try this one


    Sub copy()
    With Range("B1:B20")
    .Value = Range("A1:A20").Value
    End With
    End Sub
  12. Re: Excel formula to add a minimum amount and add an extra hour

    Maybe

    =IF(A2<=3,3,A1*A2)
  13. Re: Upon selection of item in table row, need msg box to appear and have resulting number entered in table

    Hi Dave
    Doesn't this part do that ??


    If ans <> "" Then
    Cells(Target.Row, "N") = ans
    Exit Do
    End If
  14. Re: remove quotation from excel while pasting the data

    Can't you do a Find /Replace
    In the find box, put the quotes and leave the Replace box blank...then replace ALL
  15. Replies
    1
    Views
    60

    Re: Convert excel formula to vba

    Try


    With Range("AC2:AC" & lr)
    .Formula = "=A2 & "" - "" & D2"
    .Value = .Value
    End With
  16. Replies
    2
    Views
    68

    Re: Hide and Show worksheets

    Greg
    Have at a look at this thread.
    If you need further help, post back

    https://www.mrexcel.com/forum/excel-questions/973802-vba-unhide-sheet-then-re-hide.html
  17. Replies
    5
    Views
    105

    Re: If cell is Empty!

    OOps sorry....

    Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim ws As Worksheet
    For Each ws In Worksheets
    With ws
    If .Cells(10, 5).Value = "" Then
    ...
  18. Replies
    5
    Views
    105

    Re: If cell is Empty!

    Try


    Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim ws As Worksheet
    For Each ws In Worksheets
    With ws
    If .Cells(10, 5).Value = "" Then
    ...
  19. Replies
    7
    Views
    188

    Re: VBA: need unique values from a column

    Try


    Sub MM1()
    Range("G2:G" & Cells(Rows.Count, "G").End(xlUp).Row).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=ActiveSheet.Range("H2"), Unique:=True
    End Sub
  20. Replies
    11
    Views
    264

    Re: why giving me N/A?

    N/a is not a zereo !!
    If N/a is a possiibility, try

    =IF(OR(G8=0,G8="N/a",AB8>=0),0,AB8)
  21. Re: Need a VBA Code for select multiple sheets on excel

    Ok, glad you got it sorted ...:beerchug:
  22. Replies
    6
    Views
    161

    Re: Run-time error '1004'

    Does the one further down work ???


    For Each con In wkm.Connections

    If con.Name = "Query - MONTHLY REPORTING" Then con.Refresh

    Next
  23. Thread: Formulas

    by Michael M
    Replies
    4
    Views
    127

    Re: Formulas

    Try


    =IF(ISNUMBER(A1),1,0)
  24. Replies
    4
    Views
    147

    Re: Don't understand this range reference

    the 1 at the beginning of this section of the formula "forces" the results from, for example, {TRUE,FALSE,TRUE}


    1/($d$1:$d3<>"")

    to then having 1 be divided by them, thus forcing them to be...
  25. Re: Need a VBA Code for select multiple sheets on excel

    This will select by Sheet name



    Sub MM1()
    Sheets("Sheet X").Select
    Sheets("Sheet Z").Select (False)
    End Sub

    And this one by Sheet number
Results 1 to 25 of 150
Page 1 of 6 1 2 3 4