Posts by ArhamRajput

This sheet was an example this not needs to modify.

Here is the original sheet which was attached in first comments,

I just want that i have below sheet and there is 1 format in it, i want to attached this format with date validation for 1 month and so on,

If i put some text in format cells today and change the date then previous written format should be saved with the date and also format should be empty to mention new text for new date.

Alright let me explain.

I just want that if there are 30 days and everyday i need to mention new data on same format on same sheet but it is not possible with excel because

i have to remove earlier data which is on it.

On below sheet month is changing if i add data in Jan-2020 in Column C to F and if i change the month same previous data will be show that is problem.

Jan data should be saved with Jan-2020 and Feb data with Feb-2020 and so on.

Is it possible now.

royUK

Is it possible.

Separate them no need to merge.

I have attached the video please check i want o save the date date wise in column "D" to "i"

Here is an example video

Where Column C and H are changing with spin button.

Same thing i want in Column D to i.

If i add the data today and change the date then Column D to i should be empty to enter the data

Please check the video

https://drive.google.com/open?…x-n-ZaIYhyuyrSgQV7sUhJ2CY

Sir All i want that is,

Whenever i will save data in this sheet, date wise

for example today is 4/27/2020 and i save date in format then tomorrow i will add data for 4/28/2020

then previous dates data should not be removed from sheet

I want to use this format for complete month when i change the date via button all data should be available on format which i have been saved date wise.

want to use this as data entry form but data should be saved just on this given format date wise.

Dear Experts,

I want to save data in this single sheet date wise for 1 month,
When i change the date the previous data should not removed .

I know its possible with VBA and Spin button please help.

Sheet is attached below

https://www.mrexcel.com/board/…o-create-formula.1131099/

Please solve the query i would really appreciate query is attached below

My office version is 2007 its not working on. let me update it to 2016 will get back to you.

Its not working i have attached the sheet you can try there.

Custom format is not working on some cells as some dates are in text format please check or share formula to fix the problem.

Lease convert these dates to as MM-DD-YYYY i have tried but there is some issue.

royUK

Want to use duplicate code with other codes to get the result.

Justin Doward

Thanks for Your help.

It is long code to perform the action i want short code as like below.

Set Source = Range("E2:E" & Lastrow)
Source.Interior.Color = RGB(255, 255, 255)
For Each Cell In Source

    If Application.WorksheetFunction.CountIf(Source, Cell) > 1 Then
        Cell.Interior.Color = RGB(255, 199, 206)
     End If
        
    If Application.WorksheetFunction.CountIf(Source, Cell) > 1 Then
      Cell.Font.Color = RGB(156, 0, 6)
        
End If

Please convert this Highlight Duplicate Macro into VBA.

Sub Macro1()
'
' Macro1 Macro
'

'
    Columns("E:E").Select
    Selection.FormatConditions.AddUniqueValues
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    Selection.FormatConditions(1).DupeUnique = xlDuplicate
    With Selection.FormatConditions(1).Font
        .Color = -16383844
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13551615
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
End Sub

Yes!

There were 2 links and have been adde.

https://chandoo.org/forum/thre…o-complete-actioin.43857/

Here is Complete Code which is need to be perefect according to VBA.

Sub MyVBACODE2()
Application.ScreenUpdating = False
Dim i As Integer
Range("G:G,I:AG,AI:AZ").EntireColumn.Delete
Columns("A:A").Insert Shift:=xlToRight
LastRow = Range("C" & Rows.Count).End(xlUp).Row
For i = 2 To LastRow
Cells(i, 5).Value = Trim(Cells(i, 5) & ", " & Cells(i, 3) & " " & Cells(i, 4))
Next i
Range("I:I").Cut Range("A:A")
Range("B:C").ClearContents
Range("H:H").Cut Range("D:D")
Range("F:F").Cut Range("J:J")
Range("F:F").EntireColumn.Delete

Range("G2:G" & LastRow).FormulaR1C1 = "=YEARFRAC(RC[-1],RC[-3])"

Range("G1") = "Age"
Columns("A:I").EntireColumn.AutoFit
Range("H:H").EntireColumn.Delete

    Range("I1").Select
    ActiveCell.FormulaR1C1 = "Sex"
    Range("I2").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-1]=""Male"",""M"",""F"")"
    Range("I2").Select
    Selection.AutoFill Destination:=Range("I2:I159")
    Range("I2:I159").Select
    Columns("I:I").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues
    
    Range("H:H").EntireColumn.Delete
    Range("G:G").Select
    Selection.Style = "Comma"
    Application.ScreenUpdating = True
End Sub