почему глупый ВБА не работает ;-(

[Мишка]

Уважаемые профи, объясните мне...
такой код:

Код: Выделить всё

For i = 1 To Range("dish").Columns.Count
For j = 1 To Range("poducti").Rows.Count + 1
rr = Range("poducti").Rows(j).Row
cc = Range("dish").Columns(i).Column
'ya4 = Cells(rr - 1, cc)
  If Cells(rr - 1, cc) = "" Or IsNumeric(Cells(rr - 1, cc)) = False Then Cells(rr - 1, cc) = 0
Next j
Next i

гавёха работает на ненужном листе! знаю, можно добавить шитс("лист2").и т.д.

но вот такой код почему не работает?:

Код: Выделить всё

For i = 1 To Range("dish").Columns.Count
For j = 1 To Range("poducti").Rows.Count + 1
rr = Range("poducti").Rows(j).Row
cc = Range("dish").Columns(i).Column
ya4 = sheets("Лист2").Cells(rr - 1, cc)
  If ya4 = "" Or IsNumeric(ya4) = False Then ya4 = 0
Next j
Next i

Я идиот! Убейте меня, кто-нибудь!??

[alibek]

Головой надо думать, а не бездумно использовать код, который не понимаешь.

[Мишка]

Головой надо думать, а не бездумно использовать код, который не понимаешь.

спасибо, дельный совет, но с проблемой я так и не разобрался. что я не так сделал то?
я вроде все понимаю в этом коде...

в коде берется пересечение диапазона столбов с именем dish с диапазоном строк с именем poducti
получаестся "прямоугольник" из которого берется начиная со строки выше чем poducti ячейка из первого столба dish и по правую нижнюю ячейку перебираются и если не цифровое значение то заменяется на 0

[alibek]

В таком случае что по твоему означает Range?

[Krasnaja Shapka]

cells(n,m) это объект - ячейка, cells(n.m).value - это содержимое ячейки

[Мишка]

В таком случае что по твоему означает Range?

диапазон!

cells(n,m) это объект - ячейка, cells(n.m).value - это содержимое ячейки

я понимаю, я в предыдущем посте описАл происходящее.
предлагаете в конце строки дописать валуе?: ya4=...................value

[Мишка]

в таком виде тоже не работает!

Код: Выделить всё

ya4 = Sheets("Лист2").Cells(rr - 1, cc).Value
  If ya4 = "" Or IsNumeric(ya4) = False Then ya4 = 0

но в предыдущих постах коды не выдавали ошибки!!! не в первом ни во втором случае!!! (не было никаких носоответствий типов!)
в первом посте второй код не работает! он что то делает примерно то же время что и рабочий, но результата нет!
я не понимаю... можете просто сказать что не так? плиз...

[AleksMiass]

С диапазоном лучше (нужно) работать на активном листе!!!

[alibek]

диапазон!

Чего?

[GSerg]

С диапазоном лучше (нужно) работать на активном листе!!!

Бред.

[Мишка]

диапазон!

Чего?

это проверка?
диапазон ячеек
range("a:a") - столб А
range("a1:e100") - диапазон с а1 по е100
если например .селект, то он выделит с а1 по е100.

[KL]

в таком виде тоже не работает!

Код: Выделить всё

ya4 = Sheets("Лист2").Cells(rr - 1, cc).Value
  If ya4 = "" Or IsNumeric(ya4) = False Then ya4 = 0

но в предыдущих постах коды не выдавали ошибки!!! не в первом ни во втором случае!!! (не было никаких носоответствий типов!)
в первом посте второй код не работает! он что то делает примерно то же время что и рабочий, но результата нет!
я не понимаю... можете просто сказать что не так? плиз...

1) указывай листы для всех рангов

2) ya4 = "" в любом случае подпадает под IsNumeric(ya4) = False

[Мишка]

1) указывай листы для всех рангов

2) ya4 = "" в любом случае подпадает под IsNumeric(ya4) = False

не в любом, а точнее-никогда. проверил уже, наверно раз сто!
не работает:
For i = 1 To Sheets("Лист2").Range("dish").Columns.Count
For j = 1 To Sheets("Лист2").Range("poducti").Rows.Count + 1
rr = Sheets("Лист2").Range("poducti").Rows(j).Row
cc = Sheets("Лист2").Range("dish").Columns(i).Column
ya4 = Sheets("Лист2").Cells(rr - 1, cc).Value
If ya4 = "" Or IsNumeric(ya4) = False Then ya4 = 0
Next j
Next i
работает:
For i = 1 To Range("dish").Columns.Count
For j = 1 To Range("poducti").Rows.Count + 1
rr = Range("poducti").Rows(j).Row
cc = Range("dish").Columns(i).Column
If Cells(rr - 1, cc).Value = "" Or IsNumeric(Cells(rr - 1, cc).Value) = False Then Cells(rr - 1, cc).Value = 0
Next j
Next i
ладно... видимо не сталкивался с этим никто. или глюк просто...

[anvg]

If ya4 = "" Or IsNumeric(ya4) = False Then ya4 = 0

А с чего ты взял, что такой код должен что-то менять в таблице?
Ну, присвоил ты переменной уа4 значение 0, а в таблицу кто будет значение заносить?

If Cells(rr - 1, cc).Value = "" Or IsNumeric(Cells(rr - 1, cc).Value) = False Then Cells(rr - 1, cc).Value = 0

Потому и обнуляет ячейки таблицы, поскольку ты ноль записываешь в ячейку Cells(rr - 1, cc).Value
Да и пересечение зачем искать столь пошлым образом?

Код: Выделить всё

Dim pCell As Range

For Each pCell In Application.Intersect(Range("poducti"), Range("dish"))
    If IsEmpty(pCell.Value) Or Not IsNumeric(pCell.Value Then '...
Next pCell


[alibek]

диапазон ячеек

Каких именно ячеек, не задумывался?

[KL]

1) указывай листы для всех рангов

2) ya4 = "" в любом случае подпадает под IsNumeric(ya4) = False

не в любом, а точнее-никогда. проверил уже, наверно раз сто!
не работает:
For i = 1 To Sheets("Лист2").Range("dish").Columns.Count
For j = 1 To Sheets("Лист2").Range("poducti").Rows.Count + 1
rr = Sheets("Лист2").Range("poducti").Rows(j).Row
cc = Sheets("Лист2").Range("dish").Columns(i).Column
ya4 = Sheets("Лист2").Cells(rr - 1, cc).Value
If ya4 = "" Or IsNumeric(ya4) = False Then ya4 = 0
Next j
Next i
работает:
For i = 1 To Range("dish").Columns.Count
For j = 1 To Range("poducti").Rows.Count + 1
rr = Range("poducti").Rows(j).Row
cc = Range("dish").Columns(i).Column
If Cells(rr - 1, cc).Value = "" Or IsNumeric(Cells(rr - 1, cc).Value) = False Then Cells(rr - 1, cc).Value = 0
Next j
Next i
ладно... видимо не сталкивался с этим никто. или глюк просто...

а так?

Код: Выделить всё

For i = 1 To Range("dish").Columns.Count
For j = 1 To Range("poducti").Rows.Count + 1
rr = Range("poducti").Rows(j).Row
cc = Range("dish").Columns(i).Column
Set ya4 = sheets("Лист2").Cells(rr - 1, cc)
If ya4 = "" Or IsNumeric(ya4) = False Then ya4 = 0
Next j
Next i

[Мишка]

а так?

Код: Выделить всё

For i = 1 To Range("dish").Columns.Count
For j = 1 To Range("poducti").Rows.Count + 1
rr = Range("poducti").Rows(j).Row
cc = Range("dish").Columns(i).Column
Set ya4 = sheets("Лист2").Cells(rr - 1, cc)
If ya4 = "" Or IsNumeric(ya4) = False Then ya4 = 0
Next j
Next i

нет, тоже не работает... ладно наплюйте... обойдусь с одним вариантом.

[@Nik]

Не работает, потому что отсутствует "Dim ya4 As Range"