Dante Amor

Puedes cambiar el segundo For por el método .find, de esta forma es más rápido que un For. Por ejemplo, recorre la hoja1 desde el registro 2 hasta el último de la columna A y busca el código en la columna A de la hoja2, en caso de existir más de un...

Siempre quieres que ponga E10 Prueba con lo siguiente y me comentas ActiveCell.FormulaR1C1 = "=Hoja2!R10C5" Significa R10 = Row 10 = fila 10 C5 = Column 5 = Columna E Siempre que ejecutes la macro en la celda que esté activa te va a poner = E10 [Si...

Para el caso de hugo que solamente tiene 2 registros, ¿los dos registros se deben eliminar? Y para el caso de juan que solamente tiene 1 registro, ¿también qué se borre el registro?

Pon lo siguiente With Worksheets("Reporte_por_área").Cells(Rows.Count, 2).End(xlUp).Offset(3, 0) .Value = DGABDCENTRAL .Font.Bold = True End With [sal u dos. Dante Amor

Pon la siguiente fórmula en D40 =Sumaproducto((Subtotales(9,Desref($M$8,Fila($M$8:$M$37)-Fila($M$8),,1)))*($N$8:$N$37=$C40)) Y la siguiente en D41 =Sumaproducto((Subtotales(9,Desref($M$8,Fila($M$8:$M$37)-Fila($M$8),,1)))*($N$8:$N$37=$C41)) [Sal u dos

Yo lo resumiría así: Private Sub txtcodigo_AfterUpdate() If modFormulario.consultarProducto(txtcodigo, 2) = "No existe" Then MsgBox "El codigo ingresado no existe", vbCritical, "Resultado" Exit Sub End If txtdescripcion =...

Las funciones solamente regresan un dato. En este caso te regresa el dato de una celda. Puedes concatenar los dos datos, regresar los 2 datos y después separarlos, esto es más laborioso. O puedes enviar como parámetro la columna que quieres...

En la variable Ruta ya estás poniendo la diagonal al final de la ruta: Ruta = "C:\Users\Pérez Abisaí\OneDrive - M8\Documents\Hoy\" Después cuando concatenas la ruta y el archivo, estás poniendo otra diagonal Hoja.ExportAsFixedFormat Type:=xlTypePDF,...

Si es un combobox de Control ActiveX Pon el siguiente código en los eventos de tu hoja Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) Set h2 = Sheets("Hoja2") ActiveSheet.ComboBox1.Clear For i = 2 To...

Te anexo el código para buscar Private Sub CommandButton1_Click() Label1.Caption = "" valor = TextBox1.Value If valor = "" Then MsgBox "Captura un folio" TextBox1.SetFocus Exit Sub End If If IsNumeric(valor) Then valor = Val(valor) Set b =...