Search results

Formula's inside shapes can only reference cell's directly eg: =Sheet1!A1 So you have to do all your math on the worksheet and reference the correct cells there Then link your shapes to the correct cells

Dean Search is Case Insensitive If you need to be case sensitive use the Find() function instead

In the Sub, Private Sub CmdSearch_Click() Change the line If InStr(1, Cells(Rownum, 4).Value, Tsearch.Value, vbTextCompare) > 0 Then to: If InStr(1, Cells(Rownum, 4).Value, Tsearch.Value, vbTextCompare) > 0 And Cells(Rownum, 11).Value > 0 Then

I don't believe you can With your List object you only have the BackColor, Bordercolor and ForeColor properties Try changing those and you may get a slightly better result

COLUMNS($D$5:D5) returns 1 but for that you want 0 When you copy it across 1 cell it becomes: COLUMNS($D$5:E5) which is 2 but you only want 1

I'm unsure what the column is for as it only uses the first date If you want the column transposed use: D5: =INDEX($B$6:$B$27,COLUMNS($D$5:D5)) , copy across D5: =TRANSPOSE(B6:B27) array entered into the row If you want a Row starting at the value in B6 incrementaly by 1 D5: $B$6+COLUMNS($D$5:D5)-1

You can use this: CELL("format",A1) If it is a date the answer will be D1 or D2 etc So you can use something like: =If(Left(CELL("format",A1),1)="D",A1, "Not a date") Check out https://support.office.com/en-us/article/cell-function-51bd39a5-f338-4dbe-a33f-955d67c2b2cf

Select the chart and you see this: The Purple and Blue boxes around the data show what the chart sees Simply drag the lower Right Corner Handles down

Graeme Please upload a small sample file to demonstrate your data layout thanx'

It depends what you want to show A simple column chart or a sorted Column chart (Pareto) might be better and simpler to read

What are you trying to achieve? If you want to change the appearance Select the chart Then Select the Design tab

Try this in a code module You can customize it to suit your requirements Sub Print_Loop() Worksheets("Data").Select Dim lr As Integer lr = Range("B" & Rows.Count).End(xlUp).Row Sheets("Trip_paper").Select For i = 3 To lr Range("C2").Value = Sheets("Data").Cells(i, 3)...

What causes the data to change ?

I'd do something like: Sub ar2() Dim i As Long, a As Long, b As Long Dim colno As Long, lr as Integer For colno = 3 To 7 a = 0 b = 0 lr = Cells(Rows.Count, colno).End(xlUp).Row For i = 2 To lr a = a + Cells(i, colno).Value If Cells(i, colno).Value <> "" Then b =...

It appears like you want to add up, count and average the numbers in each column and Can you please explain what you are trying to achieve in J2 : P32 ?

It can't be done for what you want The easiest way to manually do it is top select the chart Click on the plot area until the Chart data is shown Then drag the small Lower Right square across one cell

=Indirect("'" &File_Path & "\[" & File_Name & "]'!Test_Range") Note the use of indirect and the ' after the ] and the destination file must be open

Please see attached file:

See the attached file:

You can use a Power Query to do this Just google it

Dparteka Excel can only use Indirect when the destination workbook is open Which is why you are getting the error

You have only selected Column A to apply the CF to The CF formula needs to lock the Columns ie: =AND($B2=TRUE,OR(RIGHT($A2,3)=".wa",RIGHT($A2,3)=".oa",RIGHT($A2,3)=".sa")) Note the use of $ to lock Columns A & B or see the attached file

Can you please post your formula?

I don't have time to specifically answer your post but maybe have a look at these two posts Advanced Filter: Move Data to other Sheets http://chandoo.org/wp/2012/05/14/vba-move-data-from-one-sheet-to-multiple-sheets/ Advanced Filter Move Data to other Files...

=INDIRECT("C:\Users\Dennis\Desktop\[" & A2 & "]01-10'!$A$1")