Olen tehnyt asiakaslaskutaulukon, jossa laskun eräpäivän solun väri muuttuu punaiseksi kun eräpäivä on mennyt umpeen.
(taulukossa vaakasuuntaisesti asiakkaiden tiedot)
Millaisella makrolla saisin napauttua ne asiakastiedot( tai ainakin yhden solun tiedot) toiseen paikkaan, missä eräpäivä on mennyt umpeen?
Makro
JaskaKOO
3
328
Vastaukset
muuttele taulukoiden nimet, hakualue ja värikoodi (pun=3) sopivaksi
moduuliin...
Option Explicit
Sub EtsiJaSiirrä()
Dim solu As Range
Dim vika As Long
On Error Resume Next
Worksheets("Sheet2").Cells.Clear
Worksheets("Sheet1").Activate
vika = Range("C65536").End(xlUp).Row
For Each solu In Range("C1:C" & vika)
If solu.Interior.ColorIndex = 3 Then
solu.EntireRow.Copy Range("Sheet2!A65536").End(xlUp).Offset(1, 0)
End If
Next
End Sub
Keep Excelling
@Kunde- jaskaKOO
Kiitoksia!
- Nyt vihreä
Nostan tämän, ei tarvitse aloittaa uutta.
Siis miten saan eräpäivän muuttumaan punaiseksi päivän u,peuduttua?
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Eutanasia - miksi eläimelle sallitaan armokuolema, mutta ihmiselle ei?
Olen pitkään ihmetellyt yhtä asiaa Suomessa. Kun koira kärsii parantumattomasta sairaudesta ja kovista kivuista, eläinlä2811538Veli Sofia teki urosmehiläisen työn
Paljastaessaan kuinka TPS:ssä ei joukkuehenki toimi sooloilijoiden vuoksi, jonka takia koko seura ei pärjää kilpailussa604119Unisex-vessat
Ahdistaa. Miksi kaikki pitää tasapäistää tasa-arvon nimissä? Tasa-arvo on sitä, että kunnioitetaan sukupuolien erilaisu1253335Sosiaalidemokratia romahtanut kautta maailman
nuoret eivät enää kannata järjetöntä aatetta, joten demarien täytyy hakea kannattajia mamuista. Ruotsin sos.demit jo kie2012655Miksi Seta ja Sofia Virta ei vaadi muslimeita kunnioittamaan priden-arvoja?
Kuten tiedetään niin islam ei hyväksy sitä mitä pride edustaa. Seta-pomo Mikkonen nosti hirveän äläkän kun yksi tepsin1142363Vastuun ottaminen omasta hyvinvoinnista
Olen huomannut tuttavapiirissäni ihmisiä, joilla on mt-diagnooseja. Sen sijaan, että millekään asialle yritettäisiin teh2051894Sofia Virralle täydet 12 pistettä!
Kun ei jäänyt mukaan vähemmistöjen sortamista epäsuorasti tukevaan joukkueeseen. Urheilijoiden pitäisi olla esikuvia.3401251- 681048
Miksi Hotelli Kainuuta dissataan?
Ihmetyttää tämä jatkuva yhden yrityksen arvosteleminen. Ikäänkuin mikään ei olisi hyvin. Kuitenkin yritys työllistää, ta20957- 65850