-
Fototrend
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
Delila_1
Topikgazda
válasz attiati #3893 üzenetére
A lapot, amit másolsz valahonnan, "Másolt_lap"-nak neveztem el (két helyen szerepel a makróban, írd át a saját lapod nevére). Ezen az A oszlopba írtam a dátumot, B-be a termék nevét, C-be az árat. Mindezt a második sortól, mert feltételezem, hogy az első sorban oszlopcímek vannak. A gyümölcsök lapjára már nem kell minden sorba az azonosítót beírni, azért nem tettem be az adatok közé.
Az gyümölcs lapokra csak két oszlopot vettem fel, a dátumot és a hozzá tartozó árat.Sub Másol()
Sheets("Másolt_lap").select
sor = 2
Do While Cells(sor, 1) <> ""
kelt = Cells(sor, 1)
lapnév = Cells(sor, 2)
ár = Cells(sor, 3)
Sheets(lapnév).Select
usor = Range("A65536").End(xlUp).Row + 1
Cells(usor, 1) = kelt
Cells(usor, 2) = ár
Sheets("Másolt_lap").Select
sor = sor + 1
Loop
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz attiati #3895 üzenetére
Angol nyelvűnél is működik, de csak akkor, ha a gyümölcsök és a lapok neve megegyezik.
Másképp honnan tudná a program, hogy melyik lap adataihoz írja a következőt?Vegyél fel egy új lapot, ahol az A oszlopban a hosszú név, B-ben a hozzárendelt rövid lapnév szerepeljen. Kibővítettem a makrót. A Masolt_lap E oszlopába beírja az
=fkeres(a2;Uj_Sheet!a:b;2;hamis) függvényt, és ezután a lapnevet nem a B, hanem az E oszlopból olvassa ki.Sub Masol()
Sheets("Masolt_lap").Select
usorm = Range("A65536").End(xlUp).Row
Range("E2").Select
ActiveCell.Formula = "=VLOOKUP(B2,Uj_Sheet!A:B,2,FALSE)"
Selection.AutoFill Destination:=Range("E2:E" & usorm)
sor = 2
Do While Cells(sor, 1) <> ""
kelt = Cells(sor, 1)
lapnev = Cells(sor, 5)
ar = Cells(sor, 3)
Sheets(lapnev).Select
usor = Range("A65536").End(xlUp).Row + 1
Cells(usor, 1) = kelt
Cells(usor, 2) = ar
Sheets("Masolt_lap").Select
sor = sor + 1
Loop
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
-
perfag
aktív tag
válasz attiati #7078 üzenetére
Oldalbeállítás, Lap fül, Egyebek... gomb,a nyomtató párbeszédablakában Oldalbeállítás fülön tedd át színesre.
--> módosítom a véleményem. Igazad van. Áttettem LaserJetre és tényleg csak fekete fehér a kép. Telepíts egy pdf nyomtatót, nálam is az van, vagy SnagIt-et[ Szerkesztve ]
-
félisten
-
Delila_1
Topikgazda
válasz attiati #13024 üzenetére
Ilyesmi kell hozzá:
=MAX(INDIREKT("A"&SOR()+1&":A"&SOR()+$C$1))
ahol az összegek az A oszlopban vannak, és a C1-be írod be, hány szám maximumát akarod kiszámoltatni. Pl. C1=5. A B2-ben megadott képlet az A3:A7 max értékét adja, lehúzva a képletet a B10 az A11:A15-ét.
Egyébként nem kell végighúzni a képletet. Mikor beírtad az elsőt, a cellán állva a jobb alsó sarkában lévő kis fekete négyzetre klikkelsz duplán, és az végig másolja addig, ameddig a tőle balra lévő oszlopban valamilyen adatot talál, vagy addig, ameddig a saját oszlopában van adat.
[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz attiati #13036 üzenetére
Újra átolvasva a kérdésedet, valóban nem kell a +1.
Nem szükséges, hogy a képlet a mellette lévő oszlopra hivatkozzon, de a balra mellette lévő oszlopban legyenek bármilyen adatok ahhoz, hogy dupla kattintásra végig lemásolódjanak a képletek. Ameddig van adat, addig lesz másolat.
Most, hogy kiveszed a +1-et, működni fog a duplaklikk, mert a másik lehetőség, hogy az aktuális oszlopban legyenek folyamatosan valamilyen adatok, képletek.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
attiati
veterán
válasz attiati #39480 üzenetére
mégiscsak segít, de registry bejegyzésekkel:
windowsban adminisztrátorként futtatni kell a cmd parancsot és utána ezeket lefuttatni:
reg add hkey_current_user\software\classes\.xhtml /ve /d htmlfile /f
reg add hkey_current_user\software\classes\.xht /ve /d htmlfile /f
reg add hkey_current_user\software\classes\.html /ve /d htmlfile /f
reg add hkey_current_user\software\classes\.htm /ve /d htmlfile /f
reg add hkey_current_user\software\classes\.shtml /ve /d htmlfile /f -
föccer
nagyúr
válasz attiati #39837 üzenetére
ki lett kapcsolva az automatikus újraszámolos. F9-re újraszámol. Be kell újra állítani, hogy automatikusan számoljon újra. Néha nekem is (és a kollégáknak is) kikapcsolódik. Ritkán, de már nem egyszer volt rá precedens. Fogalmam sincs miért.
Építésztechnikus. Építőmérnök.
Új hozzászólás Aktív témák
- AKCIÓ! - STEAM kulcsok /Anuchard, Aragami, Children of Morta, stb. - 2024.04.17.
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
- Adobe Creative Cloud - 2024. 04. 05 - 2025. 04. 05-ig
- Windows 10/11 Home/Pro , Office OEM/Retail kulcsok
- Eladó Steam kulcsok kedvező áron!