kopio solu väri

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

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

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

kiitos

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

kiitos

kiitos

tarkennus
kopioinnin jälkeen liittäminen tapahtuu toiseen sovellukseen

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

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

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

kiitos