tämmönen hakusessa
kun excelissä kopiodaan solu niin väri muuttuisi vihreäksi
kiitokset etukäteen
kopio solu väri
väriäexceliin
14
1267
Vastaukset
- 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
@Kundejos 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
Lavrov suivaantui Stubbille perustellusti.
Lavrov perusteli suivaantumistaan tosiasioilla Suomen tarinasta sotiemme jälkeen, tutkija Tynkkynen ja pankkihenkilö Sol5472099Sukupuolia on vain kaksi- kohukassista tuli kova tuomio perheenisälle oikeudessa.
https://www.iltalehti.fi/kotimaa/a/4d4db0d9-4dda-4ba6-a699-25d725683ad6 Miten näin normaalista kassissa olevasta tekstis3851692Eronnut Janni Hussi palaa julkisuuteen - Aloittaa uudessa työssä, joka on aivan uusi pesti Suomessa
Janni Hussi on saanut viime aikoina kohujulkisuutta, kun hänen ja Joel Harkimon avioliitto päättyi eroon kesällä 2025. H211519Se ei ihan oikeasti vaatisi kuin yhden
Tekstiviestin... Jos rakastat minua vielä toivoisin että laittaisit minulle viestiä. Rakastatko? Oletko oikeasti niin pe641398- 561082
JM lukkoliike
Mihin helvetin kuuseen te olette tällä kertaa siirtäneet Lukkoliikkeenne? Sen kerran kun ensimmäisen ja viimesen kerran191076- 1181067
Pankin avajaiset
Osuuspankin uuden toimitilan viralliset avajaiset vetävät väkeä. Kyllä oli outo nauhan leikkaus, kun leikkaajat pyllisti16848Helena Ahti-Hallberg uudessa elämäntilanteessa - Paljastaa eläkehaaveestaan Espanjassa: "Mä.."
Oi, kuulostaa ihanalta eläkepäivillä! Helena Ahti-Hallberg on ostanut kakkoskodin Espanjasta ja hänellä on puolisonsa ka11824Miten kesäsi meni?
Oletko tyytyväinen siihen? Oliko kaivattusi mielessäsi? Lähennyitkö vai etäännyitkö hänen kanssaan?66813