Macro Cambiar tipo de Formato en varias Hojas
El presente Código realiza el cambio de formato en el tipo de moneda pero lo realiza en todas las hojas y necesito que lo haga solo en algunas (FACTURA, PRESUPUESTO, NOTA). Agradezco toda la ayuda que puedan prestarme al respecto.
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
ActiveSheet.Unprotect "123"
Sheets("FACTURA").Select
fichero = Application.GetOpenFilename
If fichero = False Then Exit Sub
ActiveSheet.Unprotect "123"
tope = Range("A1").Top
izq = Range("A1").Left
alto = Range("A1").Height
ancho = Range("A1").Width
ActiveSheet.Pictures.Insert(fichero).Select
w = Selection.Width
H = Selection.Height
Selection.ShapeRange.Top = tope
Selection.ShapeRange.Left = izq
Selection.ShapeRange.Height = alto
Selection.ShapeRange.Width = ancho
ElseIf CheckBox1.Value = False Then
Call LIMPIARCHECKBOX
End If
ActiveSheet.Protect "123"
End Sub
1 Respuesta
Disculpen amigos me equivoque al copiar este es el Código
Macro Cambiar tipo de Formato en varias Hojas
El presente Código realiza el cambio de formato en el tipo de moneda pero lo realiza en todas las hojas y necesito que lo haga solo en algunas (FACTURA, PRESUPUESTO, NOTA). Agradezco toda la ayuda que puedan prestarme al respecto.
Private Sub OptionButton1_Click()
Dim Hoja As Worksheet
If OptionButton1.Value = True Then
Application.ScreenUpdating = False
For Each Hoja In Worksheets
Sheets(Hoja.Name).Activate
ActiveSheet.Unprotect "123"
Sheets(Hoja.Name).Range("H17:I41,I43:I50").Select
ActiveSheet.Unprotect "123"
Selection.NumberFormat = "[$$-en-US] * #,##0.00;;;@"
Sheets("DATOS").Range("L3") = "DOLARES"
Call QUITARSELC
Next
End If
Application.ScreenUpdating = True
ActiveSheet.Protect "123"
End Sub
[Hola
Valora la respuesta para finalizar
Va la macro
Private Sub OptionButton1_Click()
Dim Hoja As Worksheet
Application.ScreenUpdating = False
'
If OptionButton1.Value = True Then
For Each Hoja In Worksheets
Select Case Hoja.Name
Case FACTURA, PRESUPUESTO, NOTA
Case Else
Sheets(Hoja.Name).Activate
ActiveSheet.Unprotect "123"
Sheets(Hoja.Name).Range("H17:I41,I43:I50").Select
ActiveSheet.Unprotect "123"
Selection.NumberFormat = "[$$-en-US] * #,##0.00;;;@"
Sheets("DATOS").Range("L3") = "DOLARES"
'
Call QUITARSELC
End Select
Next
End If
Application.ScreenUpdating = True
ActiveSheet.Protect "123"
End Sub
Va con los ajustes
Private Sub OptionButton1_Click()
Dim Hoja As Worksheet
Application.ScreenUpdating = False
'
If OptionButton1.Value = True Then
For Each Hoja In Worksheets
Select Case Hoja.Name
Case "FACTURA", "PRESUPUESTO", "NOTA"
Case Else
Sheets(Hoja.Name).Activate
ActiveSheet.Unprotect "123"
Sheets(Hoja.Name).Range("H17:I41,I43:I50").Select
ActiveSheet.Unprotect "123"
Selection.NumberFormat = "[$$-en-US] * #,##0.00;;;@"
Sheets("DATOS").Range("L3") = "DOLARES"
'
Call QUITARSELC
End Select
Next
End If
Application.ScreenUpdating = True
ActiveSheet.Protect "123"
End Sub
Hace los cambios en todas las hojas a excepción de "FACTURA", "PRESUPUESTO", "NOTA" y necesito que lo hago solo en estas tres hojas (osea al contrario)
"FACTURA", "PRESUPUESTO", "NOTA"
Va la macro
Valora la respuesta para finalizar
Private Sub OptionButton1_Click()
Dim Hoja As Worksheet
Application.ScreenUpdating = False
'
If OptionButton1.Value = True Then
For Each Hoja In Worksheets
Select Case Hoja.Name
Case "FACTURA", "PRESUPUESTO", "NOTA"
Sheets(Hoja.Name).Activate
ActiveSheet.Unprotect "123"
Sheets(Hoja.Name).Range("H17:I41,I43:I50").Select
ActiveSheet.Unprotect "123"
Selection.NumberFormat = "[$$-en-US] * #,##0.00;;;@"
Sheets("DATOS").Range("L3") = "DOLARES"
'
Call QUITARSELC
End Select
Next
End If
Application.ScreenUpdating = True
ActiveSheet.Protect "123"
End Sub
¡Gracias! hermano solo coloque los nombres de las otras hojas y quite las de "FACTURA", "PRESUPUESTO", "NOTA" y funciono a la perfección, mis respetos para ti.
"FACTURA", "PRESUPUESTO", "NOTA"
