xcount

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...

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...

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...

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...

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...

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) >...

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...

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...

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...