xcount

  1. L

    Next Available Line

    Hi, Can this code be edited so it puts the data on the next available line? I sometimes need to delete some data. Thanks Private Sub CommandButton1_Click() Static xCount As Integer Application.EnableEvents = False Range("J3").Offset(xCount, 0).Value = Range("H6").Value...
  2. L

    Run Code From Button and Save As PDF File

    Hi, I have this code which runs when cell H46 is changed. What I would like to do is have this code run by a button instead which also saves the print area B2:H53 of this sheet 'Lookup Invoice' to a PDF file. Is this possible to do and if so how please? Thank you very much Dim xVal As...
  3. L

    Time Stamp ID

    Hello, This code places history of changes to cell H44 starting in J3. Can this code be edited to also put the value of H3 starting in K3. Thank you very much Excel WorkbookJK1Total Invoice History2Invoice TotalsInvoice Number3$ 140.004$ 660.005$ 130.00Lookup...
  4. C

    VBA Module to automatically work in every excel file

    Hi, I have the following Excel Module that creates a new formula called Findword, Currently I have to press Alt + F11 and add it as a new module everytime I open up a new workbook, is there a way to save it in the background so it can automatically be used in every workbook <code class="vb...
  5. J

    Filtered Average Late/On time/ Early percentage??

    Hi All, I could really use some help with this. =COUNTIF(J16:J575,"Late")/COUNTA(J16:J575)*100 This Formula will give me the average but it will not change as the filters are used? I created a formula in VBA that does work and will change as the filter changes but will only work on numbers...
  6. L

    udf to extract 2 words at a time

    I found a UDF that extracts a word at a time, how do I change the code to extract 2 words at a time? many many thanks Function findword(Source As String, Position As Integer) Dim arr() As String arr = VBA.Split(Source, " ") xCount = UBound(arr) If xCount < 1 Or (Position - 1) >...
  7. M

    Count every word which contains a bold character - ready short code, but something is wrong (value error)

    Hi! I inserted my code and added some comment. I hope that somebody can find the mistake. Function CountBold(WorkRng As Range) Dim i, xcount As Integer For i = 1 To Len(WorkRng) If WorkRng.Characters(i, 1).Font.Bold = True Then If WorkRng.Characters(1...
  8. P

    Make variable within a Sub equal to variable within a Private Sub

    Private Sub cmdbtnSubmit_Click() Dim myWrkBk As Workbook Dim mySheet As Worksheet Dim textValUp As Integer Dim textValDown As Integer Dim numLenA As Integer Dim numLenF As Integer Dim startNum As Integer textValUp = (CInt(txtbxdz.Value) / txtDz / txtCs) + 0.5...
  9. S

    Resetting cells that have had bold font in to regular font

    I have a spreadsheet where I want to count a range of cells that have bold text in them, I have done this through a function. However, when someone deletes the value in a cell that has a bold font, the cell still shows the font as being bold and the function still counts it even though it is...

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top