Правила форума : 2.Очень ВАЖНО! При создании темы, давайте теме название, отражающее суть Вашей проблемы и указывайте предпочитаемый способ решения (формулы или макросы). Создавать темы типа «ХЕЛП», «Условное форматирование», «Проблема с макросом», «ПОМОГИТЕ», «Не работает формула», «Как решить?» и подобные - НЕЛЬЗЯ!!! Такие темы будут закрываться или удаляться.
Извините, меня что не стал расписывать как я давно уже пытаюсь решить данную тему, но тем не менее , мне Помог один человек, я больше не смею его беспокоить обратился в очередной раз на данный форум, а мне ответ, почему не на коленях и где деньги за услугу.!
Правила форума : 2.Очень ВАЖНО! При создании темы, давайте теме название, отражающее суть Вашей проблемы и указывайте предпочитаемый способ решения (формулы или макросы). Создавать темы типа «ХЕЛП», «Условное форматирование», «Проблема с макросом», «ПОМОГИТЕ», «Не работает формула», «Как решить?» и подобные - НЕЛЬЗЯ!!! Такие темы будут закрываться или удаляться.
Извините, меня что не стал расписывать как я давно уже пытаюсь решить данную тему, но тем не менее , мне Помог один человек, я больше не смею его беспокоить обратился в очередной раз на данный форум, а мне ответ, почему не на коленях и где деньги за услугу.!Болт
Думаю, что речь не о коленях. Вспомните как Вы разговариваете на улице, чтобы узнать где находится какой либо дом. Думаю что на колени Вы не падаете, но соблюдаете минимальные требования уважения (этикета). В противном случае вам не ответят или еще хуже отправят ...., не по адресу. Вам будет неприятно как сейчас. Например не зная человека я начинаю разговор с "Здравствуйте! ...."
Цитата
почему не на коленях и где деньги за услугу.!
Думаю, что речь не о коленях. Вспомните как Вы разговариваете на улице, чтобы узнать где находится какой либо дом. Думаю что на колени Вы не падаете, но соблюдаете минимальные требования уважения (этикета). В противном случае вам не ответят или еще хуже отправят ...., не по адресу. Вам будет неприятно как сейчас. Например не зная человека я начинаю разговор с "Здравствуйте! ...."gling
Болт, какая именно "некоторая" проблема, что именно не так суммирует и как надо? Порой проще написать что-то с нуля, чем копать чужой код, логику которого плохо представляешь. Проблема с суммированием AD на листе Окружная Спартакиада КАО и AD на листе Баллы КАО город (в столбце AD)??? (так у вас написано наверху) Вы хотите эту возможность в ваш макрос забить? или она там уже есть(не заметила)?
Болт, какая именно "некоторая" проблема, что именно не так суммирует и как надо? Порой проще написать что-то с нуля, чем копать чужой код, логику которого плохо представляешь. Проблема с суммированием AD на листе Окружная Спартакиада КАО и AD на листе Баллы КАО город (в столбце AD)??? (так у вас написано наверху) Вы хотите эту возможность в ваш макрос забить? или она там уже есть(не заметила)?Leanna
Лучше день потерять, потом за пять минут долететь!
Dim shOkr, shKAO, i, j Set shOkr = Sheets("Окружная Спартакиада КАО") Set shKAO = Sheets("Баллы КАО город ") For i = 6 To shOkr.Cells(Rows.Count, 1).End(xlUp).Row For j = 6 To shKAO.Cells(Rows.Count, 1).End(xlUp).Row If shOkr.Cells(i, 1) = shKAO.Cells(j, 1) Then shOkr.Cells(i, "AE") = shKAO.Cells(j, "AD") + shOkr.Cells(i, "AD"): Exit For Next Next
[/vba]
если просто сложить колонки, то можно так [vba]
Код
Dim shOkr, shKAO, i, j Set shOkr = Sheets("Окружная Спартакиада КАО") Set shKAO = Sheets("Баллы КАО город ") For i = 6 To shOkr.Cells(Rows.Count, 1).End(xlUp).Row For j = 6 To shKAO.Cells(Rows.Count, 1).End(xlUp).Row If shOkr.Cells(i, 1) = shKAO.Cells(j, 1) Then shOkr.Cells(i, "AE") = shKAO.Cells(j, "AD") + shOkr.Cells(i, "AD"): Exit For Next Next
Имена листов не задали? Честно говоря не понимаю что вы пытаетесь сделать, выложите файл пример и на нем покажите какие с какими колонки складываете, можно с вашим макросом 'по аналогии', который выдает ошибку.
Имена листов не задали? Честно говоря не понимаю что вы пытаетесь сделать, выложите файл пример и на нем покажите какие с какими колонки складываете, можно с вашим макросом 'по аналогии', который выдает ошибку.Leanna
Лучше день потерять, потом за пять минут долететь!
Дело в том что вы не правильно указали название листа. Правильно Sheets("Баллы ЦАО город "), а не Sheets("Баллы ЦАО город ") - у вас два пробела в названии листа в конце. Поэтому копируйте лучше имя листа и вставляйте его, а не пишите вручную.
Дело в том что вы не правильно указали название листа. Правильно Sheets("Баллы ЦАО город "), а не Sheets("Баллы ЦАО город ") - у вас два пробела в названии листа в конце. Поэтому копируйте лучше имя листа и вставляйте его, а не пишите вручную.Leanna