Dante Amor

Te anexo la macro actualizada para colorear de A a O Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor On Error Resume Next colnva = "CY" ActiveSheet.Unprotect If Not Intersect(Target, Range("A:O")) Is Nothing Then If Target.Count >...

Te anexo la macro Sub Colorear() 'Por.Dante Amor For i = 5 To 100 Select Case Cells(i, "O") Case "cancelado": Rows(i).Interior.ColorIndex = 4 Case "en proceso": Rows(i).Interior.ColorIndex = 5 Case "finalizado": Rows(i).Interior.ColorIndex = 6 Case...

H o l a : Te anexo la macro. En tu hoja "cuentas", las cuentas deberán empezar en la fila 2 y en la fila 1 deberás tener el encabezado. Con tu formulario deberás agregar el nuevo registro al final de la lista, como se muestra en la imagen. Después de...

Revisa la configuración de tu "pistola", dependiendo de la marca y modelo de la pistola, se puede configurar para que después de leer un código de barras, automáticamente envié el Enter. De esa forma no es necesaria una macro. La configuración la...

Pon la siguiente macro en un botón. Cambia en la macro el 4 por número de fila a copiar. Sub CopiaFila() 'Por.Dante Amor Rows(4).Copy Rows(ActiveCell.Row).Insert Shift:=xlDown End Sub Primero, selecciona la celda en donde quieres insertar la fila con...

H o l a : Te anexo la macro Sub CopiarPegar() 'Por.Dante Amor Application.ScreenUpdating = False For i = Range("G" & Rows.Count).End(xlUp).Row To 11 Step -1 Rows("6:10").Copy Rows(i + 1).Insert Shift:=xlDown Next Application.ScreenUpdating = True...

¿Y cuál es el problema con el código? Yo lo veo bien.

H o l a : Envíame tu archivo con 2 hojas, en una hoja me pones el formato con los campos vacíos. En otra hoja me pones el formato con un ejemplo con los campos capturados, esos campos capturados los pintas de amarillo para saber cuáles son los campos...

H o l a : Envíame un archivo con 3 hojas; la primera hoja en la celda combinada A3:A20 pones un código de artículo, en esa misma hoja pones el resultado que deseas de los materiales a partir de la celda C3; en la segunda hoja deberá estar el código...

H o l a : Pon la siguiente macro en un botón Sub ImprimirHoja() 'Por.Dante Amor num = InputBox("Número de copias", "Imprimir") If num = "" Or Not IsNumeric(num) Or num < 1 Then Exit Sub ' For i = 1 To num Range("F3") = "'" & i & "/" & num...