Dante Amor

Puedes grabar una macro realizando los pasos con uno de tus archivos wk1 y la pones aquí para revisarla

Prueba con lo siguiente y me comentas Sub copiar_Hoja() Worksheets(3).Copy After:=Sheets(Sheets.Count) nombre = ActiveSheet.Name Worksheets(1).Select ActiveCell.Offset(1, 0).Select ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", _...

No entendí, podrías explicar con ejemplos lo que tienes y lo que esperas. No te preocupes por el código, yo te ayudo.

Pon la siguiente macro en los eventos de tu libro Private Sub Workbook_SheetDeactivate(ByVal Sh As Object) 'Por Dante Amor 'Ocultar las hojas que se desactivan nombre = Sh.Name Select Case nombre Case "A", "B" If Sh.Visible = -1 Then Sh.Visible = 0...

Desmarca las referencias que dicen "FALTA", algunos componentes de la macro no están instalados en tu computadora, es por eso que dice "FALTA". Desmarca esas referencias y prueba nuevamente, desde luego se perderá alguna funcionalidad de la macro,...

Te anexo la macro 'Por Dante Amor ' Guardar hoja2 como excel y pdf ' Application.ScreenUpdating = False Set h2 = Sheets("Hoja2") ruta = ThisWorkbook.Path & "\" arch = h2.Range("R1").Value ' h2.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=ruta &...

Con el método .AddItem no es posible cargar más de 10 columnas, para cargar más de 10 columnas, puedes utilizar la propiedad .Rowsouce o .List. Revisa las siguientes respuestas, ahí explico cómo utilizar la propiedad .RowSource Codigo VBA para un...

Realiza la siguiente: 1. Pon la siguiente macro en un módulo: Sub Contenido() 'Por.Dante Amor 'Mostrar la dirección de la celda y el valor de la celda, 'según la imagen presionada ' Select Case TypeName(Application.Caller) Case "String" nombre =...

Te anexo un ejemplo: Private Sub CommandButton1_Click() Set h = Sheets("Hoja1") 'busca el producto con Find Set b = h.Columns("A").Find(TextBox1.Value, lookat:=xlWhole) If Not b Is Nothing Then fila = b.Row h.Cells(fila, "B").Value = TextBox2.Value...

Lo recomendable es que en lugar de un combobox2, utilices un listbox. Crea un listbox en tu userform y prueba con el siguiente código. Cada vez que selecciones un cliente en el combobox1, el listbox2 se llenará con los números de factura. Private Sub...