|
|
|
Тема
|
 копиране на данни
|
|
| Автор |
novakut (непознат
) |
| Публикувано | 01.09.08 09:32 |
|
|
Здр .
ДА СИ ПРИЗНАЯ НИЩО НЕ РАЗБИРАМ ОТ ЕКСЕЛ !
Скоро открих екссел ,като много удобен помощник в работата ми .
Сега по същество.
Имам два листа единият "Имена" а другият"Данни"
В първият лист в клетка B12 вписвам името на даден човек ,в клетка B14 презимето в B16 фамилията и в клетка B18 датата на записване .
Въпроса ми е как чрез бутон "Запиши" данните които съм въвел да се копират в лист "Данни" в първата празна клетка и така данните да се записват на долу ....
Сигурно за вас е много елементарно това което съм написал ....
Благодаря на всички ,които помагат на такива ,като мен
| |
|
Тема
|
Re: копиране на данни
[re: novakut]
|
|
| Автор |
f(x) () |
| Публикувано | 01.09.08 11:11 |
|
|
Доколкото разбирам щом ще има бутон говорим за макросче. Искаш последния въведен ред от теб в лист 'Имена" да се записва в лист " Данни"
Имам следните въпросчета :
1. Какво очакваш тези данни от лист "имена" да се трият ли ?
2. И даните от клетки B12, B14 i B16 Къде да отиват в лист "данни" Примерно B12 ot лист Имена да отива в клетка C"x" където редът X e първие свободен ред.
Отговори и ще ти спретна едно макросче следобед май съм свободен :-)
| |
|
Тема
|
Re: копиране на данни
[re: f(x)]
|
|
| Автор |
f(x)dx () |
| Публикувано | 01.09.08 12:52 |
|
|
а защо въобще е необходимо да има два листа с данни?
една и съща информация да се съхранява на две места не е много добро решение
| |
|
Тема
|
Re: копиране на данни
[re: f(x)]
|
|
| Автор |
novakut (непознат
) |
| Публикувано | 01.09.08 15:21 |
|
|
Точно така F(X) () !
След като бъдат въведени даните в лист "Имена" същите ,като активирам бутона "Запис" да се запишат в лист"Данни" и едновременно с това да се изстрият от лист "Имена".
Благодаря 4е се отзоваваш :)
| |
|
Тема
|
Re: копиране на данни
[re: novakut]
|
|
| Автор |
alexoff ( (_)] .) |
| Публикувано | 01.09.08 19:46 |
|
|
Не че това което искаш е трудно за реализация, лесно е, но да си призная нямам време да го правя в момента. Но аз все пак да си попитам - защо не си записваш имената директно в страницата "Данни"?
| |
|
Тема
|
Re: копиране на данни
[re: alexoff]
|
|
| Автор |
novakut (непознат
) |
| Публикувано | 01.09.08 20:16 |
|
|
Защото в лист"Данни" ще се натрупат множество записи .
Не мисля 4е е удобно всеки път да скролираш до последния празен ред за да впишеш новите данни .
| |
|
Тема
|
Re: копиране на данни
[re: novakut]
|
|
| Автор |
alexoff ( (_)] .) |
| Публикувано | 01.09.08 20:49 |
|
|
За да отидеш на последния попълнен ред просто натискаш Ctrl+ стрелка на долу.
| |
|
Тема
|
Re: копиране на данни
[re: novakut]
|
|
| Автор |
f(x) () |
| Публикувано | 02.09.08 11:20 |
|
|
Ето едно малко макросче
Sub w()
Dim lastrow As Integer
lastrow = Sheets("данни").Range("A65536").End(xlUp).Row ' Благодарение на Буран от предишната тема няма да има цикъл до 65К , както бих направил без много да му мисля
Sheets("данни").Cells(lastrow + 1, 1) = Sheets("имена").Cells(12, 2)
Sheets("данни").Cells(lastrow + 1, 2) = Sheets("имена").Cells(14, 2)
Sheets("данни").Cells(lastrow + 1, 3) = Sheets("имена").Cells(16, 2)
Sheets("имена").Cells(12, 2) = Null
Sheets("имена").Cells(14, 2) = Null
Sheets("имена").Cells(16, 2) = Null
End Sub
Има малко за настроиване и създаване на бутонче. Можеш ли да се оправиш от тук на татък?
Редактирано от f(x) на 02.09.08 11:21.
| |
|
|
|
за тази цел си има разработена много хубава екстра в Ексел
1. отиваш където и да е в таблицата, която желаеш да попълниш.
2. Data -> Form и ти излиза едно меню, в което да попълваш данни за всички колони
3. с New започваш да добавяш нов запис
4. с Delete можеш да изтриваш запис
Пробвай го, мисля, че ще ти свърши работа
отделно ти препоръчвам да си сложиш филтър на таблицата и да използваш Windows -> Freeze Panes
| |
|
Тема
|
 Re: копиране на данни
[re: f(x)]
|
|
| Автор |
novakut (непознат
) |
| Публикувано | 03.09.08 08:58 |
|
|
Много ти благодаря f(x) :)
Стана перфектно !!!
| |
|
| 
|
|
