Tiedon kerääminen Excelissä

Osaako joku neuvoa, kuinka saan Exceliin makron seuraavasta:
B3 soluun laitetaan numero ja maksolla siirretään toiseen soluun esim H4.
Tämän jälkeen lisätään B3 soluun uusi numero ja tämä pitäisi saada siirrettyä H5 sarakkeeseen ja lukuja lisättäisiin loputtomasti ja niiden pitäisi tehdä lista sarakkeeseen H.
Tällä hetkellä makro näyttää tältä:
Sub Makro2()
'
' Makro2 Makro
'
' Pikanäppäin: Ctrl a
'
Range("B3").Select
Selection.Copy
Range("H4:H300").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


End Sub

Tällä kopio siis H4:H300 saman B3 arvon.
Nyt en neuvoa löydä / pää ei pelaa, jotta saisi tämän toimimaan.
6198
Äänestä

Muut lukivat myös

Vastaukset 6

Vanhimmat

Macrot on jäätävä turvallisuus uhka!

Äänestä
  • Eikös juuri Norjalainen alumiini sulattamo ajettu alas MsOffisen takia.
    Macrot kielossa monessa yrityksessä ja yleisesti suositeltuna kieltää.
    Joten tee taulukkosi ilman macroja.
    Vaihka turvallista siitä silläkään saa, mutta ei ihan niin helpon hyökätä.

    Äänestä

  • Tottaturiset kirjoitti:

    Eikös juuri Norjalainen alumiini sulattamo ajettu alas MsOffisen takia.
    Macrot kielossa monessa yrityksessä ja yleisesti suositeltuna kieltää.
    Joten tee taulukkosi ilman macroja.
    Vaihka turvallista siitä silläkään saa, mutta ei ihan niin helpon hyökätä.

    Vaaraa voi olla vain sellaisista makroista, joiden toiminnasta ei ole tietoa.

    Äänestä

Cells(Range("H" & Rows.Count).End(xlUp).Row 1, 8) = Range("B3")

Äänestä

Microsft ainakin kerää ihan kaiken tiedon, vakoilu on täydellinen.

Äänestä
  • Jos kerää, vahinko on tapahtunut asennettuasi MSOfficen. Ei sun omat makrot sua vakoile, ellet sitten ole jotenkin jakautunut persoona.

    Äänestä

Kommentoi aloitusta


XXYYXX kirjoitti:

Osaako joku neuvoa, kuinka saan Exceliin makron seuraavasta:
B3 soluun laitetaan numero ja maksolla siirretään toiseen soluun esim H4.
Tämän jälkeen lisätään B3 soluun uusi numero ja tämä pitäisi saada siirrettyä H5 sarakkeeseen ja lukuja lisättäisiin loputtomasti ja niiden pitäisi tehdä lista sarakkeeseen H.
Tällä hetkellä makro näyttää tältä:
Sub Makro2()
'
' Makro2 Makro
'
' Pikanäppäin: Ctrl a
'
Range("B3").Select
Selection.Copy
Range("H4:H300").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


End Sub

Tällä kopio siis H4:H300 saman B3 arvon.
Nyt en neuvoa löydä / pää ei pelaa, jotta saisi tämän toimimaan.

Anonyymi
5000

Ilmoita asiaton sisältö

  • Sisältää materiaalia, joka on loukkaavaa, herjaavaa, rasistista, uhkailevaa tai ahdistelevaa.

  • Materiaali sisältää nimiä, yhteystietoja tai muita henkilökohtaisia tietoja. Julkisuuden henkilöistä, julkisissa viroissa toimivista ihmisistä sekä yritysten vastuuhenkilöistä saa keskustella työhön liittyen. Myös yksityiselämään liittyvistä asioista voi keskustella siltä osin, kuin niistä on julkisesti kerrottu.

  • Sisältää lapsille haitallista tai heiltä kiellettyä materiaalia. Seksuaalinen sisältö on sallittua aiheeseen tarkoitetuilla palstoilla, joiden ikäraja on 18 vuotta.

  • Lainvastaista sisältöä voi olla mm. yksityiselämää loukkaavan tiedon levitys, kiihottaminen kansanryhmää vastaan, laiton uhkaaminen, alaikäisiin liittyvä seksuaalinen sisältö/grooming, petokset, identiteettivarkaudet, kunnianloukkaukset ja tekijänoikeusrikkomukset.

  • Sisältö ei liity palstan tai keskusteluketjun aiheeseen.

  • Viesti ei ole suomea tai ruotsia (pl. International Forums), se sisältää mainontaa, se sisältää tekijänoikeuksin suojattua materiaalia, se on massapostitus tai jokin muu syy.

Jaa keskustelu