Stack Column and Shapes in Excel

[MeetGlen]

Hi All,

I am not able to work on the Stack Column Chart in VBA. One main reason i understood from the debug was its not able to reference to particular chart when it becomes active. Help on this would be very much appreciated.

And second aspect is if there is any workaround in working out excel shapes in excel.

Hope i making it understandable.

Thank you for the help.

Regards Glen

 

[MeetGlen]

i tried these two scenerios

(1) finalrow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 3 To finalrow
If Cells(i, 3).Value <> IsNumber Then
Cells(i, 1).Resize(1, 9).EntireRow.Delete
End If
Next i

(2) finalrow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 3 To finalrow
If Cells(i, 3).Value <> Cells(i, 3).NumberFormat("########") Then
Rows(i).EntireRow.Delete
'Cells(i, 1).Resize(1, 9).EntireRow.Delete
End If
Next i

'My Case is that i have data columns A2 : I2 xldown. i want to delete entire row if value in C3:C is not meeting the eight digits no (e.g 40003566).
Note. i have formated all data in C3:C as number, so when i use the above (2) code it deletes rows which is not intended. (1) code also deletes off 5 rows which is not intended, ie it deletes the above "criteria<>" metioned

Please help

 

[GlennUK]

finalrow = Cells(Rows.Count, 1).End(xlUp).Row
For i = finalrow To 3 Step -1
If Len(Cells(i, 3).Text) <> 8 Then
Cells(i, 1).EntireRow.Delete
End If
Next i

... you have step backwards if you are deleting from the list that you are processing.

 

[MeetGlen]

Thank you very much, it works as intendent

 

[GlennUK]

My pleasure