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

1239

Ää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. Moikka rakas

      Oon miettinyt meidän välistä yhteyttä viime aikoina. En ihan osaa pukea sanoiksi, mitä kaikkea tunnen, mutta halusin vaa
      Ikävä
      34
      10735

    2. Malmin tapaus on järkyttävä

      Kolme ulkomaalaistaustaista miestä raiskasi nuoren tytön tavalla, jota ei meinaa uskoa todeksi. Mikä voisi olla oikeampi
      Maahanmuutto
      618
      2976

    3. Mitä haluaisit kysyä

      Kaivatultasi?
      Ikävä
      152
      2073

    4. HS: Kuka vielä uskaltaa mennä sairaalan ensiapuun?

      https://www.hs.fi/mielipide/art-2000011212025.html Tässä on hyvin ajankohtainen mielipidekirjoitus koskien Malmin sairaa
      Maailman menoa
      166
      1686

    5. Mitkä asiat teidän elämässänne on

      Tällä hetkellä parasta?
      Ikävä
      105
      1509

    6. Ökyrikas Kurkilahti mussuttaa veroistaan

      Pakeni aikoinaan veroja Portugaliin mutta joutui palaamaan takaisin kun Suomi teki verotussopimuksen Portugalin kanssa.
      Maailman menoa
      109
      1272

    7. Mitä haluaisit nähdä

      Kaivatullasi päällä?
      Ikävä
      75
      1137

    8. Yhdysvalloissa työllisyys paranee, Suomessa työttömyys kasvaa, missä vika?

      Miten tämä on mahdollista että 177 000 uutta työllistä tuli USAssa yhdessä kuukaudessa, vaikka Trump on ruorissa? Orpon
      Maailman menoa
      263
      1111

    9. Jos tämän vaan sulkee ja avaa 5 vuoden päästä

      Täällä on luultavasti edelleen näitä ihan samoja juttuja. On kuin kauniit ja rohkeat samat jutut junnaa. Heips. 👋🏻 E
      Ikävä
      10
      1043

    10. Kaupunki ostaa Kauppamatin

      Joutuukohan yrittäjät lähteen muualle?
      Haapavesi
      37
      1034
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt