Excel Makró - különböző munkalapokról adat kivonás

Excel Makró - különböző munkalapokról adat kivonás
2015-07-11T21:23:13+02:00
2015-07-12T13:09:22+02:00
2022-10-21T09:15:38+02:00
  • Egy lehetséges megoldás:

    Public Sub Számol() Dim sor As Long Dim UtolsóSor As Long 'Feltételezve, hogy az összes munkalapon ugyanannyi sor van, 'megkeressük az elsőn az utolsó használt sort. With Worksheets("Munka1") UtolsóSor = .Cells(.Rows.Count, "D").End(xlUp).Row End With For sor = 3 To UtolsóSor Worksheets("Munka6").Cells(sor, "D") = _ Worksheets("Munka6").Cells(sor, "D") - _ Worksheets("Munka5").Cells(sor, "D") - _ Worksheets("Munka4").Cells(sor, "D") - _ Worksheets("Munka3").Cells(sor, "D") - _ Worksheets("Munka2").Cells(sor, "D") - _ Worksheets("Munka1").Cells(sor, "D") Next sor End Sub
    A "Munka6" stb munkalap neveket természetesen át kell írnod a megfelelőkre, ha nem ezek a nevek vannak.
    A "Munka6" név nem véletlenül szerepel kétszer, hiszen ahogy írtad, annak az eredeti értéke is részt vesz a számolásban és meg is változik.
    Mutasd a teljes hozzászólást!
  • 1x kellene megcsinálni
    Mutasd a teljes hozzászólást!
  • Mert ez egy üzlet készlete excel táblázatban és van rá egy gomb, és sokkal egyszerűbb megnyomni egy gombot mint minden nap húzogatni mindent, ide-oda... :)
    Mutasd a teljes hozzászólást!
  • Ehhez miert kell makro? Munkalapok kozotti kivonas muvelet az egesz... Megcsinalod az elso mezore, aztan meg lehuzod az utolso mezoig es voila
    Mutasd a teljes hozzászólást!
  • Egyszerű számokat tárol minden cella, annyi lenne a feladat h az 5 munkalapon az adott 5 oszlopban, értékek vannak, amelyeket a 6-ig munkalapon lévő oszlopból kell kivonni, tehát pl. a 6. munakalapon vagy egy cella ami 400-as értéket tárol, és az 1.munkalapon az adott oszlop adott cellájában 30 van míg a 2.munkalapon ugyanabban a cellában 40 a többibe pl 0, akkor a 6. munkalapon a 400 helyett 400-30-40 tehát 330nak kellene csak a cella értékének megváltoznia, tehát nem kell semmit kiírni a képernyőre, csak a cella értékét megváltoztatnia. Remélem így már érthetőbb volt a dolog.

    ja és ebben az oszlopban van ~130 sor tehét 130x kéne ezt megtenni..
    Mutasd a teljes hozzászólást!
  • Légyszi pontosítsd a feladatot.
    Miből mit szeretnél kivonni? Mi a feladata a 6 munkalapnak? Milyen adatokat tárolnak?
    Milyen végeredményt vársz és hová (munkalap egy meghatározott cellájába vagy csak a képernyőre egy üzenetben)?
    Jó lenne, ha írnál példát is pl. ilyen formában:

          ML1    ML2   ML3   ML4  ML5  ML6
    1      
    2
    3       11      12      13      10       2        ?
    4     100        5       0     215      24       ?
    5         0    195     85       32      67       ?
    stb.


    (Már nem tudom hányadszor szerkesztem az üzenetet. Ez a szerkesztő kész katasztrófa
    Se normál módon se "forráskódként" nem képes tisztességesen megtartani, amit én akarok írni
    A fenti egy táblázat akar lenni.
    )
    Mutasd a teljes hozzászólást!
  • Totál kezdő vagyok, egy olyan makró kellene nekem Excelbe ami megcsinálja nekem, hogy

    5 munkalapon van D3:D137ig adat és egy hatodik munkalapról kellene kivonnni ezeket a számokat ugyanugy D3:D137ig életemben nem programoztam visual basicba, neten probálom összekaparni a dolgokat, de nulláról most elég nehéz nekem ezt megoldani. 


    Köszönöm a segítséget!
    Mutasd a teljes hozzászólást!
Tetszett amit olvastál? Szeretnél a jövőben is értesülni a hasonló érdekességekről?
abcd