beto_vc

grecko187 respondió: Veto un placer saludarte y ayudarte. Bien, si es el caso en que la columnas B y DE tengan datos ya que así si funcionará la siguiente función Ult_Fil = Cells(1,3).CurrentRegion.Rows.Count En este caso la variable Ult_Fil toma el valor de la última...

tavopz respondió: Disculpa pero no entendí tu pregunta.

grecko187 respondió: Para ponerlos en negrita TextBox1.Font.Bold = True Y luego le das el formato y el valor TextBox1 = Format(Sheets("control").Range("k12").Value, "#,##0.00")

tavopz respondió: Para llevar los datos de celdas a tu textbox y dejarlos inmodificables lo puedes hacer así: TextBox1.Text = Sheets("HojaX").Range("A1").Value TextBox1.Locked = True Para sumarlos, simplemente haces la suma de las dos celdas antes de llevarlo al textbox.

tavopz respondió: Revisa esta macro: Sub OrdenaTabla() x = InputBox("Indique el modo del filtro, 1=Item, 2=Proveedor") If x = "1" Then s = "F1" Else If x = "2" Then s = "I1" Else MsgBox ("Ingrese una opción válida") GoTo fin End If End If Range("A1").Select...

tavopz respondió: ¿Entonces lo que deseas es que si se selecciona más de una celda no se ejecute el código? Si es así, puedes agregar un condicional al inicio que cuente la cantidad de celdas seleccionadas y si es mayor a 1, entonces salga del código, algo así:...