Dante Amor

Lo siguiente crea una hoja nueva al inicio de todas tus hojas. En la columna A pone los datos de I6 y en la columna B pone los datos de F8 Sub extraer_datos() Dim sh As Worksheet, sh1 As Worksheet, a As Variant, i As Long ' ReDim a(1 To Sheets.Count,...

Prueba así: If Me.cbo_not.Text = Empty Or _ Me.txt_fecha.Text = Empty Or _ Me.eje1.Text = Empty Or _ Me.eje2.Text = Empty Or _ Me.ListBox1.ListCount = 0 Or _ Me.ListBox2.ListCount = 0 Then MsgBox "Hay cambios vacios en el PARTE""" Exit Sub End If

Prueba lo siguiente> lr = ActiveSheet.Columns(1).Find("*", , xlValues, , xlByRows, xlPrevious).Row Resp = ComboBuscar.Value For Ren = 3 To lr If UCase(Resp) = UCase(Cells(Ren, "A")) Then Cells(Ren, Cols).Interior.ColorIndex = 8 End If Next Ren

Prueba esto: Sub hojaPdf() Sheets("hoja1").ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=ThisWorkbook.Path & "\" & "HojaPdf.pdf", _ Quality:=xlQualityStandard, IncludeDocProperties:=False, _ IgnorePrintAreas:=False, OpenAfterPublish:=False End Sub

Pon la siguiente fórmula en la columna E, empezando en la celda E2 y copia hacia abajo. =D2+CONTAR.SI.CONJUNTO($A$2:A2,A2,$B$2:B2,B2)-1 La nueva fecha quedará en la columna E de la siguiente manera:

Supongo que tienes algo como esto en los archivos texto: HTA9999 HTA1234 HTA4444 Es decir, después del código HTA existe un número sin espacios. Prueba la siguiente macro. Ajusta en el código la carpeta, la hoja y la fila para poner los resultados....

¿Quieres añadir otros datos en el mismo item? Es decir, si en el listbox tienes 3 columnas, quieres agregar las columnas 4, ¿5 y 6? ¿Y quieres agregar 3 datos a los registros filtrados?

Aquí te dejo otra macro con otro enfoque para tu consideración. Sub CambiarColor() Dim codigo As Variant, a As Variant, hs As Variant Dim i As Long, h As Long, r As Range, existe As Boolean codigo = Application.InputBox("ingresar un número de...

Podría lograrse el "efecto" de la siguiente manera: - Cambia el nombre de los botones a "boton1" y "boton2" - Asigna la macro "Activar" al "boton1" - Asigna la macro "DesActivar" al "boton2" - Pon un botón encima del otro Listo, cada que presiones un...

Prueba lo siguiente. Cambia el fondo del color de los TextBox1 a TextBox7. Private Sub ComboBox1_Change() Dim wColor As Variant, i As Long Select Case ComboBox1.Value Case 1 To 25: wColor = vbBlue 'azul Case 26 To 50: wColor = vbRed 'rojo Case 51 To...