Dante Amor

Encontré esta forma: Tienes esto Private Sub Userform_Activate() izq = Label1.Left - 7.5 alt = Label1.Top + Label1.Height + 10 Set txtB1 = Me.Frame1.Controls.Add("Forms.TextBox.1") With txtB1 .Name = "TextBox1" .Height = 18 .Width = 48 .Left = izq...

Utiliza lo siguiente para tomar el valor de la celda A2 Sub inputcelda() 'Por.Dante Amor valor = Application.InputBox("Introduce dato", Default:=Range("A2")) If valor = False Then Exit Sub MsgBox valor End Sub o también puede ser así: a =...

¿Y qué mensaje de error te pone? Prueba poniendo esto: Sub miamacro2() Hoja1.mimacro1 End Sub O esto: Sub miamacro2() Run "hoja1.mimacro1" End Sub

Te recomiendo que realices el control de existencia de esta forma: En una hoja vas a tener tus existencias. En otra hoja el detalle de entradas, de esta forma tendrás las entradas hacia abajo y no hacia a la derecha, es más complicado leer la...

Te anexo el código para los 2 botones de comando: Private Sub CommandButton1_Click() 'Por.Dante Amor 'bontón atras f = ComboBox1.ListIndex If ComboBox1.ListIndex = -1 Then ComboBox1.ListIndex = 0 Else If ComboBox1.ListIndex > 0 Then...

Te anexo la macro para los totales, funcionaría también para las cantidades si tuvieran el total en la columna B Lo que hace la macro es considerar hasta el último registro que tengas en la columna "E", en este caso considera el total de la columna y...

Tendrás que adecuar algunos datos en la macro: - En ruta1 y ruta2, escribe las rutas origen y destino, recuerda poner al final de cada ruta la diagonal "\" - Cambia "imagen" por el nombre del archivo - Si la extensión del archivo es "gif", entonces...

Con gusto te hago la suma, ¿en dónde quieres el resultado? ¿En al hoja concentrado? Te anexo la macro Sub Concentrar() 'Por.Dante Amor Set h1 = Sheets("Hoja2") Set h2 = Sheets("concentrado") h2.Cells.ClearContents h1.[B3:E3].Copy h2.[B3] For i = 4 To...

Te anexo la macro, la celda que se pinta es la de la columna "ED" Sub PonerColor() 'Por.Dante Amor For i = 186 To Range("E" & Rows.Count).End(xlUp).Row If Cells(i, "E") = [EA3] Then Cells(i, "ED").Interior.ColorIndex = 5 Else Cells(i,...

Para ocultar las filas con un botón, selecciona las filas que quieras ocultar y presiona el botón: Sub OcultarFilas() 'Por.Dante Amor Selection.EntireRow.Hidden = True End Sub Si quieres que se revise el rango, utiliza esta macro: Sub OcultarFilas2()...