Adriel Ortiz Mangia

[Hola Prueba con esto para limpiar LstPresupuestosFiltrados. Clear

[Hola pon la macro en el evento selectionchange de la hoja donde están tus datos Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Valora la respuesta para finalizar ' UserForm1.TextBox1 = Cells(ActiveCell.Row, "A") UserForm1.TextBox2 =...

[Hola Crear Macro para guardar archivo con extensión CSV (asignando ciertas celdas)

Pon ejemplos para entender lo que necesitas

[Hola Entonces puedes usar esto https://www.gerencie.com/enviar-varias-hojas-de-un-libro-de-excel-a-imprimir-o-archivo.html

[Hola Te paso la macro Sub prueba() valor = Range("A12").Value Set r = Rows(13) Set busca = r.Find(valor, LookIn:=xlValues, lookat:=xlWhole) If Not busca Is Nothing Then MsgBox "Dato encontrado en :" & busca.Address, vbInformation Else MsgBox "No...

[Hola envíame tu archivo para revisarlo [email protected]

[Hola Te paso la macro Macro para combobox1 Private Sub ComboBox1_Click() Set h = Sheets("Hoja1") ListBox1.Clear Set r = h.Columns("A") ' Set b = r.Find(ComboBox1, LOOKAT:=xlWhole) If Not b Is Nothing Then ListBox1.AddItem h.Cells(b.Row, "B")...

[Hola Prueba esto Sub BUSCAR() busca = InputBox("Ingresa Dato a buscar") If busca = "" Then Exit Sub Set R = Range("A1:A50") Set b = R.Find(busca, LOOKAT:=xlWhole) If Not b Is Nothing Then MsgBox "Dato encontrado", vbInformation, "Aviso" b.Select End...

[Hola On Error Resume Next ' Sheets("BalanceB").Copy After:=Sheets(ActiveWorkbook.Sheets.Count) ActiveSheet.Name = Hoja39.Cells(4, 6)