Makro koju kopira sheet i javi ako već postoji

Prema tvojim zahtevma čini me se zgodno da napraviš funkciju koja kopira list sa određenim imenom u zadato ime (da se ne ograničimo na ovaj poseban slučaj možda se iskoristi za još nešto) i kao rezultat vraća string sa rezultatom akcije: "Kreiran list" ili "Već postoji"

Code:
Private Function CopySheet(strShSource As String, strShDest As String) As String
' Ako ne postoji shDest kreira ga na osnovu shSource
' Kao izlaz  formira se poruka  o rezultatu akcije
' P.Jovanovic za elitesecurity.org
'
If WorksheetExists(strShDest) Then
' Ako vec  postoji
    CopySheet = "Radni list " & strShDest & " već postoji"
Else ' Ako ne kopira
    ThisWorkbook.Sheets(strShSource).Copy _
         after:=ActiveWorkbook.Sheets(strShSource)
    ActiveSheet.Name = strShDest
    CopySheet = "Radni list " & strShDest & " je kreiran kao kopija " & strShSource
End If
End Function

Sad ovu funkciju u tvom slučaju pozivaš dva puta sa odgovarajućim parametrima i "sabiraš" poruke. Na kraju sa MsgBox prikažeš celu poruku. U navedenoj funkciji koristi se funkcija WorksheetExist, koja jednostavno daje True/False za zadato ime, a na osnovu toga da je rezultat Sheets(WorksheetName).Name Error ako ne postoji list sa tim imenom.

Potpis

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

Forum kao aplikacija na telefonu

Srodne teme