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
1277
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
Jalankulkija kuoli. Poliisi etsii mustaa BMW Coupe -autoa, jossa on punertavat vanteet.
Jalankulkija kuoli jäätyään auton alle Joensuussa – kuljettaja pakeni, poliisi pyytää havaintoja https://www.mtvuutiset.1653704Mikä vasemmistolaisista jankkaavaa vaivaa?
Pahasti on ihon alle, siis korvien väliin sinne tyhjään tilaan, päässeet kummittelemaan. Ei ole terveen ihmisen merkki143061Ohjelma "Rikollisjengien Ruotsi" hyvin paljasti jakautuneen maan
eli ns. ruotsalaiset yhdellä puolella, muslimit ja muut kehitysmaalaiset toisella puolella. Siinäkin hyvin näki mitä ma252781Vassarina hymyilyttää vaurastuminen persujen kustannuksella
Olen sijottanut määrätietoisesti osan Kelan tuista pörssiosakkeisiin, ja salkku on paisunut jo toiselle sadalle tuhanne552661PÄIVÄN PARAS: Nigerialainen haki turvapaikkaa Suomesta, lähti takas huilaamaan
kotimaahansa, koska turvapaikan saaminen kesti niin kauan. Ja tämän kertoo ihan Yle, eikä yhtään toimittaja kyseenalaist532543Riikka runnoo: Elisalta potkut 400:lle
Erinomaisen hallitusohjelman tavoite 100 000 työllistä lisää yksityisellä sektorilla on kohta saavutettu. Toivotaan toiv882537Pidennetään viikko 8 päiväiseksi
Ja jätetään työpäivien määrä nykyiseen 5:een. Tuo olisi kompromissiratkaisu vellovaan keskusteluun työajan lyhentämisest112310Pääseekö kuka tahansa hoitaja katselemaan kenen tahansa ihmisen terveystietoja?
"Meeri selaili puhelinta uteliaisuuttaan ja katuu nyt – Moni hoitaja on tehnyt saman rikoksen Tuttujen ihmisten asiat k831987Niinistö neliraajajarrutteli Natoon liittymistä vielä sodan alettua
Myöntää nyt itsekin, mikä jo aikaisemmin tiedettiin. Marin vei Suomen ja Ruotsin Natoon. "”Myönnän auliisti jarruttelle2021827- 1411809