Dante Amor

H o l a : No puedo descargar el archivo. Envíame un correo con tu archivo, me explicas con un ejemplo lo que necesitas. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Ramón Vargas” y el título de esta pregunta.

¿Pero cuál es tu idea? ¿Quieres seleccionar la fila en la hoja y presionar un botón y cargar los datos de la fila seleccionada en el formulario? ¿Quieres el mismo formulario para nuevos y para modificaciones?, si es así, debemos identificar cuándo es...

H o l a : Te anexo la macro Sub FiltrarFechas() 'Por.Dante Amor Application.ScreenUpdating = False Set h1 = Sheets("Plantilla") Set h2 = Sheets("Bajas") u = h2.Range("R" & Rows.Count).End(xlUp).Row + 1 For i = h1.Range("R" & Rows.Count).End(xlUp).Row...

Después de generar el último turno, ejecuta la siguiente macro Sub CopiarHojas() 'Por.Dante Amor Dim hojas() Application.ScreenUpdating = False Application.DisplayAlerts = False fecha = Format(Date, "dd-mm-yyyy") n = -1 For Each h In Sheets If...

Te anexo la macro Private Sub CommandButton1_Click() 'Por.Dante Amor If TextBox1 = "" Then MsgBox "Captura un dato" Exit Sub End If If IsNumeric(TextBox1) Then dato = Val(TextBox1) Else dato = TextBox1 Set b = Sheets("Hoja3").Columns("M").Find(dato,...

H o l a: Lo más práctico sería hacer un userform para la captura. En un correo nuevo, envíame tu archivo. Dime qué datos quieres capturar y qué datos quieres almacenar en la hoja, todo explicado con un ejemplo con datos reales. Mi correo...

H o l a: Pon el siguiente código en los eventos de tu hoja inicio Private Sub CommandButton1_Click() Sheets("CALCULOS").Visible = True Sheets("CALCULOS").Select Sheets("CALCULOS").Range("C2").Select Sheets("INICIO").Visible = False End Sub ' Private...

H o l a: Haber si entendí. Quieres revisar las filas pares, si la celda A (fila par) es mayor que 0, tiene que hacer 2 acciones, una, pasar el dato de la celda B (fila par) a la celda K (fila non); y la segunda, borrar la fila par. Al último quieres...

H o l a : Pon el siguiente código en el botón gregar del formulario: Private Sub CommandButton1_Click() 'Por.Dante Amor 'Agregar a al hoja If ComboBox1 = "" Then MsgBox "Selecciona un código", vbCritical ComboBox1.SetFocus Exit Sub End If If TextBox1...

Ejecuta la siguiente macro en tu hoja Sub Concatenar() 'Por.Dante Amor For i = 1 To Range("B" & Rows.Count).End(xlUp).Row cadena = cadena & ";" & Cells(i, "B") Next [A1] = Mid(cadena, 2) End Sub