Miguel Angel

Super D.A.N.T.E Quisiera saber lo siguiente, esta macro que me hiciste funciona muy bien: ruta = ThisWorkbook.Path & "\Formulas\" arch = h1.[E6] & " - " & Format(Date, "dd" & """ de """ & "mmmm" & """ de """ & "yyyy") ' h3.PageSetup.PrintArea =...

Para D.A.N.T.E ¿Hola Dante y entonces como le agregaría las instrucciones para los otros combobox en este Sub o es que debo hacer otros sub? Tengo este: Private Sub UserForm_Activate() 'Por.Dante Amor Set h = Sheets("Constantes") For i = 1 To...

A.n.t.e Tengo la siguiente inquietud. Si a través de la siguiente instrucción en un commandbutton yo le digo al excel que me coloque lo que escribí en un combobox1, en la celda de la cual activé el formulario: ActiveCell.Value = ComboBox1 entonces...

Para D.A.N.T.E En Internet encontré esta macro para un combobox que es aproximada a lo que necesito, es la siguiente (Es una Guia): Private Sub ComboBox1_change() 'cargamos listado desde la tabla 'datos' previamente creada... ComboBox1.ListFillRange...

Quiero que una macro traiga el siguiente valor: "Último valor cancelado: " & h. Cells(b. Row, "S") En la columna "S" mencionada hay un valor de este tipo de ejemplo: $20.000 Y asi mismo lo quiero traer pero cuando pongo esa instrucción arriba...

¿Esta macro me causa error me pueden ayudar a corregirla? Sub BorrarDatos() Resultado = MsgBox("Desea realizar otro registro con estos mismos datos?", vbYesNo) Case vbYes Exit Sub Case vbNo Range("C7:C14").ClearContents ' End Sub

S a l u d o s DAM Tu me ayudaste con estas dos macros a continuación: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'Por.Dante Amor If Not Intersect(Target, Range("C27:J27, C30:J30, C33:J33, C36:J36, C39:J39," & _...

S a l u d o s Dam Tengo la siguiente situación, una hoja llamada "Visitas" en la cual registro los datos que deseo almacenar en otra hoja llamada "Cartera" mediante una macro llamada "Registros". La macro es esta: Sub REGISTROS() 'Act.Por.Dante Amor...

Tengo esta macro y me gustaría que me ayudaras a mejorarla y si es posible que se ejecute más rápido, mejor: Sub CopiarNumero() ' ' CopiarNumero Macro ' ' Sheets("FORMULARIO").Select Range("E7").Select Application.CutCopyMode = False Selection.Copy...

Solicitud para DAM Cuando abrimos un archivo de excel que posee vínculos con datos externos de otros libros de excel, siempre al comienzo de la apertura nos muestra el siguiente mensaje: Yo siempre le doy "Actualizar" para obtener de las fuentes...