Dante Amor

Utiliza el siguiente evento Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If CloseMode = 0 Then MsgBox "Cerrar el formulario desde el botón" Cancel = True End If End Sub Y para cerrar el formulario, en el botón pon el...

H o l a : Envíame los archivos con los ejemplos y me explicas con comentarios e imágenes lo que tienes que realizar paso a paso. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Franco Anthon Paez Duran” y el título...

H o l a : Te anexo la macro Sub CopiarPlantilla() 'Por.Dante Amor Set h1 = Sheets("PRESUPUESTO FINAL") Set h2 = Sheets("PLANTILLAMADERA1") Set r = h1.Columns("B") Set b = r.Find("Partida", lookat:=xlWhole) If Not b Is Nothing Then celda = b.Address...

H o l a : Para utilizar el nombre del textbox en un ciclo o con una variable, tienes que utilizar la instrucción Controls( ) Por ejemplo si tienes 3 textbox: txt_Cantidad1, txt_Cantidad2, y txt_Cantidad3 entonces el ciclo sería así: For i = 1 To 3...

Pon la siguiente macro en los eventos de Thisworkbook Private Sub Workbook_Open() 'Por.Dante Amor For Each h In Sheets If UCase(Left(h.Name, 3)) = "LIM" Then h.ScrollArea = "$A$1:$H$70" End If Next End Sub Instrucciones para poner la macro en los...

Prueba así u = h2.Range("A" & Rows.Count).End(xlUp).Row With h2.Sort .SortFields.Clear .SortFields.Add Key:=Range("C6:C" & u), SortOn:=xlSortOnValues, _ Order:=xlAscending, DataOption:=xlSortNormal .SetRange h2.Range("A5:D" & u) .Header = xlYes...

Cambia esto: ruta = "G:\FID\PORTAFOLIO MODELO\Portafolios\test\" Por esto: ruta = thisworkbook.path & "\" 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

H o l a: Te anexo la macro para todas las hojas. Cambia en la macro "A" por la columna en donde se encuentran los números. Sub capicuo() 'Por.Dante Amor col = "A" 'columna con números For Each h In Sheets For i = 1 To h.Range(col &...

H o l a: Asigna la macro CambiaColor a todos los objetos Sub CambiarColor() 'Por.Dante Amor If TypeName(Application.Caller) = "String" Then nombre = Application.Caller ActiveSheet.DrawingObjects(nombre).Interior.ColorIndex = 5 'colorindex 0 a 56 End...

H o l a : Podrías explicar con cuál de los datos que pones en las celdas B4 a G4, se puede saber en cuál libro se tienen que pegar los datos. Lo correcto sería que en alguno de esos datos pongas por ejemplo, en la celda B4, "Libro15", Entonces la...