Posts by Ingo_Ingo

It' NOT the same problem....but

"Please put in your file (without formula) how you want to be."

Hi,

Your formula work for me.

Please put in your file (without formula) how you want to be.

With your formula:

In Conditional formatting you can use this formula:

=SUM(COUNTIF(A2,ProjectCode))=0 where "ProjectCode" is NameRange

Hi,

I'm not a programmer....

Try to format all txt......(who have data)...

In button UPDATE

Sheets("Worksheet").Cells(y, 3).Value = Format(txtReceived, "dd.mmm.YYYY") put data in your format mm/dd/yy or mmm/dd/yyyy ...

Sheets("Worksheet").Cells(y, 4).Value = Format(txtMoved, "dd.mmm.YYYY")

Sheets("Worksheet").Cells(y, 5).Value = Format(txtCompleted, "dd.mmm.yyyy")

Change everywhere you need.

Hi,

for this:

[Blocked Image: https://www.ozgrid.com/forum/core/index.php?attachment/1231707-7-png/&thumbnail=1]

In Private Sub lstProformaDisplay_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

replace:

Me.txtDate.Value = Me.lstProformaDisplay.List(Me.lstProformaDisplay.ListIndex, 2)

with:

Me.txtDate.Value = Format(Me.lstProformaDisplay.List(Me.lstProformaDisplay.ListIndex, 2), "dd-mmm-yyyy")

Cross post:

If cell contains OOO then change to this picture

Quote

=IF(Specific cell="","",Original formula), etc.

Try:

=If(a687="",0,IF(WEEKNUM(A687,21)=WEEKNUM(B687,21),WEEKNUM(A687,21),WEEKNUM(A687,21)&-WEEKNUM(B687,21)))

or

=If(or(a687="",b687=""),0,IF(WEEKNUM(A687,21)=WEEKNUM(B687,21),WEEKNUM(A687,21),WEEKNUM(A687,21)&-WEEKNUM(B687,21)))

Hi,

If your DOB 13-06-1973 is in A2, then in B2 put this formula:

=DATE(YEAR(A2)+59,MONTH(A2),DAY(EOMONTH(A2,0)))

You forget to tell us that you posted same question here:

VBA MACRO Button click using a class instead of ID

Common sense is not so common!

Cross post

You get some answers here:

Prepare hierarchical and non-numeric pivot tables in Excel

Or

="Q"&INT(MONTH(TODAY())/3)

Sub TestPreviousQuarter()
    MsgBox Evaluate("=""Q""&INT(MONTH(TODAY())/3)")
End Sub

Hi,

use =IFERROR(B2*C2,0)+IFERROR(D2*E2,0)+IFERROR(F2*G2,0)+IFERROR(H2*I2,0)

Hi,

Try this:

Sub Loop2()
      Dim Rw As Long, Cl As Long
      Range("C2").Select
               Do
                     ActiveCell.Formula = WorksheetFunction.Average(ActiveCell.Offset(, -1), ActiveCell.Offset(, -2))
                     ActiveCell.Offset(1, 0).Select
               Loop Until IsEmpty(ActiveCell.Offset(0, -1))
      Range("A22").Select
End Sub

The formulas given by me do not produce that zero.

However, those zeros can be removed with conditional formatting or Custom Format.

Hi,

In sheet SETUP

In E4 use this formula:

=IF($B$4="","",INDIRECT($B$4&"!G"&ROW()+3)) and drag down

and in D4 use this formula:

=IF($E4="","",IF(LEN($B$4),INDIRECT($B$4&"!"&"F"&ROW()+3),"")) and drag down

In sheet Material1, Material2, Material3

In F7, then drag to G7 then drag down, this ARRAY FORMULA:

=IFERROR(INDEX(B$7:B$26,SMALL(IF($D$7:$D$26="y",ROW(B$7:B$26)-ROW(B$7)+1),ROWS($F$6:F6))),"")

Cross post If Cell Is Blank, Fill With Other Cell’s Text Data

Cross post Switch between Putty and Xshell using same Loginbutton

Your welcome.

Hi,

In A2 use this formula:

=VLOOKUP(B2,$F$2:$H$13,3,1) and drag down.