Hirdetés
- GoodSpeed: Munkaügyi helyzet Hajdú-Biharban: észak és dél
- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- Viber: ingyen telefonálás a mobilodon
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- GoodSpeed: WELLPUR KVITA GF85 - JYSK - tapasztalatok
- sziku69: Szólánc.
- MasterDeeJay: Harc a DDR5 árak ellen
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
-
LOGOUT
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
-
Fferi50
Topikgazda
válasz
joocek
#51089
üzenetére
Szia!
Akkor nincs más hátra, mint makró.
Ezt a két makrót másold be egy modulba, javítsd át a megfelelő helyeken. A hivo makróban megadhatod, melyik cellából másolja az adatot és hol kezdje a cél munkafüzetben a beírást. Ezáltal több cellát is másolhatsz a hivo makró paramétereinek változtatásával.Sub hivo()beirja "A3", "A1" 'A3 cellából az A1 cellától lefelé fog másolni. Ezt kell átírnod a megfelelő címekre.End SubSub beirja(ByVal honnan As String, ByVal hova As String)Dim sh1 As Worksheet, sh2 As Worksheet, celja As RangeSet sh1 = Worksheets("S51") 'S51 helyébe írd a cél munkafüzet nevétSet celja = sh1.Range(hova)For Each sh2 In WorksheetsIf sh2.Name <> sh1.Name Thencelja.Value = sh2.Range(honnan)Set celja = celja.Offset(1, 0)End IfNextEnd Sub
A munkafüzetet makróbarátként vagy binárisként kell mentened.
Üdv.
Ps. Létezik még az Excelben az Adatok - összesítés menüpont, ahol megfelelően struktúrált munkalapok adatai egy munklapra összesíthetők. Talán azt is érdemes lenne megnézned. -
Fferi50
Topikgazda
válasz
joocek
#51087
üzenetére
Szia!
Képlettel megoldható, de nem úszod meg a munkalap nevek beírását a képletbe. Pl:
=Munka1!$A$1 ' ide a cella címe kerüljön a $ jelekkel együtt
Ezt a képletet húzod lefelé vagy jobbra, attól függően, hova kell az adatoknak kerülni.
Majd a képletekben levő munkalap neveket átírod a megfelelő névre.
Üdv. -
Delila_1
veterán
válasz
joocek
#50895
üzenetére
Két lapon legyen a két táblázat. Elég az egyikre beírni a hónapokat és a tételeket, miután bemásoltad a két makrót.
Az egyik lap neve Függőleges. Ehhez ezt a makrót másold be:
Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("Vízszintes").Cells(Target.Column, Target.Row) = Target.Value
End SubA másik lap a Vízszintes, ehhez ez a kód jön:
Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("Függőleges").Cells(Target.Column, Target.Row) = Target.Value
End SubMakróbarátként kell mentened.
A Téma összefoglalóban megtalálod, hogyan kell a laphoz rendelni a makrókat. -
Fferi50
Topikgazda
válasz
joocek
#50892
üzenetére
Szia!
Aztán akkor mi történjen, ha mindketten ugyanabba a cellába írnak adatot - természetesen a vízsz-függ reláció figyelembe vételével.
Egyébként a transzponálás függvény pont erre való - a vízszintes - függőleges közötti váltásra.
Eseménykezelő makróval elérhető, hogy amit az egyik táblába beírtak, ellenőrizze, hogy a másik helyen nincs-e már adat, továbbá át is fordítja a másik táblába, ha nincs semmi akadálya.
Üdv.
Új hozzászólás Aktív témák
Fferi50- Game Pass Ultimate előfizetések 1 - 36 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN! AKCIÓ!
- PC Game Pass előfizetés
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Vírusirtó, Antivirus, VPN kulcsok GARANCIÁVAL!
- ÁRGARANCIA!Épített KomPhone Ryzen 5 9600X 32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
- Eredeti Lenovo 135W töltők (sárga téglalap)
- Keresek Zebra TC20 TC21 vagy valamilyen hasonló kaliberű 1D és 2D vonalkódok olvasására alkalmas pda
- GYÖNYÖRŰ iPhone 13 Mini 128GB Blue- 1 ÉV GARANCIA -Kártyafüggetlen, MS4062
- Samsung Galaxy A20e 32GB, Kártyafüggetlen, 1 Év Garanciával
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: BroadBit Hungary Kft.
Város: Budakeszi