Ella on nauhoittanut makron 21.1.2008.
'
' Pikanäppäin: Ctrl l
'
Sheets("PR").Select
Selection.EntireRow.Delete
Selection.Copy
TÄSSÄ VÄLISSÄ ON TEHTÄVIÄ JOITA EN HALUA NÄYTTÄÄ.
xlTopToBottom
Range("A1").Select
ActiveWorkbook.Save
End Sub
Makro alkaa kohdasta taulusta p A1 ja päättyy samaan.
Hei, Kijoittaisitko valmiiksi käskyt tähän ja oikeaan paikkaan niin, että makro suorittaisi seuraavat tehtävät:
Kun se on tullut kohtaan Range("A1").Select se tarkistaisi onko taulun PR solu A2 tosi vai epätosi.
Jos PR talun solu A2 on tosi, pitäisi makro toistaa, siis alkaa aina alusta niin kuin se alkaa kun painetaan pikanäppäintä, kunnes vastaan tulee, että PR taulun solu A2 on epätosi.
Tällöin makron tulisi tallentaa työkirja ja lopettaa nauhoitus.
Olisin kiitollinen jos kirjoittaisit käskyt valmiiksi niin, että voisin ne suoraan kopioida alkuperäiseen makroon
Range("A1").Select ja ActiveWorkbook.Save End Sub väliin.
Alku makrossa on täälläinen.
Pikanäppäin: Ctrl l
'
Sheets("PR").Select
Selection.EntireRow.Delete
Selection.Copy
jos siihen tarvitaan lisäyksiä olisitko ystävällinen ja kirjoittaisit ne kopiokuntoon.
Ikuisella kiitollisuudella
Ella
'
' Pikanäppäin: Ctrl l
'
Sheets("PR").Select
Selection.EntireRow.Delete
Selection.Copy
TÄSSÄ VÄLISSÄ ON TEHTÄVIÄ JOITA EN HALUA NÄYTTÄÄ.
xlTopToBottom
Range("A1").Select
ActiveWorkbook.Save
End Sub
Makro alkaa kohdasta taulusta p A1 ja päättyy samaan.
Hei, Kijoittaisitko valmiiksi käskyt tähän ja oikeaan paikkaan niin, että makro suorittaisi seuraavat tehtävät:
Kun se on tullut kohtaan Range("A1").Select se tarkistaisi onko taulun PR solu A2 tosi vai epätosi.
Jos PR talun solu A2 on tosi, pitäisi makro toistaa, siis alkaa aina alusta niin kuin se alkaa kun painetaan pikanäppäintä, kunnes vastaan tulee, että PR taulun solu A2 on epätosi.
Tällöin makron tulisi tallentaa työkirja ja lopettaa nauhoitus.
Olisin kiitollinen jos kirjoittaisit käskyt valmiiksi niin, että voisin ne suoraan kopioida alkuperäiseen makroon
Range("A1").Select ja ActiveWorkbook.Save End Sub väliin.
Alku makrossa on täälläinen.
Pikanäppäin: Ctrl l
'
Sheets("PR").Select
Selection.EntireRow.Delete
Selection.Copy
jos siihen tarvitaan lisäyksiä olisitko ystävällinen ja kirjoittaisit ne kopiokuntoon.
Ikuisella kiitollisuudella
Ella
Vastaukset 5
Vanhimmat
atk-tukihenkilö
Pyysin pientä neuvoa, miten makro toistaa itseään.
Mietippä oliko vastauksesi asiallinen.
Do While Range("A2")= Tosi
toistettava koodi
Loop
Kiitos! kokeilen kun ehdin onnistuuko jos ei yritän kysyä lisää.
En osannut muokata, että toimisi.
Koitan kysyä toisin.