Search results

Don You should be able to look at the logic of what is happening and see if you can work on a solution Give it a go first

Also consider using Flash Fill https://support.microsoft.com/en-us/office/using-flash-fill-in-excel-3f9bcf1e-db93-4890-94a0-1578341f73f7

If you are only applying it to a small range you could try the example to monitor cell colors described here https://www.mrexcel.com/board/threads/capturing-cell-color-change-in-vba.574405/

Same code as before just looking for a Double Character to split at Private Sub CommandButton2_Click() Dim ans As String Dim MyStr As String MyStr = TextBoxParagraph.Text MyStr = Replace(MyStr, Chr(10), Chr(234)) MyStr = Replace(MyStr, Chr(13), Chr(234)) Dim SplitStr As String SplitStr =...

What do you define as a paragraph or sentance ?

This is an Excel support website Maybe you need to goto a Cucumber support website?

Pasadu Luckily for you I have been involved here since 2008 Because in January 2009, I remembered a post about Timestamps Well I didn't remember the date, but I remembered the post https://chandoo.org/wp/timestamps-excel-formula-help/ The post discusses a technique for using formulae with...

I never liked the original code but I was in a hurry Try the following: Private Sub CommandButton1_Click() Dim ans As String Dim MyStr As String MyStr = Replace(TextBoxComments.Text, Chr(10), " ") MyStr = Replace(MyStr, Chr(13), "") Dim s As Variant s = Split(MyStr, " ") Dim comstr As...

add the following to your userform Private Sub CommandButton1_Click() Dim MyStr As String MyStr = Replace(TextBoxComments.Text, Chr(10), " ") MyStr = Replace(MyStr, Chr(13), " ") Dim last_spc As Integer, first_spc As Integer last_spc = InStr(TextBoxComments.SelStart, MyStr, " ") lftpiece =...

If you want to apply to a known range Dim MyRng As Range Set MyRng = Range("H2:H20") 'Set Range as appropriate Dim DateString As String DateString = "dd mmm yy" 'Customise date striing as you please MyRng.NumberFormat = DateString If you want to apply to an entire column Dim MyRng As Range...

Try the following in the Comments Text Box Private Sub TextBoxComments_Change() TextBoxLineNumber.Text = "" For i = 1 To Len(TextBoxComments.Text) - Len(Replace(TextBoxComments.Text, Chr(13), "", 1)) + 1 TextBoxLineNumber.Text = TextBoxLineNumber + CStr(i) + Chr(10) Next End Sub

=SUMPRODUCT((U3:U33=$AG$33)*AC3:AC33*1.25)+SUMPRODUCT((U3:U33=AG33)*AE3:AE33*SUM(AC39:AC48)) or simplified to: =SUMPRODUCT((U3:U33=$AG$33)*(AC3:AC33*1.25+AE3:AE33*SUM(AC39:AC48))) now without Column AE =SUMPRODUCT((U3:U33=$AG$33)*(AC3:AC33*1.25+(X3:X33/$X$34)*SUM(AC39:AC48)))

Ricky I developed a system to do just that Have a read of the post at: http://chandoo.org/wp/2016/09/01/hourly-goals-chart-with-conditional-formatting/ Good luck

Select each bar Look at where the data is coming from in the Formula bar Look at those cells and work out what it is doing It is pro-rata ering the data based on the largest bar But using the Original data for the Labels

I assume you want this ? see attached file

Goku This cannot be done using a Formula I Suggest you upload a sample of the data and we can devise some VBA to automate it for you

VisiCalc (for "visible calculator") was the first spreadsheet computer program for personal computers, originally released for Apple II by VisiCorp in 1979. Damn I remember the first time I used that on an Apple II, it was in 1980 at High School

Have a read of the posts at: https://stackoverflow.com/questions/19504858/find-all-matches-in-workbook-using-excel-vba or https://stackoverflow.com/questions/52879794/function-to-find-all-matches-of-a-value

Do you mean G10 as: ="-------> Upon Request on the "&C10 or do you want that to display when E10 is 0 ? If that is the case G10: =IF(E10=0,"-------> Upon Request on the "&C10,"") or G9: =IF(F9=D9,"-------> Upon Request on the "&C9,"") copy G9 down

Your line If IsNumeric(Me.TextBox1.Value) And Len(Me.TextBox1.Value) = 10 Then says if the Textbox is Numeric and if the Length of the value in Textbox 1 =10 then exit the sub But seeing neither are true it doesnt exit and re-asks for input Enter a value of 1234567890 and press exit and it...

Worksheet.Range("A" & ctsr(i) & ":G" & cstr(i)).copy

Can you attach the file so we can review the situation? Thanx

Should Range("Mu_1").Cells(n, i).GoalSeek Goal:=0, ChangingCell:=Range("Mu_1").Cells(1, i) be Range("Mu_1").Cells(n, i).GoalSeek Goal:=0, ChangingCell:=Range("Mu_1").offset(1, i)

Thats the main purpose of this forum to help people and use examples like you did

Try this: If SpeciesID < 600 Then Set found = Sheets("Sheet2").Range("C2:C" & totArabic).Find(what:=SpeciesID, LookIn:=xlvalues, LookAt:=xlWhole) 'finds a match in Col C Else Set found = Sheets("Sheet2").Range("B2:B" & totArabic).Find(what:=SpeciesID, LookIn:=xlvalues...