Adriel Ortiz Mangia

H o l a: Investigando encontré esta macro y si funciona Sub proceso() 'por luismondelo ruta = "C:\Users\INICIAL-EIB\Downloads" parte = ActiveCell.Value Set fso = CreateObject("scripting.filesystemobject") Set carpeta = fso.getfolder(ruta) For Each...

H o l a: ¿Deseas qué te prepare la macro?

H o l a : Para la columna G =SI(C4<>"";"SI";"NO") Para la columna H =SI(O(D4 <> "";E4 <>"");"SI","NO")

H o l a Esto será útil Sumar idéntica celda de varios libros Macro para sumar la misma celda de varios libros y aplicarla a todas las hojas del libro.

H o l a: Te paso la macro Sub copiado() If [A1] = "" Then Exit Sub For Each hoja In ThisWorkbook.Worksheets If [A1] = hoja.Name Then MsgBox "hoja ya existe" Exit Sub End If Next Set h1 = Sheets("GENÉRICO") h1.Copy After:=Sheets(1) ActiveSheet.Name =...

H o l a: Nuestro amigo Dante esta ausente estos días, porque siempre estoy a la expectativa de sus respuestas, será que está a Full trabajo. Pero si deseas puedo apoyarte Muestra el código del combobox para validar los datos saludos!

H o l a: Agrega un módulo y pega esto Function Sumarcolor(Celdacolor As Range, Rangosuma As Range) As Double Dim celda As Range For Each celda In Rangosuma If celda.Interior.ColorIndex = Celdacolor.Cells(1, 1).Interior.ColorIndex Then Sumarcolor =...

H o l a: ¿No entendí que filas deseas ocultar? ¿En qué celdas pondrás las condiciones para ocultar las filas? Si podrías mostrar una imagen

H o l a: ¿Cómo tienes los datos en el formulario? ¿Los datos del formulario lo guardas en la hoja? ¿Dónde se guardará el PDF? Pon imágenes para facilitar en realizar la macro saludos!

H o l a: Private Sub CMD1_Click() If TextBox15 <> "" Then Set h1 = Sheets("NUCLEOS PRODUCIDOS") j = h1.Range("I" & Rows.Count).End(xlUp).Row + 1 pedazo = 10 For i = 1 To Len(TextBox15) Cells(j, "I") = Mid(TextBox15, i, pedazo) Cells(j, "J") = Date...