Adriel Ortiz Mangia

[Hola Pon otro ejemplo y entenderte mejor

[Hola Va la macro Sub Guardar() ' 'Act. Adriel Ortiz 'fuente 'Por.Dante Amor 'https://www.todoexpertos.com/preguntas/8crco9s63v8yyo69/crear-copia-de-reporte-en-excel-vba ' Set l1 = ThisWorkbook Set h1 = l1.ActiveSheet h1.Copy Set l2 = ActiveWorkbook...

Sube tu archivo de ejemplo a la nube

[Hola Valora la respuesta para finalizar Va la macro, aunque no me queda claro del optionbutton If ListBox2.ListIndex <> 1 Or ListBox3.ListIndex <> 1 Or OptionButton6 = True Then MsgBox "Elige un nombre de la fila de lista 2" Exit Sub End If

[Hola Te paso la macro, crea 4 hojas con los respectivos nombres Norte, Sur, Este, Oeste. Valora la respuesta para finalizar Sub copiar() 'Por Adriel ' Set h1 = Sheets("INFORME") ' u = h1.Range("B" & Rows.Count).End(xlUp).Row For i = 2 To u ' Select...

[Hola Se necesita más detalles

[Hola Mi gran Maestro y Generoso Dante, me cuesta entender que hayas tomado esta decisión pero es algo que respeto mucho. Me queda decir Dante que estoy profundamente agradecido, porque gracias a tus aportaciones y otras personas que participan en...

Te paso la macro Sub COPIAR() ' 'VALORA LA RESPUESTA PARA FINALIZAR Set h1 = Sheets("Datos") Set h2 = Sheets("Resumen") ' h1.Range("A1:C1").Copy h2.Range("A1") h2.Range("A2:C" & Rows.Count).ClearContents ' u = h1.Range("A" & Rows.Count).End(xlUp).Row...

[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...