Dante Amor

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...

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...

Puedes poner un par de imágenes del antes y el después. Procura que se vean las filas y las columnas de la hoja de excel

Te ayudo con todo el código, para organizarlo y estructurarlo un poco. - En ocasiones es conveniente utilizar Exit Sub, para que el código no continúe. Por ejemplo en las validaciones, puedes hacer una validación, si no se cumple, entonces terminas...

Prueba con la siguiente actualización Private Sub Worksheet_Change(ByVal Target As Range) 'Act Por Dante Amor If Not Application.Intersect(Target, Range("E:E")) Is Nothing Then If Target.Value = "" Then Exit Sub If Target.Count > 1 Then Exit Sub '...