Carlos Arrocha

No entiendo mucho de esto, pero intenta así. Debes poner en nombre de la hoja donde pone nombre hoja entre comillas. Después creo que la puedes ejecutar desde cualquier hoja. Sub eliminarDuplicados() 'Utiliza el método RemoveDuplicates del Objeto...

Pinchas en la celada donde quieres que se copie y haces referencia a la otra. Por ejemplo: quiero copiar a la celda C2 el dato que tengo en la celda A2 Haces click en C2 y pones = A2

Prueba así a ver si te sirve. Sub exportarPDF() ' ' Exportar Hoja a PDF Sheets("plantilla").Visible = True On Error Resume Next Dim carpeta, archivo As String carpeta = "C:\Users\" archivo = Range("X9") MkDir (carpeta)...

No sé mucho de fórmulas, pero prueba con esta. =BUSCARV(=>45,O2:O5000,2,FALSO)

No entiendo muy bien lo que quieres, pero te modifiqué un poco la rutina para que cuando ingresas un número diferente a cero te muestre un mensaje. Pero si te sitúas en una celda y das un espacio o dos te muestra otro mensaje. Private Sub...

Private Sub ComboBox1_Change() If ComboBox1.Value = "A" Then Hoja1.Range("F30").Select ElseIf ComboBox1.Value = "B" Then Hoja1.Range("M40").Select Else Hoja1.Range("P40").Select End If End Sub 'Carga el ComboBox Private Sub UserForm_Initialize()...

Coloca esta línea On error resume next a continuación de Sub generar_texto()

Para llamar la macro tiene que ser con Call CERRAR

No la he probado, pero creo que es lo que necesitas. Tienes que cambiar el nombre del lisbox Private Sub ListBox1_Click() Carga = ListBox1.ListIndex Sheets("Principal").Range("F2") = ListBox1.List(Carga, 0) 'TextBox2 = ListBox1.List(Carga, 1) End Sub

En el siguiente vídeo hay una opción (casi al final del vídeo) que te puede servir para lo que quieres. Salu2 https://www.youtube.com/watch?v=oC1-JivDj9M