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

565

    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


    • 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

      • 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ä.

    Luetuimmat keskustelut

    1. en vaan saa häntä pois

      Mielestäni pyörimästä. Onko kellekään toiselle käynyt näin? Ihastuin pakkomielteisesti noin vuosi sitten erääseen naiseen. Ei vaan katoa mielestä va
      Ikävä
      176
      2305
    2. Suomi24 kysely: ihmisten kuplautumista ei pääosin koeta vakavaksi ongelmaksi

      “Kuplautumista on mahdotonta estää. Ihmiset ovat aina viihtyneet samankaltaiset arvot ja maailmankatsomuksen jakavassa seurassa ja muodostaneet sen pe
      Suomi24 Blogi ★
      39
      1813
    3. Ohhoh! Glamourmalli Elena, 29, teetti tiimalasivartalon - Vei rahaa ja tuotti tuskaa - Katso kuvat!

      Transtaustainen glamourmalli Elena Vikström on käynyt vuosien ajan plastiikkakirurgisissa toimenpiteissä. Tästä näet lopputuloksen: https://www.suomi
      Kotimaiset julkkisjuorut
      14
      1616
    4. Sinä olet tärkeä

      Herätät minussa kunnioitusta. Kiehdot minua. En oikein saa kiinni sinusta. Ehkä juuri siksi. Aistin että sinäkin pidät minusta. Vetovoima on ollut alu
      Ihastuminen
      66
      1319
    5. Ostiko Martina uuden ponin tyttärelleen, vai oliko myös Stefan itsekkin valitsemassa ponia .?

      Kiva kun on tyttärelle mielekäs harrastus annettu, ehkä vielä on tulevaisuudessa hänelle tärkeä ja valitsee sen perusteella tulevan ammatin.
      Kotimaiset julkkisjuorut
      239
      1315
    6. Varisjärvellä mersu.

      Varisjärven tiellä tuli vanhamersu kylkiedellä mutkassa vastaan ja vähällä keulaan mutta tökkäs penkkaan, hyppäsin omasta autosta ulos ja kävin kiskas
      Suomussalmi
      19
      1118
    7. Belorf haistattaa seuraajiaan "You can hate me now"...

      Vai haistattaako lompakkoa, joka taisi viimeinkin ymmärtää häipyä Sofian ulottumattomiin ? Sofia raukka on niin typerä, että ottaa nostetta "omasta tv
      Kotimaiset julkkisjuorut
      64
      1063
    8. Mitähän ajattelet J

      Tästä kaikesta? Mä välitän susta oikeasti.
      Ikävä
      62
      1022
    9. Wau mikä kroppa Sofialla

      Kuva instassa kun on suihkurusketuksessa. Kyllä on muodot kohdallaan, on kuin jumalainen Venus patsas. Eikä ole mitään järkyttäviä lonkero tatuointeja
      Kotimaiset julkkisjuorut
      110
      752
    10. Asiat oikeisiin mittoihin

      Komiat lehteen oli saatu kokonainen aukeama aikaiseksi hevostelemalla Lumion pahuutta. Eihän tässä nyt varmaan kukaan osaa enää näillä Kauhavan säänn
      Kauhava
      45
      696
    Aihe