Sub KlientSumm() Dim i As Integer Dim t As Integer Dim SummDt As Integer Dim SummKt As Integer Dim NameKlient As Variant
i = Cells(Rows.Count, 24).End(xlUp).Row t = Cells(Rows.Count, 5).End(xlUp).Row For a = 8 To i Debug.Print Cells(a, 24) NameKlient = Cells(a, 25).Text SummDt = 0 SummKt = 0 For b = 8 To t If Cells(b, 3).Text = Cells(a, 25).Text Then SummDt = 0
Next Cells(a, 25) = SummDt - SummKt Next Debug.Print t End Sub
[/vba]
ссылается на это - Cells(a, 25) - недопустимый символ хотя в Debug.Print все показывает
не понимаю что тута не так, заранее простите новичка за глупый вопрос
[vba]
Код
Sub KlientSumm() Dim i As Integer Dim t As Integer Dim SummDt As Integer Dim SummKt As Integer Dim NameKlient As Variant
i = Cells(Rows.Count, 24).End(xlUp).Row t = Cells(Rows.Count, 5).End(xlUp).Row For a = 8 To i Debug.Print Cells(a, 24) NameKlient = Cells(a, 25).Text SummDt = 0 SummKt = 0 For b = 8 To t If Cells(b, 3).Text = Cells(a, 25).Text Then SummDt = 0
Next Cells(a, 25) = SummDt - SummKt Next Debug.Print t End Sub
[/vba]
ссылается на это - Cells(a, 25) - недопустимый символ хотя в Debug.Print все показывает
не понимаю что тута не так, заранее простите новичка за глупый вопрос312kbps
Сообщение отредактировал Serge_007 - Пятница, 07.08.2015, 15:03
Michael_S, они есть в приложенном коде (код ТС явно вставил из буфера, поэтому я предположил , что они есть и в исходном коде ТС, только странно, что ТС не смутила подсветка синтаксиса...) и их видно на скриншоте в сообщенииUdik
Michael_S, они есть в приложенном коде (код ТС явно вставил из буфера, поэтому я предположил , что они есть и в исходном коде ТС, только странно, что ТС не смутила подсветка синтаксиса...) и их видно на скриншоте в сообщенииUdikKSV
пишу в английской расклдаке , даже если копирую из строки Debug.Print Cells(a, 24), часть Cells(a, 24) - то все равно ошибка делаю на маке, расширение файла xlsm
пишу в английской расклдаке , даже если копирую из строки Debug.Print Cells(a, 24), часть Cells(a, 24) - то все равно ошибка делаю на маке, расширение файла xlsm312kbps
к сожалению файл не могу выложить, там слишком много данных не для общественного просмотра, а если там все по удалять, то в нем опять смысл пропадет (
к сожалению файл не могу выложить, там слишком много данных не для общественного просмотра, а если там все по удалять, то в нем опять смысл пропадет (312kbps
тогда посмотрите на скриншот во втором сообщении и заново перенаберите те места, где на скриншоте квадратики в красных строках
если все равно возникнет ошибка, то приложите хотябы скриншот этой ошибки (и чтобы было видно на какой строке она возникает) и напишите значение переменной а в момент ошибки.
тогда посмотрите на скриншот во втором сообщении и заново перенаберите те места, где на скриншоте квадратики в красных строках
если все равно возникнет ошибка, то приложите хотябы скриншот этой ошибки (и чтобы было видно на какой строке она возникает) и напишите значение переменной а в момент ошибки.KSV
через блокнот перекопировал текст кода и стало все нормально, не понятно от куда в тексте, как показал пользователь Udik, появляются эти кубики, спец символы
я их у себя в экселе в макросе не вижу, только выделение красным цветом и сообщение о недопустимых символах (
через блокнот перекопировал текст кода и стало все нормально, не понятно от куда в тексте, как показал пользователь Udik, появляются эти кубики, спец символы
я их у себя в экселе в макросе не вижу, только выделение красным цветом и сообщение о недопустимых символах (312kbps
поменял в редакторе VBA шриф, заработало и при копировании добавляется в конце спец символ ((( с новым шрифтом (мелкософт) стали видны эти спец символы
в чем такая замарочка, типа чиста маковская фишка такая !?)
поменял в редакторе VBA шриф, заработало и при копировании добавляется в конце спец символ ((( с новым шрифтом (мелкософт) стали видны эти спец символы
в чем такая замарочка, типа чиста маковская фишка такая !?)312kbps