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
321
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
Janni Tikkanen ohjattiin miesten pukuhuoneeseen
Vai olisko sittenkin Janne Tikkanen? Jos siellä jalkojen välissä on miesten killukkeet, mieshän tämä Janni on. Ja kuuluu872335Keskisarja loisti A-studiossa, vauhkoontunut Sofia Virta munasi itsensä
Keskisarja taas puhui 100% faktaa maahanmuuttoon liittyen. Kokoomuksen Kaumalta tuli pari hyvää puheenvuoroa, joskin muu4662271Rakastan ja ikävöin sinua
Ei helpota tämä ikävä millään. Pelkäsin että tämä ajanjakso tulee olemaan juuri näin vaikea. Siksi halusin ennen tätä pä771462Tiedän ettet tehnyt tahallasi pahaa
Asiat tapahtuivat, ristiriidat ovat meitä vahvempia. Olemmeko me niin vahvoja, että selviämme tästäkin vielä? Aika paljo1101430- 671323
Sä olet epävakaa
tai ainakin yrität onnistuneesti vaikuttaa siltä. Ei sun kanssa uskalla ruveta yhtään mihinkään, menis hommat ojasta all181271Venäläistä sukellusvenettä jahdataan Norjassa Sukellusvenettä on etsitty sunnuntaista lähtien.
Venäläistä sukellusvenettä jahdataan Norjassa Sukellusvenettä on etsitty sunnuntaista lähtien. Norjassa on käynnissä ve1091092Haluatko tietää totuuden?
Olen kyllästynyt sinuun. Et herätä enää mielenkiintoa. Samat jutut x 100. Kuten narskuilla aina. Samalla tunnen myötätun871083Teräväkielinen Virta jauhotti totaalisesti sössöttävän Keskisarjan
Harvoin on noin suvereenia jauhotusta A-studiossa nähty. Ja minä äänestän demareita, joita ei oltu paikalle edes kutsut2611060Sofia Virta pyyhkii pöytää Keskisarjalla A studiossa
Hurjaa on meno. Keskisarja ihan kanveesissa.2711042