Dante Amor

Prueba lo siguiente: Sub Macro2() With ActiveSheet .Range("A1", .Range("D" & Rows.Count).End(3)).AutoFilter 3, "<>*caobos*" .AutoFilter.Range.Offset(1).EntireRow.Delete .ShowAllData End With End Sub

Revisa si esto te ayuda: Sub ExportarHojaTxt() 'Por.Dante Amor Application.DisplayAlerts = False Application.ScreenUpdating = False Sheets("Hoja1").Copy ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & "Prueba.txt", FileFormat:=xlText...

Aquí otra opción a considerar: Sub test2() MsgBox [sum(A:A)] End Sub

Prueba lo siguiente: Sub test() Dim uf As Long uf = Range("B" & Rows.Count).End(xlUp).Row [C2] = [C1] Range("C2").AutoFill Destination:=Range("C2:C" & uf), Type:=xlFillSeries End Sub

Puedes utilizar el método Find para buscar en una hoja y en una columna si existe cierto dato. Sub test() Dim f As Range, dato As String dato = "el producto" Set f = Sheets("Hoja1").Range("A:A").Find(dato, , xlValues, xlWhole) If Not f Is Nothing...

Te recomiendo poner la operación en un botón. Si los valores están en el combobox, entonces podemos validar que realmente hay seleccionado un dato de cada combo. Prueba lo siguiente: Private Sub CommandButton1_Click() If ComboBox1.Value = "montar...

No entiendo qué necesitas. Puedes explicar con ejemplos e imágenes.

El listbox tiene la propiedad multiselect, es decir, ¿puedes seleccionar varios items? Si solamente puedes seleccionar un registro entonces cambia todo tu código por esto: If listbox1.Listindex > - 1 then [P1] = listbox1.list(listbox1.listindex) End if

El nombre interno de las hojas, Suponiendo que el nombre interno (CodeName) de la hoja es "NombreFijo". Entonces con el siguiente código obtenemos el nombre de la hoja según el CodeName: Sub test() Dim l2 As Workbook, sh As Worksheet, sNombre As...

Cambia esto Me.ListBox1.ColumnCount = 2 Me.ListBox1.ColumnWidths = "200pt;20pt" Me.ListBox1.AddItem Hoja3.Cells(1, 15) Me.ListBox1.List(i, 1) = Hoja3.Cells(1, 16) Por esto: With Me.ListBox1 .ColumnCount = 2 .ColumnWidths = "200pt;20pt" . AddItem...