Fogós Excel para

Ez a téma lezárásra került a moderátor által. A lezárás oka: Ilyen jellegű kérdéssel a Prog.hu-t keresd fel!
Fogós Excel para
2010-06-16T19:18:54+02:00
2010-06-16T19:57:29+02:00
2022-10-29T02:50:37+02:00
snaper
Sziasztok!
Kis segítségre lenne szükségem.
Export manager-ként dolgozom egy cégnél, cégünk egy termékét értékesítém, és eddig az árajánlatokhoz szükséges árakat egy kinyomatott listából kalkuláltam...

Mivel most volt áremelésünk, új listánk van, felvittem egy excel táblába, ahol van 5 oszlop :

natúr termék olcsóbbik ár,
natúr termék drágábbik ár,
fehér termék olcsóbbik ár,
fehár termék drágábbik ár,
súly,

A lényeg, hogy ebbe az 5 oszlopba és egy halom sorba felvittem az összes terméket, és írtam hozzá egy makrót, amivel az éppen kijelölés alatt lévő árat exportálja a progi egy másik táblába, ahol meg kiszámolja méret és egyéb beállítások alapján az árat.

Ami fontos lenne nekem, hogy a kiválasztott termék súlyát is áthúzza, mert abból is ki akarok számoltatni dolgokat.

Hogy vizuálisan is ábrázoljam.
(O=a fentebb felsorolt fejlécek, kivéve súly =S, X-ek pedig az árak) :

a b c d e
O O O O S

1 X X X X X
2 X X X X X
3 X X X X X
4 X X X X X

A makró pedig ez :


Sub Gomb2_Kattintáskor() Selection.Copy Sheets("Kalkuláció").Select Range("B4").Select ActiveSheet.Paste Range("C4").Select End Sub

Ez így rendben is van, mert pl. ha a4-re rakom a kijelölést, akkor a makró az azon a cellán lévő adatot átviszi ugye a másik tábla B4 celáájába, majd átlép a C4 cellába, és ez így tökéletes. A kérdés az, hogy hogyan kellene bővítenem a makrót, hogy az a4 termékhez tartozó e4 cella (termék súlya) is átvigye egy mondjuk D17 cellába a másik táblába...

Próbálkoztam egy ilyen bővítéssel, de hibás sajna :

Sub Gomb2_Kattintáskor() Selection.Copy Rows(Selection) = i Sheets("Kalkuláció").Select Range("B4").Select ActiveSheet.Paste Sheets("Méretválasztás").Select Cells("i,7").Select Selection.Copy Sheets("Kalkuláció").Select Range("D19").Select ActiveSheet.Paste Range("C4").Select End Sub

Nem jó mint írtam, 13-as hibakód :(

Minden segítséget szívesen veszek, maga a kalkulátor így is működik, de fuvarköltséget is számol a másik táblán, és jól jönne a súlyadat ezekhez.
Mutasd a teljes hozzászólást!
i = Selection.Row . Cells(i,7).Select
Mutasd a teljes hozzászólást!

Ez a téma lezárásra került a moderátor által. A lezárás oka: Ilyen jellegű kérdéssel a Prog.hu-t keresd fel!
Tetszett amit olvastál? Szeretnél a jövőben is értesülni a hasonló érdekességekről?
abcd