Dante Amor

[Ho la y bienvenido a TodoExpertos! Utiliza la siguiente función: Function CuantosDiferentes(dato As String) As String Dim c As String, x As String Dim i As Long dato = Replace(dato, ".", "") For i = 1 To Len(dato) x = Mid(dato, i, 1) If InStr(1, c,...

Ho la Carolina: Revisa la siguiente respuesta: Duda en la expresión o sintaxis .end(3) o end(xlup) [Sal u dos.

Prueba lo siguiente. Agregué otro input box para que selecciones las celdas donde quieres poner la fórmula. Sub CrearFormula() Dim reff As Range, rngSelection As Range, rngFormula As Range ' With Application On Error Resume Next Set reff =...

Puede ser de estas maneras: Sub consecutivo() Dim i As Long For i = 9 To Range("C" & Rows.Count).End(3).Row Range("A" & i).Value = i - 8 Next End Sub Sin ciclo: Sub consecutivo_sin_ciclo() Range("A9").Value = 1 Range("A9:A" & Range("C" &...

Utiliza lo siguiente: Dias_Transcurridos.Caption = Date - CDate(Fecha_Aumento.Caption)

Prueba la siguiente macro: Sub subtotales() Dim i As Long, ini As Long, fin As Long Dim ant As String, subti As String Dim una As Boolean Dim subt1 As Double, subt2 As Double, subt3 As Double, subt4 As Double ' Application.ScreenUpdating = False '...

Voy a tratar de explicar lo que necesitas con una analogía. Imagina que tienes una biblioteca. En la biblioteca tienes los siguientes temas y número de libros Física 4 libros Química 5 libros Biología 3 libros Matemáticas 8 libros Y te piden buscar...

Los datos contenidos en los textbox son textox, entonces hay que convertir esos textos a valores numéricos, puedes utilizar la función Val o CDbl Prueba así: If Val(textbox2.Value) >= Val(textbox6.Value) then If Val(Textbox3.Value) >=...

No sé si en la celda quieras guardar Opción 1 310 310 310 Opción 2 310 310 (2) 310 (3) --- Te paso un ejemplo para guardar los datos de la segunda opción. Private Sub CommandButton1_Click() 'botón guardar ' Dim sh As Worksheet Dim conteo As Long Dim...

[Ho la y bienvenido a TodoExpertos! Prueba lo siguiente: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Target.Calculate On Error Resume Next With Cells(Windows(1).ScrollRow, Windows(1).ScrollColumn) CommandButton1.Top = .Top + 350...