Run-time error '13'

[simplyeshu]

Hello Frens,

I am trying to copy the content of few cells into the empty cells which are suppressed because of the same value but i am getting type mismatch error.

Below code i am using...

Sub Test()
For i=2 to (ActiveSheet.UsedRange.Rows.Count)
If Trim ((Cells(i,2) + Cells (i,6)+ Cells (i,8) + Cells (i,12) + Cells (i,17)+ Cells (i,25) + Cells (i,27) + Cells (i,29) + Cells (i,31) + Cells (i,33) + Cells (i,35 ))) = 0 Then
Range(Cells (i,2), Cells (i,35)).Select
Selection.FillDown
Range(Cells(i,42), Cells(i,42)).Select
Selection.FillDown
End If
Next
End Sub

Can anyone help me here?

 

[Desu Nota from Columbus]

what line gets highlighted during debug?

 

[Ruddles]

And have all those cells got numbers in them or letters? Or could they be either?

 

[simplyeshu]

I am getting error on the following line:

If Trim ((Cells(i,2) + Cells (i,6)+ Cells (i,8) + Cells (i,12) + Cells (i,17)+ Cells (i,25) + Cells (i,27) + Cells (i,29) + Cells (i,31) + Cells (i,33) + Cells (i,35 ))) = 0 Then Range(Cells (i,2), Cells (i,35)).Select

Some have numbers and some have letters

 

[simplyeshu]

Thank all for ur help.

I got it resolved now.

below is the code snippet for deleting empty rows and filling the data.

==================================
Sub My_Report()


'To delete empty rows

For i = 1 To ActiveSheet.UsedRange.Rows.Count

If Application.CountA(Range(Cells(i, 1), Cells(i, 42))) = 0 Then
ActiveSheet.Rows(i).Delete
End If
Next
'Fill the data
For i = 2 To (ActiveSheet.UsedRange.Rows.Count)

'If Trim((Cells(i, 2) + Cells(i, 6) + Cells(i, 8) + Cells(i, 12) + Cells(i, 17) + Cells(i, 25) + Cells(i, 27) + Cells(i, 29) + Cells(i, 31) + Cells(i, 33) + Cells(i, 35))) = 0 Then

If Application.CountA(Range(Cells(i, 1), Cells(i, 35))) = 0 Then

Range(Cells(i, 2), Cells(i, 35)).Select
Selection.FillDown
Range(Cells(i, 42), Cells(i, 42)).Select
Selection.FillDown
End If
Next
End Sub