Kopioi jos A10>0

Makro? kirjoitti:

Hei,

Kysymys
Voisiko joku kirjoittaa tässä olevaan makron pätkään lisäyksen.
Makron pitäisi toimia siten että kun se käynnistetään painikkeella alkaen
Rows("10:10").Select je., ensimmäisen ajon lopussa "Range("A9").Select" rivin jälkeen, sen pitäisi käydä lukemassa "Rows("10:10").Select", jos ko. rivi ei ole tyhjä, niin makro jatkaa kuten alussa "Aplication riville je.., mutta jos rivi on tyhjä niin makro jatkaa "End Sub" vaiheeseen.

Tässä ko. makro johon kaipaisin em. lisäyksen.

Makron nimi()

Rows("10:10").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Kirje").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Postitus").Select
Selection.Delete Shift:=xlUp
Range("A9").Select
End Sub

Nimimerkki "Kunde" on antanut minulle joskus ohjeen mutta minä en ole osannut sitä soveltaa käyttöön. Kunden ohje seuraavaksi.

Vastaus

VBA
Kirjoittanut: Kunde   26.3.2006  klo 10.29

ilmeisesti haluat tulostaa riviltä 10 alaspäin niin kauan kuin tyhjä rivi
sen voisi tehdä hiukan fiksumminkin...

Sub makron nimi()

Dim Hakualue As Range
Dim Haku As Integer
On Error Resume Next
alku:
Set Hakualue = Rows("10:10")
With Hakualue
Haku = .Find(What:="", LookAt:=xlWhole).Column
End With
If Haku = 2 And Range("A10") = "" Then Exit Sub

Application.CutCopyMode = False
Hakualue.Copy
Sheets("Kirje").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Postitus").Select
Hakualue.Delete Shift:=xlUp
Range("A9").Select
GoTo alku
End Sub

kirjoitti:

Anonyymi

Kirjoita kommentti

5000

Lähetä