Dante Amor

Para cambiarlo a punto y coma podría ser así: Sub Macro4() ' ' Macro4 Macro ' Application.UseSystemSeparators = False Application.DecimalSeparator = "," Application.ThousandsSeparator = "." ' Windows("machasa1.xlsx").Activate ruta = ThisWorkbook.Path...

H o l a: Te anexo la macro Sub PonerColor() 'Por.Dante Amor For i = 1 To Range("E" & Rows.Count).End(xlUp) If Cells(i, "E") > 0 And Cells(i, "E") < 45 Then Cells(i, "E").Interior.ColorIndex = 46 End If Next MsgBox "Fin" End Sub:) ;)

H o l a: Envíame dos archivos, el archivo 12345.xlsx y el archivo de control En color verde pon los datos del archivo 12345.xlsx para saber de dónde tengo que tomar los datos. También, en el archivo de control, pon en color verde los datos que...

H o l a: Te anexo la macro, cambia en la macro "destino" por el nombre de tu hoja que va a recibir la información. Sub CopiaRango() 'Por.Dante Amor Application.ScreenUpdating = False Set h1 = Sheets("destino") j = 3 For Each h In Sheets If h.Name <>...

H o l a: Te anexo el código para crear la hoja con el nuevo nombre. Sub Opcion1() 'crear una hoja en el mismo libro 'Por.Dante Amor res = CrearHoja If res <> 0 Then MsgBox "Hoja copiada con el nombre: " & res, vbInformation, "REMITO" End Sub ' Sub...

H o l a: La primera macro me queda claro, busco la palabra "producto" y agrego 2 líneas. Pero la segunda macro no entiendo, en dónde se tienen que pegar las celdas E2:¿G2? ¿Necesitas 2 macros? ¿O qué una misma macro haga las 2 tareas?

Envíame tu último archivo con los formularios Recuerda poner tu nombre de usuario en el asunto.

H o l a: Te anexo la macro actualizada. Sub CopiarCeldas() 'Por.Dante Amor Application.ScreenUpdating = False Set h1 = Worksheets("FACTURA") 'hoja origen Set h2 = Worksheets("INGRESOS") 'hoja destino c1 = "D17" 'cedlda origen c2 = "C" 'columna...

H o l a: Utiliza la siguiente: Application.Windows("nombre libro").Visible = False:) S aludos. D a n t e A m o r. Recuerda valorar la respuesta. G r a c i a s ;)

H o l a: Puedes poner un par de imágenes, imagen 1 de la hoja que tiene los datos a copiar y la imagen 2 de la otra hoja en donde hay que pegar. O explícame con ejemplos lo que necesitas, es decir, quieres copiar el rango B2:B5 de la hoja1 y lo...