Dante Amor

H o l a: Te anexo la macro Sub CopiarFormula() 'Por.Dante Amor With Range("C1:C" & Range("B" & Rows.Count).End(xlUp).Row) .Formula = "=(RC[-2]-RC[-1])+0.5" End With End Sub' : ) 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias ' : )

H o l a: Envíame tu archivo con algunos ejemplos de cómo están tus datos. Dime en dónde se va a poner la imagen. También envíame los archivos de las imágenes que pusiste en los ejemplos. Mi correo [email protected] En el asunto del correo escribe tu...

Te anexo la macro actualizada Sub CopiarFilas() 'Por.Dante Amor Application.ScreenUpdating = False Application.DisplayAlerts = False Application.StatusBar = False Dim h1 As Object, h2 As Object, h3 As Object Dim i As Integer, u As Double, u1 As...

H o l a: Te anexo la actualización: Dim d1 As Variant, d2 As Variant d1 = Left(TextMatricula.Text, 1) d2 = Mid(TextMatricula.Text, 2, 1) obj_Worksheet.Range("Q11") = d1 obj_Worksheet.Range("R11") = d2' : ) 'S aludos. Dante Amor. Recuerda valorar la...

H o l a: Te anexo las macros para seleccionar un registro, modificarlo y pasar las modificaciones a la hoja: Sub PasarDatos(hoja, fila) 'Por.Dante Amor Sheets(hoja).Cells(fila, "A") = tb_centro Sheets(hoja).Cells(fila, "B") = tb_alta...

H o l a: si quieres la macro en el botón: Sub Ir_a_kardex_tkt() 'Por.Dante Amor If Not Intersect(ActiveCell, Range("S:S")) Is Nothing Then hoja = UCase(ActiveCell.Value) If hoja = "" Then Exit Sub For Each h In Sheets If UCase(h.Name) = hoja Then...

H o l a: Tienes una "X", ¿quieres copiar la hoja "X" con todo su contenido y replicarla 41 veces? En qué hoja, ¿en qué columna y en qué fila inicia la lista de nombres? Y en dónde quieres la copia de la hoja, ¿en el mismo libro?

H o l a: Para cambiar el folio se requiere de una macro. Pon la siguiente macro en un módulo: Sub ImprimirHoja() 'Por.Dante Amor num = InputBox("Escribe el número de copias", "IMPRIMIR") If num = False Or num = 0 Or num = "" Then Exit Sub If Not...

H o l a: Pon el siguiente código en el formulario, cambia CommmadButton1 por el nombre de tu botón. Private Sub CommandButton1_Click() 'Por.Dante Amor ruta = escritorio() If ruta = "" Then MsgBox "No existe la carpeta escritorio" Exit Sub End If...

H o l a: No entendí muy bien lo que necesitas. Envíame un archivo con ejemplos, me explicas con comentarios, colores o imágenes lo que necesitas.