Почему не работает код?

[Bogusgl]

По нажатию кнопки, хочу собрать и обработать данные на каждом листе и вставить результат на активный Лист один под другим в конкретный столбец.
Это то чего я хочу, а он мне говорит:Type mismatch (Error 13)

Подскажите плиз что я не так делаю?
Если что, то я чайник, объясните на пальцах!
Пожаааалуйста! )))

PHP код:

Sub XXX()

Dim sh1 As Worksheet, i, iq, qq As Integer
Dim xq, yq, zq As Currency
Application.ScreenUpdating = False
xq = 0
yq = 0
zq = 0
iq = 16
For Each sh1 In ThisWorkbook.Worksheets
With sh1
    If .Index <> ThisWorkbook.ActiveSheet.Index Then
        i = .Index + 1
         Do
           xq = .Cells(iq, 4)
           yq = yq + xq          
           iq = iq + 1
           If xq > 0 Then zq = zq + xq Else zq = zq
           xq = 0
         Loop Until IsNumeric(xq) = False
       Cells(i, 9).Value = yq
       Cells(i, 10).Value = zq
       yq = 0
       zq = 0
     End If
End With
Next sh1
Application.ScreenUpdating = True
End Sub 


[EducatedFool]

Попробуйте так:

Sub XXX()
    Dim sh1 As Worksheet, i, iq, qq
    Dim xq, yq, zq
    Application.ScreenUpdating = False
    xq = 0
    yq = 0
    zq = 0
    iq = 16
    For Each sh1 In ThisWorkbook.Worksheets
        With sh1
            If .Index <> ThisWorkbook.ActiveSheet.Index Then
                i = .Index + 1
                Do
                    xq = Val(.Cells(iq, 4))
                    yq = yq + xq
                    iq = iq + 1
                    If xq > 0 Then zq = zq + xq Else zq = zq
                    xq = 0
                Loop Until IsNumeric(xq) = False
                Cells(i, 9).Value = yq
                Cells(i, 10).Value = zq
                yq = 0
                zq = 0
            End If
        End With
    Next sh1
    Application.ScreenUpdating = True
End Sub

PS: Долго думал, что может означать загадочня конструкция в конце этой строки кода:
If xq > 0 Then zq = zq + xq Else zq = zq

[IgorGO]

полагаю этот

         Do 
           xq = .Cells(iq, 4) 
           yq = yq + xq           
           iq = iq + 1 
           If xq > 0 Then zq = zq + xq Else zq = zq 
           xq = 0 
         Loop Until IsNumeric(xq) = False

следует заменить на такой

         Do while isnumeric(.cells(iq,4))
           xq = .Cells(iq, 4) 
           yq = yq + xq           
           iq = iq + 1 
           If xq > 0 Then zq = zq + xq Else zq = zq 
           xq = 0 
         Loop

[IgorGO]

согласен, эту загадочную конструкцию

If xq > 0 Then zq = zq + xq Else zq = zq

можно смело заменить на

If xq > 0 Then zq = zq + xq

и еще, Type mismatch (Error 13) появляется в определенной строке, не затруднит Вас указать в какой именно?

[Bogusgl]

Сообщение от IgorGO

и еще, Type mismatch (Error 13) появляется в определенной строке, не затруднит Вас указать в какой именно?

Вот тут:

PHP код:

yq = yq + xq 


Сообщение от IgorGO

можно смело заменить на
Код:

If xq > 0 Then zq = zq + xq

А точно хуже не будет??? ))))))

[Bogusgl]

Спасибо за предложения, ща буду пробывать! )))

ЗЫ: А что это такое и как это работает?

[doober]

Сообщение от IgorGO

и еще, Type mismatch (Error 13) появляется в определенной строке, не затруднит Вас указать в какой именно?

смею предположить что на эту строку

If xq > 0 Then zq = zq + xq Else zq = zq

Так как xq As Variant

и при не числовом значении в ячейке ошибка

[Bogusgl]

Сообщение от IgorGO

полагаю следует заменить на такой

         Do while isnumeric(.cells(iq,4))
           xq = .Cells(iq, 4) 
           yq = yq + xq           
           iq = iq + 1 
           If xq > 0 Then zq = zq + xq Else zq = zq 
           xq = 0 
         Loop

Не работает пишет Application-defined or object-defined error и ссылается на Do while isnumeric(.cells(iq,4))

[IgorGO]

скопировал это

Do while isnumeric(.cells(iq,4))

в редактор нажал Enter, он его тут же переделал в

Do While IsNumeric(.Cells(iq, 4))

(узнал While и IsNumeric понаписывал их с большими буквами где надо, после запятой поставил пробел в .Cells(iq, 4 - все должно работать.
Скопируйте строку из этого сообщения в редактор

[Bogusgl]

Ну да, вот так вот все и сделал, а он ругается:

Sub ЧЧЧ()

Dim sh1 As Worksheet, i, iq, qq As Integer
Dim yq, xq, zq As Currency
Application.ScreenUpdating = False
xq = 0
yq = 0
zq = 0
iq = 16
For Each sh1 In ThisWorkbook.Worksheets
With sh1
    If .Index <> ThisWorkbook.ActiveSheet.Index Then
        i = .Index + 1
        Do While IsNumeric(.Cells(iq, 4))
           xq = .Cells(iq, 4)
           yq = yq + xq
           iq = iq + 1
           If xq > 0 Then zq = zq + xq Else zq = zq
           xq = 0
         Loop
       Cells(i, 9).Value = yq
       Cells(i, 10).Value = zq
       yq = 0
       zq = 0
     End If
End With
Next sh1
Application.ScreenUpdating = True
End Sub

Я наверное где-то нереально туплю... Да?