Also I tried with this code.
Dim myColm As Range
Set myColm = Range("C:C")
myColm.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub
As I already mentioned in my first post, i am using formulas and it is not deleting the rows which has formulas.
Thanks Deb. It works.! But my actual row range is 15 to 1652. It takes more than 3 mins to delete the rows. Is there any possibility to reduce the time?
Hi
I need to delete all rows if if the cell in U column is blank.
Sub a()
Worksheets("Testing Execution Data").Select
For i = 15 To 100
If Cells(i, 21).Value = "" Then
Cells(i, 21).Select
Rows(ActiveCell.Row).Select
Selection.Delete Shift:=xlUp
End If
Next
End Sub
But it is...
Hi
I have a chart in a sheet and data in other sheet. The data range may vary then and there.
Data: B2 to Q3 (sheetname: Test Execution Data)
chart name: Chart 1 (sheetname: Dashboard)
Problem: If I have no data in column Q, then the legend color should not be shown in chart. But it is...
GGGGG,
First you will have to name the whole cells as a table.
This is one time work, just follow the steps given below.
1. Select all cells (First cell and last cell)
2. Go to Formula menu
3. Select define name
4. Enter the name (eg : "ggggg")
5. Click ok.
That't it. Now click any...
You mean, C1 is displaying this (=a1&" "&b1) instead of 123 Stone Street Apt. #4.? if yes, please disable viewing the formulas(Excel menu - Formulas - Show formulas).
If I am wrong, please post a sample file to analysis further.
=a1&b1 will do the same as what concatenate(A1,B1) will do...
Hi itisalikhan,
It can easily be done with vba. Taking the total names count and changing the drop down values with the help of print code will do what you are looking for.
Please post a sample file for more analysis.
Hi Kaushik,
Did you try copy the range from worksheet and paste it into outlook manually? Did you see any difference in col width? If you see any difference in the above case, there will not be any options afaik.
Hi lalit232
Do you want like this?
T2 T2 T2
E-117
E-125 E-125
E-124 E-124 E-124
Can you please post a sample workbook? since we are not aware where you want to have the output.
Hi Katrinthor.
The number is 010474-5589 and the year would be 1974. If I am not wrong, when the number is 010404-5589, It should return 2004.
In that case you can use this.
=IF(MID(A1,5,1)<>"0","19"&MID(A1,5,2),"20"&MID(A1,5,2))
You might need this in future.
Thanks
XML Code: <button id="customButton1" label="Serial Number" size="normal" onAction="Pop_S_nO" imageMso="AccountMenu" />
Also I changed the file format as add-in (*xla).
Please reply if you need more details.
Thanks DB and Narayan.
The button in Ribbon is working fine if I have full code in Module. But getting error if i call a user form from the module.
Module Sample code:
Sub Pop_S_nO(control As IRibbonControl)
Pop_SNo_Uf.Show vbModeless
End Sub
In User form, the code will populate serial...