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

1218

Ää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. JOKO OLETTE KUULLET, MITÄ KIURUVEDELLÄ ON SATTUNUT!

      Oletteko jo kuulleet, mitä Kiuruvedellä on sattunut, voi hyvänen aika? Aivan viime tuntien aikana olisi sattunut, jos t
      Kiuruvesi
      39
      12440

    2. V*ttuu että mä haluan sua

      Jos jotain ihmistä voi kunnolla haluta, niin hän on se. Voi Luoja auta jo! Joku jeesus hjelppa mej!
      Ikävä
      91
      4271

    3. Nolointa ikinä miehelle

      On ghostata nainen jonka kanssa on ollut ystävä tai ollu orastavaa tapailua pidemmän aikaa. Osoittaa sellaista moukkamai
      Ikävä
      109
      4002

    4. Katsoitko mua yhtään

      Kun nähtiin 🥺.
      Ikävä
      51
      3648

    5. Eli jos toisen hiki haisee ns. omaan nenään siedettävältä

      Se kertoo hyvästä yhteensopivuudesta. Selvä! Olet mies minun. 🫵🥳
      Ikävä
      53
      3341

    6. Mikä sinua eniten

      Huolestuttaa tässä tilanteessa?
      Ikävä
      116
      3304

    7. Sattuma ja muutama väärinkäsitys

      vaikuttivat siihen millaiseksi tämä kaikki muodostui. Pienet aikanaan huomaamattomat käänteet. Seuraava näytös on jo tul
      Ikävä
      48
      2225

    8. Koska olet viimeksi nähnyt ikävän kohteesi?

      Ja mitä tarjoat hänelle kun koputtaa oveesi?
      Ikävä
      39
      2133

    9. Keskusta hajoaa Palojärvi lähtee

      Suomen Keskustan ryhmä hajoaa Kemijärvellä. Kalastaja Palojärvi sai tarpeekseen ja loikkasi Sitoutumattomat Aati Virkkul
      Kemijärvi
      26
      1955

    10. On sillä rääpyä

      Tuo ex kuntajohtaja Lea Tolonen kehtaakin tulla Ähtäriin. Ajoi laivan Karille. Kari Heikkilä oikaisi taloutta, sai laiva
      Ähtäri
      11
      1643
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt