Dante Amor

Prueba lo siguiente: Private Sub CommandButton1_Click() If TextBox1 = "" Then MsgBox "Captura el dato en textbox1" TextBox1.SetFocus Exit Sub End If If TextBox2 = "" Then MsgBox "Captura el dato en textbox2" TextBox2.SetFocus Exit Sub End If '...

Para sumar una columna de una Tabla debes poner el campo de la suma: =SUMA(Tabla1[Total]) Pero si quieres la suma de un campo filtrado, entonces utiliza SubTotales: =SUBTOTALES(9;Tabla1[Total])

Los puntos rojos significa que vas a utilizar una expresión, algo como esto: With Range("B5") .Value = "hola" End With Pero al dejar el punto sin la expresión, el editor de VBA te envía el error y lo pinta de rojo. No sé por qué la macro pone el...

Si tienes los archivos en una carpeta. Cambiar en mi ejemplo "C:\trabajo\libros\" por el nombre de tu carpeta. Si son varias carpetas, entonces realiza una ejecución por cada carpeta. Sub Cambiar_Autor() Dim wb As Workbook, sRuta As String, arch As...

[H o l a y bienvenido a Todoexpertos. En cuál celda vas a poner la fórmula?RC[-36] a cuál celda corresponde?RC[-37] a cuál celda corresponde?Vas a copiar la fórmula, la vas a copiar hacia la derecha o hacia abajo? Responde en ese orden.

Revisa si lo siguiente es lo que necesitas: Sub RevisaCarpeta() Dim sNombre As String On Error Resume Next If Dir("C:\Usuarios\dvelasquez\documents", vbDirectory) = "" Then If Dir("D:\Usuarios\dvelasquez\documents", vbDirectory) = "" Then Else...

Prueba esta fórmula en D2 y copia hacia la derecha =Contar.SI($A$2:$A$16,D1)

Prueba lo siguiente: Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) Dim h1 As Worksheet, r As Range, b As Range, c As Range, i As Long Set h1 = Sheets("Hoja1") ' Set r = h1.Columns("A") Set b = r.Find(TextBox1, , xlValues, xlWhole)...

Te cambio la macro por una nueva Sub Aleatorios() Dim i As Long, j As Long, n As Long, m As Long, r As Range Dim idx As Long, tmp As Variant, arr As Variant ' i = ActiveCell.Row Set r = Range("A" & i & ":AD" & i) n = WorksheetFunction.CountA(r) m =...

Mi código me da un fallo al rato de estar usando la aplicación, ¿Qué mensaje de error te aparece? ¿Y en cuál fila del código se detiene?