Witam,
Mam pewien problem.
Mam Arkusz (nazwijmy go A), gdzie jest z 10 zakładek z formułami. Chodzi mi o makro, które skopiuje zakładkę (np. 2) i zakładkę(np 4) do nowego arkusza, z tym że wklei je jako wartości i zapisze go jako arkusz B. Napisałem marko które kopiuje 1 zakładkę wkleja do nowego arkusza, zapisuje i zamyka . Działa świetnie.
Problem polega na tym, że nie wiem jak sprawić aby kopiowana była również do tego pliku druga interesująca mnie zakładka. Proszę o pomoc.
private sub copyy()
Dim nazwa, path, BCname As String
nazwa = "AAA_" & Sheets("first").Range("b1") & "_" & Sheets("first").Range("b2") & "_XXX"
On Error GoTo Err_KopiujArkusz
path = ThisWorkbook.path
BCname = ActiveWorkbook.Name
Workbooks(BCname).Worksheets("Dane1").Copy 'kopiuje do nowego skoroszytu
ActiveSheet.UsedRange.Copy 'kopiuj
ActiveSheet.UsedRange.PasteSpecial xlPasteValues 'wklej wartości
ActiveWorkbook.SaveAs (path & "\" & nazwa) 'zapisz jako..
ActiveWorkbook.Close
Exit_KopiujArkusz:
Exit Sub
Err_KopiujArkusz:
MsgBox Err.Description, vbExclamation, Err.Number
Resume Exit_KopiujArkusz
End Sub |