Macros Excel para una hoja en especifica
Tengo dos situaciones que necesito me ayuden por favor.
1.- Necesito ejecutar una macro en una sola hoja (Hoja 2) de un libro, la macro es la siguiente:
Sub NUEVACOTIZACION()
'
' NUEVACOTIZACION Macro
ActiveSheet. Unprotect "0206"
'
'
Range("A11:G41").Select
Selection.ClearContents
Range("C7").Select
Selection.ClearContents
[H2] = [H2+1]
[H4].Value = Date
ActiveSheet.Protect "0206"
End Sub
2.- Tengo una macro para guardar en PDF pero necesito guardar con el nombre de mi cliente que viene en la celda C7 y complementarlo con el folio de la celda H2:
Sub CREARPDF()
'
' CREARPDF Macro
'
'
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
"/Users/Soberanisimo/Dropbox/UNIVERSALES/Tabulador/Cotización.pdf", Quality _
:=xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub
——————
1 Respuesta
[Hola
La primera macro déjala así:
Sub NUEVACOTIZACION()
'
' NUEVACOTIZACION Macro
With Worksheets("Hoja2")
.Unprotect "0206"
.Range("A11:G41,C7").ClearContents
.[H2] = [H2] + 1
.[H4].Value = Date
.Protect "0206"
End With
End SubY la segunda, algo así:
Sub CREARPDF()
'
' CREARPDF Macro
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"/Users/Soberanisimo/Dropbox/UNIVERSALES/Tabulador/Cotización" & Range("C7") & Range("H2") & ".pdf", Quality _
:=xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End SubAbraham Valencia
