Dante Amor

Puedes poner una imagen de cómo están tus datos, pon 3 ejemplos un excle, un pdf y un dxf Procura que se vean las filas y las columnas de excel. Entiendo que tienes los nombres de los archivos en la columna M. Qué valores tienes en la columna J,...

Olvida la macro. Olvida que tienes muchos datos en la hoja. Yo entiendo que debe aplicar para todos los datos. Explica un ejemplo. 1. Si hay dato en la celda B9 entonces, si la celda B9 está vacía, ¿quieres un mensaje? 2. "Debe haber un dato en E9 o...

H o l a y bienvenida a TodoExpertos! Puedes comentar en dónde exactamente tienes los datos (hoja, fila, columna). En dónde vas a capturar los datos parciales (hoja, celda) En dónde quieres los resultados (hoja, fila inicial, columnas) ¿Quieres el...

Si estás utilizando el métod AddItem, efectivamente el límite son 10 columnas, de la 0 a la 9. Para cargar más de 10 columnas, puedes utilizar la propiedad .List o . RowSource. Por lo que puedo ver en tu código, estás tratando de poner el número de...

Prueba la siguiente opción: Sub Numerar() Dim i As Long, j As Long, k As Long For i = 2 To Range("A" & Rows.Count).End(3).Row If Range("A" & i) = "PRODUCTO" Then j = j + 1 Range("B" & i).Value = j ElseIf Range("A" & i) = "SERVICIO" Then k = k + 1...

Puedes poner otra vez la macro, pero utiliza el icono para insertar código:

Si lo llamo desde el formulario login aparecerá con todas las etiquetas y los commandbutton activos, pero si lo llamo desde otro punto del libro Puedes poner aquí la instrucción de esos "llamados".

Puedes poner aquí la macro para revisarla. Utiliza el icono para insertar código.

Prueba así: Sub test() Dim i As Long, sHoja As String sHoja = "añadir" With Worksheets("hoja1") For i = 2 To .UsedRange.Rows(.UsedRange.Rows.Count).Row If .Cells(i, "B").Value = "" Then If Not Evaluate("ISREF('" & sHoja & "'!A1)") Then...

Prueba lo siguiente: Public ok As Byte 'permite habilitar la impresión Public marca As Byte 'indica tipo de impresión Sub macroImpresion() Dim r As Long, n As Long, sRng As String 'Imprime el desprendible según la marca 'habilita la impresión ok = 1...