kopio solu väri

väriäexceliin

tämmönen hakusessa
kun excelissä kopiodaan solu niin väri muuttuisi vihreäksi

kiitokset etukäteen

14

1310

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • balckonblack

      Mitä tarkoitat? Pitäisikö kopioitavan solun värin muuttua, tai sen solun, mihin kopioidaan, vai jotain muuta? Voi olla vaikeaa. Mihin sitä tarvitaan?

      • väriäexceliin

        Pitäisikö kopioitavan solun värin muuttua?
        kyllä

      • väriäexceliin

        oisko tähän saatavissa mitään makroa?

      • Tämmöinen
        väriäexceliin kirjoitti:

        oisko tähän saatavissa mitään makroa?

        Solun sisältö luetaan muuttujaan ilman muotoiluja. Toinen makro kopioi sisällön aktiiviseen soluun. Kopioimiseen ei käytetä leikepöytää. Makrot voi liittää näppäinyhdistelmiin Ctrl c ja Ctrl v.
        ==========
        Public kaava As String

        Sub kopioi()
           With Selection
              kaava = .FormulaR1C1
              .Interior.Color = RGB(0, 255, 0)
           End With
        End Sub

        Sub liimaa()
           With Selection
              .FormulaR1C1 = kaava
           End With
        End Sub

      • väriäexceliin

        kiitos

    • kunde

      ko. taulukon moduuliin...

      Dim UndoLista As String

      Private Sub Worksheet_Activate()
      If Not Edellinen(1) Is Nothing Then
      Set Edellinen(0) = Edellinen(1)
      End If
      Set Edellinen(1) = ActiveCell
      End Sub


      Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      If Not Edellinen(1) Is Nothing Then
      Set Edellinen(0) = Edellinen(1)
      End If
      Set Edellinen(1) = Target
      End Sub
      Private Sub Worksheet_Change(ByVal Target As Range)
      UndoLista = Application.CommandBars("Standard").Controls("&Undo").List(1)
      If Left(UndoLista, 5) = "Paste" Then
      Edellinen(0).Interior.Color = RGB(0, 255, 0)
      Application.CutCopyMode = False
      End If
      End Sub

      ja tavalliseen moduuliin...

      Public Edellinen(1) As Range

      Keep EXCELing
      @Kunde

      • kunde

        jos suomenkielinen versio niin korvaa Worksheet_Change makro tällä...

        Private Sub Worksheet_Change(ByVal Target As Range)
        UndoLista = Application.CommandBars("Standard").Controls("&Kumoa").List(1)
        If Left(UndoLista, 5) = "Liitä" Then
        Edellinen(0).Interior.Color = RGB(0, 255, 0)
        Application.CutCopyMode = False
        End If
        End Sub

      • väriäexceliin

        kiitos

      • väriäexceliin

        kiitos

      • väriäexceliin

        tarkennus
        kopioinnin jälkeen liittäminen tapahtuu toiseen sovellukseen

      • Kundepuu

        Taitaa olla aika mahdotonta toteuttaa ilman kopion jälkeistä klikkausta johonkin soluun Excelissä...
        mutta jos se kelpaa niin tossa koodi siihen sitten ;-)

        Private Sub Worksheet_Activate()
        If Not Edellinen(1) Is Nothing Then
        Set Edellinen(0) = Edellinen(1)
        End If
        Set Edellinen(1) = ActiveCell
        End Sub

        Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        If Not Edellinen(1) Is Nothing Then
        Set Edellinen(0) = Edellinen(1)
        End If
        Set Edellinen(1) = Target
        Worksheet_Change Edellinen(0)
        End Sub

        Private Sub Worksheet_Change(ByVal Target As Range)
        If Application.CutCopyMode = xlCopy Then
        Edellinen(0).Interior.Color = RGB(0, 255, 0)
        End If
        End Sub

        ja tavalliseen moduuliin...
        Public Edellinen(1) As Range

        Keep EXCELing
        @Kunde

      • väriäexceliin

        onko sellaista mahdolista toteuttaa kun excelissä on kopioitu solun sisällä oleva teksti tai solu niin väri muuttuu

      • Kundepuu
        väriäexceliin kirjoitti:

        onko sellaista mahdolista toteuttaa kun excelissä on kopioitu solun sisällä oleva teksti tai solu niin väri muuttuu

        Ei tietääkseni. Vaatii aina jonkun muun solun aktivointia, jolloin edellisessä solussa tehdyt "toimenpiteet" voidaan havaita.

        Keep EXCELing
        @Kunde

      • väriäexceliin

        kiitos

    Ketjusta on poistettu 6 sääntöjenvastaista viestiä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Räppäri kuoli vankilassa

      Ei kuulemma ole tapahtunut rikosta. Sama vahinkohan kävi Epsteinille. https://www.hs.fi/suomi/art-2000011840869.html "
      Maailman menoa
      87
      4148

    2. Välillä kyllä tuntuu, että jaat vihjeitä

      Mutta miten niistä voi olla ollenkaan varma? Ja minä saan niistä kimmokkeen luulemaan yhtä sun toista. Eli mitä ajatella
      Ikävä
      28
      3087

    3. No kyllä te luuserit voitte tehdä mitä vaan keskenänne, sitä en ymmärrä miksi pelaat,nainen

      Pisteesi silmissäni, edes ystävätasolla tippui jo tuhannella, kun sain selville pelailusi, olet toisen kanssa, vaikka ol
      Ikävä
      45
      2330

    4. Missä näitte viimeksi?

      Missä näit kaivattua viimeksi ja oliko sähköä ilmassa?
      Ikävä
      35
      1338

    5. Puukotus yöllä

      Oli kaveri hermostunut ja antanut puukosta.
      Sotkamo
      10
      919

    6. Mitä sun kaltainen ihminen tekee tämmöisessä paikassa?

      Et kuulu tänne?
      Ikävä
      133
      901

    7. rakas J siellä jossain

      Niin ikävä sua. -P. Nainen
      Ikävä
      6
      894

    8. Masan touhut etenee

      Punatiilitalon tietotoimiston mukaan Masa on saanut viimein myytyä kämppänsä ja kaavoittaa uudelle lukaalille tonttia pa
      Äänekoski
      12
      832

    9. Naisten ja miesten tasoeroista

      Oletteko huomanneet, että naisissa ylemmän tason naiset ovat sinkkuja, ja miehissä alemman tason incelit? Toimivat paris
      Ikävä
      124
      776

    10. You've been running and

      so has your mind, I'm thinking of you all the time... 💘
      Ikävä
      11
      760
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt