Страницы: 1
RSS
Как выделить и скопировать только те ячейки, которые заполнены?
 
Как выделить и скопировать только те ячейки, которые заполнены?
 
Заполнены чем???  
Есть множестно вариантов Как конкретно ты хочешь что бы это делалось А лучше скинь пример Что хоть вы баитесь примеры та скидывать Это что сайт для обучения спец агентов или же для помощи .... Так что не стесняйтесь вылаживаете Да и конкретней говорите что хотите в итоге получить И тогда наверняка получите положительный ответ на свой же вопрос ;)
 
Вот пример
 
Ты хочешь скопировать    
Документ Сумма "Отметка  
бухгалтера"  
№ Дата товар тары  
Остаток на    01.12.2007 х х  
Приход  
УП "Мясомолторг" 6543219 01.12.2007 428 350,00р. 10 200,00р.  
УП "Бакалея" 1596541 02.12.2007 121 500,00р. 19 493,60р.  
А куда??? Это и без макроса можно провернуть спомощью формулы
 
Мне нужно что-бы в диапазоне В16:G35    
по мере заролнения таблицы нажатием кнопки выделился только заполненный диапазон
 
Если ты хочешь потом это куда то скопировать Тогда сделай диапозону имя И с помщья капирования перенеси все Только вбей в формолу что только если не путая ячейка тогда капируеться Вот и все Ну а если что то мудренее Да и интереснее тебе нужно Тогда я тут не знаю чем помоч  
А ты спроси у лузера ;)  
Или же поясни что да куда    
На работе как то голова не хочет совсем думать да понимать - догонять
 
Спасибо и за это.  
Будем спрашивать.
 
Неее Что то наш ГУРУ не хочет напрягаться Ну где же ты где Лузер??????
 
Мне, конечно, льстит это "ГУРУ", но не могу же я сидеть на форуме круглосуточно :)  
Выделить или скопировать? Или и то, и другое?  
Если скопировать, то куда?  
И что делать со скрытыми строками в это диапазоне?
 
И, простите за любоппытство, ЧТУП - как расшифровывается?  
гугля не помогла :(
 
Ну что-то примерно так...
 
Сергей, вы удовлетворены ответом или же вам нужно что то иное??? Хотябы отписывались если все устраивает
 
Что-то типа того, только не нужно на новый лист копировать.  
Нужно только выделить и скопировать в буфер обмена
 
а ЧТУП эт (Частное Торговое Унитарное Предприятие)
 
Если строчки заполнены подряд, то такой код:  
Sub copy_paste()  
Application.CutCopyMode = False  
Worksheets("Приход(отчет)").Range("A16").Select  
For Each cc In Worksheets("Приход(отчет)").Range("A16:A35")  
If cc.Cells(1, 2).Value <> "" Then _  
Range(Selection, cc.Resize(1, 6)).Select  
Next  
Selection.Copy  
End Sub
 
Лузер От куда ты хоть макрос знаешь Где учился Или что по этому поводу чилал Сразу встречный вопрос Гед ты хоть работаешь где требуеться знание макроса?
 
Отлично вот это то что мне было нужно.  
Спасибо огромное.
 
{quote}{login=}{date=26.12.2007 05:37}{thema=}{post}Лузер От куда ты хоть макрос знаешь Где учился Или что по этому поводу чилал Сразу встречный вопрос Гед ты хоть работаешь где требуеться знание макроса?{/post}{/quote}Не поверишь, читал справку. Тут была ссылка на книгу Уокенбаха, смотрел из нее несколько раз. Ну еще, конечно, в школе бейсик учили, всякие for...next и т.п. Только школа уже давно была, лет 20 назад. Макросы по работе нужны каждому ленивому сотруднику, ибо нефик делать руками то, что можно автоматом.  
Лучше три дня убить на макрос, чтоб потом за 5 сек. долететь (©)  
А еще, не поверишь, первый раз открыл XL чуть больше года назад - раньше не нужен был по работе.  
Да, чуть не забыл.  
Многому научился на этом форуме. Здесь гораздо более знающие люди, чем я.  
Не буду ники называть, а то кого-нибудь забуду и обидится человек.
 
Еще макрорекордер рулит - нажал на запись, кликнул пару раз мышкой и становится ясно, как сделать то или иное действие
Страницы: 1
Читают тему
Наверх