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

1309

Ää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. Kuka paiskasi vauvan betoniin Oulussa?

      Nimi esiin.....
      Oulu
      80
      5029

    2. Riikan kukkaronnyöri on umpisolmussa

      Kulutus ei lähde liikkeelle, koska kansalaiset eivät usko, että: – työpaikka säilyy – tulot eivät romahda – talous ei h
      Maailman menoa
      73
      4668

    3. Jos vedetään mutkat suoraksi?

      Niin kumpaan ryhmään kuulut? A) Niihin, jotka menevät edellä ja tekevät? Vai B) Niihin, jotka kulkevat perässä ja ar
      Sinkut
      111
      2997

    4. Tanskan malli perustuu korkeaan ansioturvaan

      Ja vahvoihin työllisyys- ja kotoutumispalveluihin. Suomessa Riikka on leikannut juuri näitä: palkkatukea, työttömyysturv
      Maailman menoa
      83
      2917

    5. Epäily: Räppäri yritti tappaa vauvansa.

      https://www.mtvuutiset.fi/artikkeli/epaily-mies-yritti-tappaa-vauvansa/9300728 Tämä on erittäin järkyttävä teko täysin p
      Maailman menoa
      23
      2384

    6. Vain vasemmistolaiset ovat aitoja suomalaisia

      Esimerkiksi persut ovat ulkomaalaisen pääomasijoittajan edunvalvojia, eivät auta köyhiä suomalaisia.
      Maailman menoa
      59
      2025

    7. Anteeksipyyntöni

      Jätän tähän anteeksipyyntöni sinulle, koska en voi sanoa sitä missään muuallakaan. Pyydän anteeksi, jos purkamani tuska
      Järki ja tunteet
      20
      1760

    8. Miten must tuntuu

      et sä ajattelet mua just nyt
      Ikävä
      32
      1523

    9. Sydämeni valtiaalle

      En täältä aio asioita kysellä. Haluan tuoda tiedoksesi, että pohjimmiltani en ihmisiä tahdo satuttaa ja ajattelen muiden
      Ikävä
      113
      1415

    10. Kun et vain tajua että

      sua lähestytään feikkiprofiililla :D Hanki aivot :D m-n
      Ikävä
      185
      1318
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt