копиране на данни

Здр .
ДА СИ ПРИЗНАЯ НИЩО НЕ РАЗБИРАМ ОТ ЕКСЕЛ !
Скоро открих екссел ,като много удобен помощник в работата ми .
Сега по същество.
Имам два листа единият "Имена" а другият"Данни"
В първият лист в клетка B12 вписвам името на даден човек ,в клетка B14 презимето в B16 фамилията и в клетка B18 датата на записване .
Въпроса ми е как чрез бутон "Запиши" данните които съм въвел да се копират в лист "Данни" в първата празна клетка и така данните да се записват на долу ....
Сигурно за вас е много елементарно това което съм написал ....
Благодаря на всички ,които помагат на такива ,като мен

Доколкото разбирам щом ще има бутон говорим за макросче. Искаш последния въведен ред от теб в лист 'Имена" да се записва в лист " Данни"
Имам следните въпросчета :
1. Какво очакваш тези данни от лист "имена" да се трият ли ?
2. И даните от клетки B12, B14 i B16 Къде да отиват в лист "данни" Примерно B12 ot лист Имена да отива в клетка C"x" където редът X e първие свободен ред.

Отговори и ще ти спретна едно макросче следобед май съм свободен :-)

а защо въобще е необходимо да има два листа с данни?
една и съща информация да се съхранява на две места не е много добро решение

Точно така F(X) () !
След като бъдат въведени даните в лист "Имена" същите ,като активирам бутона "Запис" да се запишат в лист"Данни" и едновременно с това да се изстрият от лист "Имена".
Благодаря 4е се отзоваваш :)

Не че това което искаш е трудно за реализация, лесно е, но да си призная нямам време да го правя в момента. Но аз все пак да си попитам - защо не си записваш имената директно в страницата "Данни"?

Go Install Analysis Toolpack!

Защото в лист"Данни" ще се натрупат множество записи .
Не мисля 4е е удобно всеки път да скролираш до последния празен ред за да впишеш новите данни .

За да отидеш на последния попълнен ред просто натискаш Ctrl+ стрелка на долу.

Go Install Analysis Toolpack!

Ето едно малко макросче

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

Има малко за настроиване и създаване на бутонче. Можеш ли да се оправиш от тук на татък?

за тази цел си има разработена много хубава екстра в Ексел

1. отиваш където и да е в таблицата, която желаеш да попълниш.
2. Data -> Form и ти излиза едно меню, в което да попълваш данни за всички колони
3. с New започваш да добавяш нов запис
4. с Delete можеш да изтриваш запис

Пробвай го, мисля, че ще ти свърши работа

отделно ти препоръчвам да си сложиш филтър на таблицата и да използваш Windows -> Freeze Panes

Много ти благодаря f(x) :)
Стана перфектно !!!