Ексел - VBA

12 отговора 0 прегледа
#1

Ексел - VBA

Здр. на всички ,които помагат благородно на всеки отзовал се !!!
Имам нужда от помощ !
В лист1 съм създал таблица в която в клетка А2 до А25 съм ситуирал различни по вид артикули ,а в клетка В1 до АЕ1 съм попълнил датите от съответния месец. Срещу всеки артикул под съответната дата ежедневно попълвам данни (примерно колко броя от него са продадени ) и така за всички артикули до края на месеца .
В Лист2 датите съм ситуирал по вертикалата тоест в клетка А2 до А33,а артикулите по хоризонтала .
Въпроса ми е ,как данните попълнени по вертикала в лист1 ,същите да се попълват в лист 2 автоматично чрез код по хоризонтала при съвпадение на датата от лист 1 .
Предварително благодаря на всеки отзовал се

Отговор
в отговор на intermaniq #2

Re: Ексел - VBA

Здрасти

Вариант 1: Използвай пивот таблица

Вариант 2: В клетка В2 на Лист2 въведи формулата: =HLOOKUP($A2;Sheet1!$A$1:$N$5;MATCH(Sheet2!B$1;Sheet1!$A$1:$A$5;0))

копираш до края и това е.

Не виждам за какво ти е макрос

Отговор
в отговор на f(x)dx #3

Re: Ексел - VBA

Извинявай,но при мен нещо не се получава.
Мога ли да ти изпратя файлчето за да го погледнеш !
Благодаря ти ,че ми помгаш !

Отговор
в отговор на intermaniq #4

Re: Ексел - VBA

Здр. f(x)dx !
Извини ме ако ти досаждам ,но нещо не се получи !
Все още съм новак в ексела и VBA
Ще е удобно ли да хвърлиш един поглед на файлчето !
А ако някой друг може да ми помогне ,ще се радвам .

Отговор
в отговор на intermedia #5

Re: Ексел - VBA

Пробвай това:

=HLOOKUP($A2;Sheet1!$B$1:$АЕ$25;COLUMN(B2))

Напиши го в клетка B2 на Sheet2 и после копирай настрани и надолу. Приемаме, че артикулите започват от B1 и са нанесени по ред 1, а датите са от А2 надолу по колона А.
Ако пак не стане - пусни файла на boyan_kolev (at) hotmail.com да му хвърля един поглед

Редактирано от Бypaн на

Отговор
в отговор на Бypaн #6

Re: Ексел - VBA

Здр.
Въведох точно формулата ,която си ми написал ,естественно леко я модифицирах според моите условия ,но нещо не става .
Опитах да ти изпратя файла на мейла ти ,но ми се изписва ,че мейла е невалиден

Отговор
в отговор на intermaniq #7

Re: Ексел - VBA

Готово !
Изпратих ти файла на мейла !

Отговор
в отговор на intermaniq #8

Re: Ексел - VBA

Не знам - аз си направих един файл, така както си го описал в първия пост и си работи. Може би аз не съм те разбрал правилно. Мейла ми е
[email protected]
бях сменил @ с (at) мислех че ще ме разбереш...

Geocaching в България
Отговор
в отговор на Бypaн #9

Re: Ексел - VBA

получи ли файла?

Отговор
в отговор на intermaniq #10

Re: Ексел - VBA

получих го, оправих формулата, но сега като виждам файла и какво искаш да направиш - виждам че няма да стане с HLOOKUP. Не работеше защото датата в първия лист и във втория не са едни и същи. Можеш да го провериш като сравниш 1.7.2008 на двата листа - дава FALSE. Ама както казах - така или ианче няма да стане с HLOOKUP. Утре (всъщност вече днес) ще го рагледам на свежа глава, вкл, макросите които си написал. Имаш ли ICQ или Skype - искам да те питам няколко неща?

Geocaching в България
Отговор
в отговор на Бypaн #11

Re: Ексел - VBA

ЗДР.
Да имам skype : metamorphosis_m
Да и аз мисля,че без макрос няма да стане !
Благодаря за вниманието !

Отговор
в отговор на intermaniq #12

Re: Ексел - VBA

Ако правилно съм разбрал въпроса Ви примерният файл който съм Ви приготвил би трябвало да Ви помогне. Ползва се макрос създаден c tools/macro/Record New macro, което значи че нещата стават и без макрос. Опитах се да се свържа чрез Skype, но не бяхте включен - изпратих ви съобщение!Ако искате дайте ми E-mail да Ви изпратя примерният файл, който е архивиран с RAR- архиватор, (за да не плаши антивирусните защите по мейл - сървърите) или ми дайте разрешение за връзка с Вас в Skype - да Ви го пратя от там.

Отговор
в отговор на intermaniq #13

Re: Ексел - VBA

Пробвай това:

В клетка В2 на Sheet2 въведи формулата:
=OFFSET(Sheet1!$A$1;COLUMN(A1);ROW(A1);1;1)
и копирай до края.

Отговор