Iz idej, ki sem jih dobil na tem forumu sem poskusil sestaviti kodo za makro, ki bi mi omogocala, kopiranje dolocenih listov v drug dokument
. Imena obeh dokumentov nista vedno enaka oziroma se spreminjata.Rec se je ustavila v vrstici, kjer sem verjetno nepravilno definiral ime delovnega zvezka.
Hvalezen bi bil za kaksno resitev.
Lep dan!
Iskalec
Koda: Izberi vse
Public Function AliZvezekObstaja(WSName As String) As Boolean
Dim Ime As String
On Error GoTo Konec
Ime = Worksheets(WSName).Name
AliZvezekObstaja = True
Exit Function
Konec:
AliZvezekObstaja = False
End Function
Sub PRENOS2006()
'
' Idejna resitev 2004/2005: Matjaz Prtenjak
' www.matjazev.net
'
Dim prviDZ_ime As String
Dim tmp
' izberem prvi DZ
tmp = Application.GetOpenFilename(fileFilter:="Excelove datoteke (*.xls), *.xls", Title:="Izberite datoteko...")
If (tmp <> False) Then
prviDZ_ime = tmp
Else
Exit Sub
End If
' oba zvezka odprem
Dim prviDZ As Workbook
Dim drugiDZ As Workbook
Set drugiDZ = ThisWorkbook
Set prviDZ = Workbooks.Open(prviDZ_ime)
prviDZ.Activate
If (AliZvezekObstaja("IME")) Then
Sheets("IME").Select
Cells.Replace What:="=", Replacement:="a=", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Sheets("IME").Select
Sheets("IME").Copy Before:=Workbooks("drugiDZ").Sheets(5)
Cells.Replace What:="a=", Replacement:="=", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
prviDZ.Activate
Cells.Replace What:="a=", Replacement:="=", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
prviDZ.Close
End If
End Sub