Dante Amor

Revisa esta respuesta: https://support.google.com/chrome/thread/131010182/error-la-conexi%C3%B3n-no-es-privada-en-paginas-como-wikipedia?hl=es

La siguiente macro copia el valor si perder el vínculo. Ejecuta la siguiente macro: Sub copiaceldas() Dim sh1 As Worksheet, sh2 As Worksheet Dim dic As Object Dim i As Long, j As Long Dim cad As String Dim a As Variant, b As Variant '...

Te paso la macro para copiar los valores de la hoja "filtro" a la hoja "resumen" con todo y vínculo. Si el vínculo de la hoja origen es correcto, entonces el vínculo en la hoja "resumen" estará correcto. Sub copiaceldas() Dim sh1 As Worksheet, sh2 As...

Puedes compartir tu archivo en google drive o enviarlo a mi correo. [email protected]

Cambia los nombre de los listbox (ListBox_Izq y ListBox_Der) por tus nombres Con dobleclick: Private Sub ListBox_Der_DblClick(ByVal Cancel As MSForms.ReturnBoolean) If ListBox_Izq.ListCount = 26 Then MsgBox "Límite de artículos alcanzado" Exit Sub...

Prueba lo siguiente: Sub Macro() Dim n As Long ' n = Application.InputBox("1 para Excel 2 para PDF, 3 para Ambos", Title:="Entra la opción", Type:=1) Select Case n Case 1 Call GeneraExcel Case 2 Call GeneraPdf Case 3 Call GeneraExcel Call GeneraPdf...

Utiliza lo siguiente: Option Explicit ' Dim numordenados As New Collection, llaves As New Collection ' Private Sub CommandButton8_Click() Dim r As Range, f As Range Dim cell As String, t As String Dim dic As Object, ky As Variant Dim lr As Long ' t =...

Application.StatusBar = cstr(Z) & " de " & cstr(finx) Veo que ya tienes StatusBar en el código. Cuál es el problema?

Prueba lo siguiente: Sub fecha() With Range("D2:D" & Range("C" & Rows.Count).End(3).Row) .Formula = "=INT(RC[-1])" .Value = .Value End With End Sub

Entra a las propiedades del botón y selecciona la opción: "No mover, ni cambiar tamaño con celdas"