Quiero cambiar el formato de varias celdas en una hoja desde otra hoja por medio de optionsbutton
Quiero cambiar el formato de moneda varias celdas en una hoja excel desde otra hoja por medio de optionsbutton, pero no lo he logrado este es el codigo que he realizado hasta los momentos, la idea es poder seleccionar desde varios optionsbutton el formato de la moneda agradezco la ayuda que puedan prestarme
Private Sub OptionButton1_Click()
If OptionButton1.Value = True Then
Sheets("FACTURA").Range("H17:I40") = ActiveSheet.Range("H2").NumberFormat = "USD$.#.##0,00;0-0;;@"
End If
End Sub
1 Respuesta
Private Sub OptionButton1_Click()
If OptionButton1.Value = True Then
Sheets("FACTURA").Select
Sheets("FACTURA").Range("H17:I31,I33:I40").Select
ActiveSheet.Unprotect "123"
Selection.NumberFormat = "[$$-en-US] * #,##0.00;;;@"
ActiveSheet.Protect "123"
End If
End Sub
Private Sub OptionButton2_Click()
If OptionButton4.Value = True Then
Sheets("FACTURA").Select
Sheets("FACTURA").Range("H17:I31,I33:I40").Select
ActiveSheet.Unprotect "123"
Selection.NumberFormat = "[$Bs-2] * #,##0.00;;;@"
ActiveSheet.Protect "123"
End If
End Sub
Private Sub OptionButton3_Click()
If OptionButton5.Value = True Then
Sheets("FACTURA").Select
Sheets("FACTURA").Range("H17:I31,I33:I40").Select
ActiveSheet.Unprotect "123"
Selection.NumberFormat = "[$€-x-euro2] * #,##0.00;;;@"
ActiveSheet.Protect "123"
End If
End Sub
Private Sub OptionButton4_Click()
If OptionButton6.Value = True Then
Sheets("FACTURA").Select
Sheets("FACTURA").Range("H17:I31,I33:I40").Select
ActiveSheet.Unprotect "123"
Selection.NumberFormat = "[$$-2] * #,##0.00;;;@"
ActiveSheet.Protect "123"
End If
End Sub
Private Sub OptionButton5_Click()
If OptionButton7.Value = True Then
Sheets("FACTURA").Select
Sheets("FACTURA").Range("H17:I31,I33:I40").Select
ActiveSheet.Unprotect "123"
Selection.NumberFormat = "[$S/-es-PE] * #,##0.00;;;@"
ActiveSheet.Protect "123"
End If
End Sub
Pedro Torres A mi 'eterno admirador' le recomiendo ver los videos de mi canal, en especial el N° 11. En una de tus consultas se observa gran cantidad de hojas lo que hace presuponer que tendrás gran cantidad de UF..... tus códigos necesitan ser un poco más cortos y precisos..... es solo una recomendación. Sdos! - Elsa Matilde