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
3
310
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
- 1693100
Kun viimeksi kohtasitte/näitte
Mitä olitte tekemässä? Millainen ympäristö oli? Löydetään toisemme...1392097Olet kyllä vaarallisen himokas
Luova, kaunis, määrätietoinen, pervo, mielenkiintoinen, kovanaama, naisellinen ja erikoinen.1092036- 891807
- 831596
Anna vielä vähän vihreää valoa
Teen sitten siirtoni, nainen. Tiedän, että olet jo varovaisesti yrittänyt lähestyä, mutta siitä on jo aikaa. Jos tunnet241572- 2271120
- 711100
Miksi homous puhuttaa konservatiiveja vuodesta toiseen?
Kysymykseen on vastattukin Kansanlähetyksen osalta: "Miksi sukupuoleen ja seksuaalisuuteen liittyvät asiat ovat konserv2711089- 74958