Adriel Ortiz Mangia

Macro de avance Sub Compara_nexus() Set l1 = ThisWorkbook Set h1 = l1.Sheets("DOCENTES") ruta = ThisWorkbook.Path 'CRITERIOS PARA BUSCAR Y CONTAR Dir1 = "DIRECTOR I.E." SubDir1 = "SUB-DIRECTOR I.E." prof = "PROFESOR" auxed = "AUXILIAR DE EDUCACION"...

[Hola utilizar la sentencia if if textbox1 <> "" or textbox2 <> "" then codigo si es verdadero else código si es falso end if

Dante Amor es un grande Ilustre y el fundador Josep Planells Alòs debe dar su reconocimiento por su gran labor y gratitud en la web todoexpertos

Macro Private Sub ComboBox2_Change() Set h = Sheets(ComboBox1.Value) Set b = h.Range("A:A").Find(ComboBox2.Text, lookat:=xlWhole) If Not b Is Nothing Then fila = b.Row ' TextBox1 = h.Cells(fila, "B") TextBox2 = h.Cells(fila, "C") ' 'vas agregando el...

Macro para cargar el segundo combobox Private Sub ComboBox1_Change() ComboBox2.Clear Set h = Sheets(ComboBox1.Value) For i = 2 To h.Range("A" & Rows.Count).End(3).Row ComboBox2.AddItem h.Cells(i, 1) Next i End Sub crea una nueva petición para mostrar...

[Hola Excel solo permite crear 255 hojas y pides crear más 400

Macro num = Val(TextBox1.Text) num2 = Val(TextBox2.Text) If num Mod num2 = 0 Then MsgBox "es multipo" Else MsgBox "no es multipo" End If

[Hola prueba con esto Sub Macro1() ' ' AOM Application.ScreenUpdating = False Columns("E:G").ClearContents Range("A1:B100").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("E1" _ ), Unique:=True Range("G1") = Range("C1") With Range("G2:G" &...

[Hola prueba esto Sub Macro1() ' ' Macro1 Macro ' With Range("B1:B" & Range("A" & Rows.Count).End(xlUp).Row) .FormulaR1C1 = "=IF(LEN(RC[-1])=9,1,0)" .Value = .Value End With End Sub

[Hola Revisa esto link Cargar imagen al escoger dato de combobox